‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>lap.lisp;1 Source file created Wednesday, 6 November 1991, 9:14:26. FASL file created Friday, 4 December 2020, 19:45:27. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOS˜– o ˜Œ#DEFVAR *MAKE-LAP-CLOSURE-GENERATOR*™˜“€˜ŒPROCLAIM˜“˜ŒSPECIAL˜’Œ*MAKE-LAP-CLOSURE-GENERATOR*˜‘˜ŒCLOS˜– o ˜Œ)DEFVAR *PRECOMPILE-LAP-CLOSURE-GENERATOR*™˜“€™˜“™ ˜’Œ"*PRECOMPILE-LAP-CLOSURE-GENERATOR*™ ˜– o ˜ŒDEFVAR *LAP-IN-LISP*™˜“€™˜“™ ˜’Œ *LAP-IN-LISP*™ œ˜’ŒMAKE-LAP-CLOSURE-GENERATOR™ ˜– @ABCDElP™ ™™˜“˜“˜ŒCLOSURE-VARIABLES˜Œ ARGUMENTS˜ŒIREGS˜ŒVREGS˜ŒTREGS˜ŒLAP-CODEœ˜’Œ'expand-PRECOMPILE-LAP-CLOSURE-GENERATOR™ ˜–5@X¹HZ»J\½L^_¿N__¿O_¿IKMOOOlW ™™# ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜–&gg ¿ggo ˜Œ)DEFMACRO PRECOMPILE-LAP-CLOSURE-GENERATOR™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’Œ PRECOMPILE-LAP-CLOSURE-GENERATOR™ ™#™.˜“˜ŒCVARS˜ŒARGS˜ŒI-REGS˜ŒV-REGS˜ŒT-REGS˜ŒLAPœ˜’Œexpand-LAP-IN-LISP™ ˜–J@XYZ»J\½L^_¿N_¿goKMOOgg h™7 ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT@˜’Œ MAKE-LAP-PROG™ ;˜’Œ FLATTEN-LAP™ 6˜’ŒOPCODE™ 1˜’ŒEXIT-LAP-IN-LISP™ ,˜ŒLABEL˜ŒLOCALLY!˜“˜ŒDECLARE˜“˜ŒOPTIMIZE˜“˜ŒSAFETY˜“˜ŒSPEED˜–&gg ¿ggo ˜ŒDEFMACRO LAP-IN-LISP™˜“€ ™+ ™,™-˜’Œ LAP-IN-LISP™ ™7™M˜“˜ŒCVARS˜ŒARGS˜ŒIREGS˜ŒVREGS˜ŒTREGS˜ŒLAP˜– o ˜Œ1 top-level form™˜“€™˜“™ ˜’Œ*GENERATING-LAP*™ œ˜’Œexpand-GENERATING-LAP™ ˜–2@X¹HZ»J¼goghIKgLhh™[™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒPROGN˜’ŒFINALIZE-LAP-GENERATION™ ˜ŒLET*˜“˜“™X˜“˜ŒLIST€€‚ÿÿÿÿ˜–&gg ¿ggo ˜ŒDEFMACRO GENERATING-LAP™˜“€ ™+ ™,™-˜’ŒGENERATING-LAP™ ™[™j˜“˜ŒCLOSURE-VARIABLES˜Œ ARGUMENTS˜Œ&BODY˜ŒBODYœ˜’Œexpand-GENERATING-LAP-IN-LISP™ ˜–2@X¹HZ»J¼gogiIKgLhh™q™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™`™a™b˜“˜“™X˜“™c€€‚ÿÿÿÿ˜–&gg ¿ggo ˜ŒDEFMACRO GENERATING-LAP-IN-LISP™˜“€ ™+ ™,™-˜’ŒGENERATING-LAP-IN-LISP™ ™q™|˜“˜ŒCLOSURE-VARIABLES˜Œ ARGUMENTS™m˜ŒBODYœ˜’Œexpand-WITH-LAP-REGISTERS™ —˜–˜–/ejó§kh ¿he#¸@R Y—IH o@ ™‚ð™>‚ÿÿÿÿ™˜“˜“˜ŒNAME™‚Á˜ŒARGS)™‚§™‚ؘ•ŒGETHASH˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM#˜ŒNo opcode named ~S.œ˜’ŒOPERAND™ ˜–/ejó§kh ¿he#¸@R Y—IH o@ ™‚𙂂ÿÿÿÿ™˜“˜“˜ŒNAME™‚Á˜ŒARGS)™‚§™‚Ø™‚þ™‚#˜ŒNo operand named ~S.œ˜’Œexpand-DEFOPCODE™ ˜–‚@X¹HºoIW »J¼h½h¾h_¿L¢M°_¿M•NO&¾…Oh^½L¼°â¼ggoggIhgKhhhgKLggIhgJhLhh˜’Œ*THE-CLOS-PACKAGE*™ ™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT'˜ŒGENSYM˜’Œ SYMBOL-APPEND™ ‚†™‚“}™‚“x˜’Œ DEFOPCODE-1™ q˜ŒDEFUN`™‚“W™‚“R˜’ŒLOAD-DEFOPCODE™ H˜Œ EVAL-WHENC™`M˜“˜ŒLOAD˜ŒEVAL ˜Œ LAP Opcode ˜–&gg ¿ggo ˜ŒDEFMACRO DEFOPCODE™˜“€ ™+ ™,™-˜’Œ DEFOPCODE™ ™‚ ™‚˜“˜ŒNAME˜ŒTYPESœ˜’Œexpand-DEFOPERAND™ ˜–‚@X¹HºoIW »J¼h½h¾h_¿L¢M°_¿M•NO&¾…Oh^½L¼°â¼ggoggIhgKhhhgKLggIhgJhLhh™‚ ™‚#™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT'™‚™‚ ‚†™‚“}™‚“x˜’Œ DEFOPERAND-1™ q™‚`™‚“W™‚“R˜’ŒLOAD-DEFOPERAND™ H™‚C™`M˜“™‚™‚ ˜Œ LAP Operand ˜–&gg ¿ggo ˜ŒDEFMACRO DEFOPERAND™˜“€ ™+ ™,™-˜’Œ DEFOPERAND™ ™‚#™‚/˜“˜ŒNAME˜ŒTYPESœ™‚˜–)@Sšo @TA ¿@¸R¹@R‘I‚HIc™‚뙂時𙂙˜“˜“˜ŒNAME˜ŒFN-NAME˜ŒPUTHASH ™‚§˜Œ2LAP opcodes and operands must have disjoint names.œ™‚)˜–)@Sšo @TA ¿@¸R¹@R‘I‚HIc™‚時뙂ð™‚)™˜“˜“˜ŒNAME˜ŒFN-NAME™‚8 ™‚§˜Œ2LAP opcodes and operands must have disjoint names.œ™‚˜–Qekó¨lh ¿he#¸H¹hºA»h¼I ‘°&I½I¹MºK ‘°K½K»M¼@JL ¿°Õ@H ™‚‚ÿÿÿÿ™˜“˜“˜ŒNAME˜Œ OPERAND-TYPES™‚Á˜ŒARGSJ˜Œ COPY-LIST@˜’ŒCHECK-OPCODE-ARG™ -˜ŒENDP™‚H™‚œ™‚(˜–Qekó¨lh ¿he#¸H¹hºA»h¼I ‘°&I½I¹MºK ‘°K½K»M¼@JL ¿°Õ@H ™‚(‚ÿÿÿÿ™˜“˜“˜ŒNAME˜Œ OPERAND-TYPES™‚Á˜ŒARGSJ™‚F@˜’ŒCHECK-OPERAND-ARG™ -™‚H™‚H™‚œ™‚G—˜–ZnXA¿B‘i€h².Bgð²noHB °o ˆBkoH-‘hoHÉ@B ™‚G™˜“˜“˜ŒNAME˜ŒARG˜ŒTYPET™‚§8™‚§,˜•Œ %SOME-SINGLE™‚•J˜Œ3The argument ~S to the opcode ~A is not of type ~S.3˜ŒWhat type is this?˜•ŒCOMPILED-CLOSURE™‚‰™‚Z@˜–‚¦@gðY’I°R@gðZ’J°F@gð[’K°:@gð\’L°.@gð]’M°"@gð^’N°@gð_’O†@gð™@koH-@gð—HÉd3@ð@gð²HÉ‘i€h—HÉWhhg@o ™‚昌CHECK™‚Œ˜“˜“˜ŒX‚ ™‚¸ ‚•˜’ŒX™ y˜ŒOPERANDi™@W˜Œ LISP-VARIABLEJ˜ŒLISP>˜ŒARG2˜ŒCVAR&˜ŒIREF˜ŒCONSTANT˜ŒCDR™‚¢‚›˜“ ™‚¢™‚g™‚f™‚e™‚d™‚c™‚b™‚a™@™‚`™‚Z ™‚i™‚i`˜–HÉ‘i€h–HÉ@ðh˜ŒUSUAL™‚Œ˜“˜“˜ŒXœ™‚O—˜–ZnXA¿B‘i€h².Bgð²noHB °o ˆBkoH-‘hoHÉ@B ™‚O™˜“˜“˜ŒNAME˜ŒARG˜ŒTYPET™‚§8™‚§,™‚V™‚•J˜Œ4The argument ~S to the operand ~A is not of type ~S.3˜ŒWhat type is this?™‚Y™‚‰™‚v@˜–x@gð—HÉd3@ð@gð²HÉ3 ‘i€h˜@jýó‘hih@gð‘i@gð²HÉ‘i€hšHÉgðh@gð•HÉhg@o ˜ŒCHECK™‚Œ˜“˜“˜ŒXr™‚¸g™‚_Y˜ŒFIXNUMO™‚¢:™‚¢0˜ŒT˜ŒREGISTER-NUMBER˜ŒSYMBOLm˜“™‚~™‚}™‚|™‚¢™‚{™‚v ™‚€˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode BREAK™ ˜ŒBREAKœ™‚ƒ˜– gh ™‚ƒ™˜“€™‚™‚„˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode BEEP™ ˜ŒBEEPœ™‚Š˜– gh ™‚Š™˜“€™‚™‚‹˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode PRINT™ ˜ŒPRINTœ™‚‘˜–go@ ™‚‘™˜“˜“˜ŒG3878 ™‚™‚’˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode MOVE™ ˜ŒMOVEœ™‚›˜–go@A ™‚›™˜“˜“˜ŒG3879˜ŒG3880 ™‚™‚œ˜“™‚`˜“™‚•™‚¢™‚e™‚g™‚a˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’Œ LAP Opcode EQ™ ˜ŒEQœ™‚§˜–go@AB ™‚§™˜“˜“˜ŒG3881˜ŒG3882˜ŒG3883™‚™‚¨˜“˜“™‚•™‚¢™‚f˜“™‚•™‚¢™‚f™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode NEQ™ ˜ŒNEQœ™‚µ˜–go@AB ™‚µ™˜“˜“˜ŒG3884˜ŒG3885˜ŒG3886™‚™‚¶˜“˜“™‚•™‚¢™‚f˜“™‚•™‚¢™‚f™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode FIX=™ ˜ŒFIX=œ™‚Ø–go@AB ™‚Ù˜“˜“˜ŒG3887˜ŒG3888˜ŒG3889™‚™‚Ę“˜“™‚•™‚¢™‚f˜“™‚•™‚¢™‚f™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode IZEROP™ ˜ŒIZEROPœ™‚ј–go@A ™‚Ñ™˜“˜“˜ŒG3890˜ŒG3891 ™‚™‚Ò˜“™‚¢™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode STD-INSTANCE-P™ ˜ŒSTD-INSTANCE-Pœ™‚ܘ–go@A ™‚Ü™˜“˜“˜ŒG3892˜ŒG3893 ™‚™‚ݘ“™‚¢™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode FSC-INSTANCE-P™ ˜ŒFSC-INSTANCE-Pœ™‚瘖go@A ™‚癘“˜“˜ŒG3894˜ŒG3895 ™‚™‚蘓™‚¢™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode BUILT-IN-INSTANCE-P™ ˜ŒBUILT-IN-INSTANCE-Pœ™‚ò˜–go@A ™‚ò™˜“˜“˜ŒG3896˜ŒG3897 ™‚™‚󘓙‚¢™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode STRUCTURE-INSTANCE-P™ ˜ŒSTRUCTURE-INSTANCE-Pœ™‚ý˜–go@A ™‚ý™˜“˜“˜ŒG3898˜ŒG3899 ™‚™‚þ˜“™‚¢™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode JMP™ ˜ŒJMPœ™‚˜–go@ ™‚™˜“˜“˜ŒG3900 ™‚™‚ ˜“˜“™‚•™‚¢™‚f˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode LABEL™ ™@œ™‚˜–go@ ™‚™˜“˜“˜ŒG3901 ™‚™@˜“™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’Œ LAP Opcode GO™ ˜ŒGOœ™‚˜–go@ ™‚™˜“˜“˜ŒG3902 ™‚™‚˜“™@˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode RETURN™ ˜ŒRETURNœ™‚&˜–go@ ™‚&™˜“˜“˜ŒG3903 ™‚™‚'˜“˜“™‚•™‚¢™‚f˜–gg ˜Œ1 top-level form™˜“€ ™‚˜’ŒLAP Opcode EXIT-LAP-IN-LISP™ ˜ŒEXIT-LAP-IN-LISPœ™‚1˜– gh ™‚1™˜“€™‚™‚2˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand REG™ ™‚¢œ™‚8˜–go@ ™‚8™˜“˜“˜ŒG3904 ™‚(™‚¢˜“™‚}˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand CVAR™ ™‚dœ™‚A˜–go@ ™‚A™˜“˜“˜ŒG3905 ™‚(™‚d˜“™‚~˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand ARG™ ™‚cœ™‚J˜–go@ ™‚J™˜“˜“˜ŒG3906 ™‚(™‚c˜“™‚~˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand CDR™ ™‚gœ™‚S˜–go@ ™‚S™˜“˜“˜ŒG3907 ™‚(™‚g˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand CONSTANT™ ™‚fœ™‚\˜–go@ ™‚\™˜“˜“˜ŒG3908 ™‚(™‚f˜“™‚|˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand STD-WRAPPER™ ˜Œ STD-WRAPPERœ™‚e˜–go@ ™‚e™˜“˜“˜ŒG3909 ™‚(™‚f˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand FSC-WRAPPER™ ˜Œ FSC-WRAPPERœ™‚o˜–go@ ™‚o™˜“˜“˜ŒG3910 ™‚(™‚p˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand BUILT-IN-WRAPPER™ ˜ŒBUILT-IN-WRAPPERœ™‚y˜–go@ ™‚y™˜“˜“˜ŒG3911 ™‚(™‚z˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand STRUCTURE-WRAPPER™ ˜ŒSTRUCTURE-WRAPPERœ™‚ƒ˜–go@ ™‚ƒ™˜“˜“˜ŒG3912 ™‚(™‚„˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand OTHER-WRAPPER™ ˜Œ OTHER-WRAPPERœ™‚˜–go@ ™‚™˜“˜“˜ŒG3913 ™‚(™‚Ž˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand STD-SLOTS™ ˜Œ STD-SLOTSœ™‚—˜–go@ ™‚—™˜“˜“˜ŒG3914 ™‚(™‚˜˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand FSC-SLOTS™ ˜Œ FSC-SLOTSœ™‚¡˜–go@ ™‚¡™˜“˜“˜ŒG3915 ™‚(™‚¢˜“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand CREF™ ˜ŒCREFœ™‚«˜–go@A ™‚«™˜“˜“˜ŒG3916˜ŒG3917 ™‚(™‚¬˜“™‚¢™‚{˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand IREF™ ™‚eœ™‚¶˜–go@A ™‚¶™˜“˜“˜ŒG3918˜ŒG3919 ™‚(™‚e˜“™‚¢™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand ISET™ ˜ŒISETœ™‚À˜–go@AB ™‚À™˜“˜“˜ŒG3920˜ŒG3921˜ŒG3922™‚(™‚Á˜“™‚¢™‚¢™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand I1+™ ˜ŒI1+œ™‚̘–go@ ™‚Ì™˜“˜“˜ŒG3923 ™‚(™‚͘“™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand I+™ ˜ŒI+œ™‚Ö˜–go@A ™‚Ö™˜“˜“˜ŒG3924˜ŒG3925 ™‚(™‚ט“™‚¢™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand I-™ ˜ŒI-œ™‚ᘖgo@A ™‚ᙘ“˜“˜ŒG3926˜ŒG3927 ™‚(™‚☓™‚¢™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand ILOGAND™ ˜ŒILOGANDœ™‚옖go@A ™‚왘“˜“˜ŒG3928˜ŒG3929 ™‚(™‚혓™‚¢™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand ILOGXOR™ ˜ŒILOGXORœ™‚÷˜–go@A ™‚÷™˜“˜“˜ŒG3930˜ŒG3931 ™‚(™‚ø˜“™‚¢™‚¢˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand ISHIFT™ ˜ŒISHIFTœ™‚˜–go@A ™‚™˜“˜“˜ŒG3932˜ŒG3933 ™‚(™‚˜“™‚¢™‚{˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand LISP™ ™‚bœ™‚ ˜–go@ ™‚ ™˜“˜“˜ŒG3934 ™‚(™‚b˜“™‚|˜–gg ˜Œ1 top-level form™˜“€ ™‚)˜’ŒLAP Operand LISP-VARIABLE™ ™‚aœ™‚˜–go@ ™‚™˜“˜“˜ŒG3935 ™‚(™‚a˜“™‚~š‚ÿÿ