‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>fngen.lisp;1 Source file created Wednesday, 6 November 1991, 8:50:58. FASL file created Friday, 4 December 2020, 19:45:24. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOSœ˜’Œ GET-FUNCTION˜‘˜ŒCLOS˜–lejó”eló˜kl ¿ekÙdjð³la¸kÙdjð³la¹kÙjð³laº°#g ¸g ¹g º@HI @J ™‚ÿÿÿÿ™˜“˜“˜ŒLAMBDA˜Œ &OPTIONAL˜ŒTEST-CONVERTER˜ŒCODE-CONVERTER˜ŒCONSTANT-CONVERTERf˜ŒAPPLYa˜’ŒCOMPUTE-CONSTANTS™Z˜’ŒGET-FUNCTION-GENERATOR™Q˜ŒSYMBOL-FUNCTIONF™;™ ˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEML˜’ŒDEFAULT-CONSTANT-CONVERTER™A˜’ŒDEFAULT-CODE-CONVERTER™6˜’ŒDEFAULT-TEST-CONVERTER™œ™˜–@ •g@™™˜“˜“˜ŒFORM˜Œ CONSTANTP˜’Œ .CONSTANT.™œ™˜–@ œXHh$@™™˜“˜“˜ŒFORM˜ŒGENSYM™œ™˜–%@ ²@‘i€h˜@gð€h“@€@hh™™˜“˜“˜ŒFORM™˜ŒQUOTE˜–o ¿g X‘Hhc˜’Œ*FGENS*™˜ŒDEFVAR *FGENS*™˜“€˜ŒBOUNDP˜ŒPROCLAIM ™+˜“˜ŒSPECIAL™+œ˜’Œ STORE-FGEN™˜– P@h c™+™3™˜“˜“˜ŒFGEN˜•Œ\NCONC2œ˜’Œ LOOKUP-FGEN™˜–(@Pgg gg ™+™9™˜“˜“˜ŒTEST"˜ŒFIND™ ™˜ŒEQUAL˜ŒTEST˜’Œ FGEN-TEST™˜ŒKEYœ˜’Œ MAKE-FGEN™˜–'l ¸@Hj·¿AHk·¿BHl·¿CHl·¿DHl·¿H™C™˜“˜“˜ŒTEST˜ŒGENSYMS˜Œ GENERATOR˜ŒGENERATOR-LAMBDA˜ŒSYSTEM˜Œ MAKE-ARRAYœ™@˜–@j¶™@™˜“˜“˜ŒFGENœ˜’Œ FGEN-GENSYMS™˜–@k¶™Q™˜“˜“˜ŒFGENœ˜’ŒFGEN-GENERATOR™˜–@l¶™V™˜“˜“˜ŒFGENœ˜’ŒFGEN-GENERATOR-LAMBDA™˜–@l¶™[™˜“˜“˜ŒFGENœ˜’Œ FGEN-SYSTEM™˜–@l¶™`™˜“˜“˜ŒFGENœ™˜– @A X Y–I @HB ™™˜“˜“˜ŒLAMBDA˜ŒTEST-CONVERTER˜ŒCODE-CONVERTER˜’ŒGET-NEW-FUNCTION-GENERATOR™™V ™9˜’Œ COMPUTE-TEST™œ™j˜–.@B X¹HZ »AIKJh \ ¿K™j™˜“˜“˜ŒLAMBDA˜ŒTEST˜ŒCODE-CONVERTER&™3 ™C˜’ŒCOMPILE-LAMBDA™˜•Œ\MVLIST˜’Œ#GET-NEW-FUNCTION-GENERATOR-INTERNAL™œ™t˜–+@A X¹HZgJgIhh$™t™˜“˜“˜ŒLAMBDA˜ŒCODE-CONVERTER™s˜’Œ COMPUTE-CODE™˜ŒFUNCTION˜ŒLAMBDAœ™k˜– nXA¿@hnoH ™k™˜“˜“˜ŒLAMBDA˜ŒTEST-CONVERTER˜’Œ WALK-FORM˜‘˜ŒWALKER˜–Agð²@kHÉYI@ð‘h€i$@˜Œlambda in COMPUTE-TEST˜ŒCLOSURE˜“˜“˜ŒF˜ŒC˜ŒE˜ŒEVAL ˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2œ™z˜–,nXA¿hHý¿@hnoH HÉ$™z™˜“˜“˜ŒLAMBDA˜ŒCODE-CONVERTER ™‚„˜–9Agð²/@kHÉ YºI[HÉK Hý¿JJ@ð‘h€i$@˜Œlambda in COMPUTE-CODE™‚†˜“˜“˜ŒF˜ŒC˜ŒE!˜ŒAPPEND™s™‚Œ™‚Ž™‚œ™˜–*nXA¿hHý¿@hnoH ¿HÉ™™˜“˜“˜ŒLAMBDA˜ŒCONSTANT-CONVERTER ™‚„˜–+Agð²!@kHÉY²HÉI Hý¿@i$@@˜Œlambda in COMPUTE-CONSTANTS™‚†˜“˜“˜ŒF˜ŒC˜ŒE™‚›™‚Œ™‚Ž™‚œ˜’Œ%expand-PRECOMPILE-FUNCTION-GENERATORS™˜–‚¬@X’H€h¹gIhoghºh»W¼h½L‘L°z] ‘h€i^‘N‡M Ið²\ggM hgM hgM hgM hgIhh¾J”KN&»„Nh[ºL¼°„J ™+™‚ª™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚¦˜’ŒMAKE-TOP-LEVEL-FORM™z™[l™[^™QP™@<™`.™`‚‚™)t™)f™{X™)J™)E˜’ŒLOAD-FUNCTION-GENERATOR™˜ŒPROGN ˜’ŒPRECOMPILE-FUNCTION-GENERATORS™˜“˜ŒLOAD˜–&gg ¿ggo ˜Œ'DEFMACRO PRECOMPILE-FUNCTION-GENERATORS™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™‚²™‚ª™‚²˜“™ ˜ŒSYSTEMœ™‚°˜–@ABCD  ™‚°™˜“˜“˜ŒTEST˜ŒGENSYMS˜Œ GENERATOR˜ŒGENERATOR-LAMBDA˜ŒSYSTEM ™3™Cš‚Æÿÿ