(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 18:00:23" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLCODE.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 16:12:45" "{Pele:mv:envos}Sources>CLTL2>LLCODE.;1" 60289 previous date%: "19-Jan-93 10:45:33" "{Pele:mv:envos}Sources>LLCODE.;18") (RPAQQ LLCODECOMS ((* ;; "THIS FILE IS DUPLICATED on Sources> and Sources>2-byte>, with the latter being the old 2-byte-atom version. IF YOU CHANGE THIS ONE, CHANGE THE OTHER ONE!" ) (COMS (* ; "reading in compiled code") (FNS DCODERD DCODESKIP \ALLOC.CODE.BLOCK \REALNAMEP \RENAMEDFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CODERDTBL (COPYREADTABLE (QUOTE ORIG)))) (P ( SETSYNTAX 25 (QUOTE (MACRO (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL))))) CODERDTBL) (SETSYNTAX 124 (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL) (READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL))) ( GLOBALVARS CODERDTBL FILERDTBL) (COMS (* ;; "CODEINDICATOR is the token the compiler puts out in front of compiled definitions. To switch to an incompatible compiled code version, choose a new value for CODEINDICATOR. If old compiled code is still loadable in the new system, retain the CODEREADER prop for an indicators that are still loadable." ) (* ;; "CODEINDICATOR changed to :D6 4/6/90 by JDS for Medley 1.15, because of additional opcodes emitted by compiler." ) (* ;; "CODEINDICATOR changed to :D7 by JDS 3/4/91 for Medley 1.3, because of 3-byte atoms. Old CODEREADER properties removed at the same time." ) (* ;; "Changed to :D8 by JDS 11/12/92 for Medley 2.1/3.0 because of 4-byte pointers/4-byte atoms. Old CODEREADER property removed as well, since old code is not readable." ) (VARS (CODEINDICATOR (QUOTE :D8))) (GLOBALVARS CODEINDICATOR) (PROP CODEREADER * (LIST CODEINDICATOR )))) (COMS (* ; "Compiled CLOSURE type") (FNS MAKE-COMPILED-CLOSURE \CCLOSURE.DEFPRINT \GET-COMPILED-DEFINITION \GET-COMPILED-CODE-BASE EQDEFP) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT ( RECORDS COMPILED-CLOSURE) (CONSTANTS \COMPILED-CLOSURE) (MACROS \EXTENDED.EQP))) (INITRECORDS COMPILED-CLOSURE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE COMPILED-CLOSURE) (QUOTE \CCLOSURE.DEFPRINT))))) (COMS (* ; "utilities") (FNS \FINDOP OP#) (* ;; "List of opcodes known to the system. Used to drive the compilers and build the UFN table.") (* ;; "Format of an entry: (op# name #-extra-bytes ?? stack-effect ") (VARS \OPCODES) (ADDVARS (\OPCODEARRAY )) (GLOBALVARS \OPCODEARRAY \OPCODES) (DECLARE%: EVAL@COMPILE DONTCOPY (FNS WORDSPERNAMEENTRY) (EXPORT (MACROS DPUTCODE MCODEP) (MACROS CODELT CODELT2 CODESETA2 CODESETA) (MACROS BYTESPERNAMEENTRY BYTESPERNTOFFSETENTRY GETNAMEENTRY GETNTFLAGS GETNTOFFSET GETNTOFFSETENTRY GETNTTAG SETNAMEENTRY WORDSPERNTOFFSETENTRY NTSLOT-OFFSET) (FUNCTIONS NEW-SYMBOL-CODE) (OPTIMIZERS BIG-VMEM-CODE SETSTKNAMEENTRY SETSTKNTOFFSETENTRY GETSTKNAMEENTRY GETSTKNTOFFSETENTRY WORDSPERNAMEENTRY SETSTKNTOFFSET SETSTKNAME-RAW SETSTKNTOFFSET-RAW NEW-SYMBOL-CODE MAKE-NTENTRY NULL-NTENTRY) ( OPTIMIZERS NTSLOT-VARTYPE) (RECORDS CODEARRAY) (RECORDS OPCODE) (GLOBALVARS \OPCODES) (CONSTANTS PVARCODE FVARCODE IVARCODE VARCODEMASK) (CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE)))) (COMS (* ; "ufns") (FNS INITUFNTABLE \SETUFNENTRY \GETUFNENTRY) (FNS \UNKNOWN.UFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "To go into the INIT") (* ;; "INITIALIZE THE TARGET ARCHITECTURE.") (INITVARS ( COMPILER::*TARGET-ARCHITECTURE* (QUOTE (:4-BYTE :3-BYTE))) (COMPILER::*HOST-ARCHITECTURE* (QUOTE ( :4-BYTE :3-BYTE))))) (DECLARE%: DONTCOPY (RECORDS UFNENTRY) (ADDVARS (INEWCOMS (FNS INITUFNTABLE \SETUFNENTRY))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS INITUFNTABLE)))) (COMS (* ; "for MAKEINIT and READSYS") (DECLARE%: DONTCOPY (ADDVARS (INEWCOMS (FNS DCODERD) (VARS \OPCODES ( CODERDTBL (COPYREADTABLE (QUOTE ORIG)))) (P (SETSYNTAX (CHARCODE ^Y) (QUOTE (MACRO (LAMBDA (FILE RDTBL ) (EVALFORMAKEINIT (READ FILE RDTBL))))) CODERDTBL) (SETSYNTAX (CHARCODE %|) (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL) (READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL))) (MKI.SUBFNS (\CODEARRAY . SCRATCHARRAY) (DPUTCODE . I.PUTDEFN) (CODERDTBL . I.CODERDTBL) (SETSTKNTOFFSET . I.SETSTKNTOFFSET) ( WORDSPERNAMEENTRY . I.WORDSPERNAMEENTRY)) (EXPANDMACROFNS CODELT CODELT2 CODESETA CODESETA2 DPUTCODE MCODEP BYTESPERNAMEENTRY BYTESPERNTOFFSETENTRY WORDSPERNAMEENTRY) (RD.SUBFNS (CODELT . VGETBASEBYTE) ( CODESETA . VPUTBASEBYTE)) (RDCOMS (FNS \GET-COMPILED-CODE-BASE))))) (PROP FILETYPE LLCODE) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA OP#) (NLAML) (LAMA))))) DCODERD :D8 (P 62 X P 61 X P 60 X P 44 X P 43 NT P 41 X P 40 NTBYTESIZE P 39 NT1 P 37 LOCALSIZE P 36 STARTLOCALS P 35 LOCALARGS P 34 FVAROFFSET P 33 CA P 32 NTWORDS P 31 STARTPC P 30 REALSIZE P 29 FRAMENAME P 28 NTSIZE P 27 NARGS P 26 ARGTYPE P 25 NFREEVARS P 24 NLOCALS P 23 CODELEN P 22 NAMETABLE P 1 *READTABLE* P 0 INSTREAM I 0 FN F 63 *READTABLE*) µ?hg W~d`ð•¿`òP¿H áH ØH H H H j@ˆ%O,dgðš_:¿O,_,gðO,_F¿O,_,O,² O,‰O8kÔ_8¿µõO8àkØlØmüå_8¿O,”O8dØl_@lO@Øà_>OF²!_HOF âàkØkØmþåà_J¿O>OJàÔ_>O>O.ØlØmøå_lØââkØkØmþå _BdO>O.HO,llØO8à)OL_R¿OR²}OBONORmÿ¿OBONOPØlÙORdgð•¿n€°(dgðŸ¿OD§ONââà_D¿nÀgð‘j„¿OBONOPØOR¿OR_R¿ONlÔ_N¿°‚OFµOBO4lð²]mÿ°[lOHØ,OT_X¿OX²DOBOVOXmÿ¿OBOVOJØlÙj¿OBOVOJØOX¿OX_X¿OVlÔ_V¿°»°žO6nÿÿå½\Mã»ZÉJl lØKÇ¿LlkØMlÿå/OZÉOZl O\ØO^ÇOBO0O2ØkØâkÙnÿÿå_¿_Oã_¿^ÉNl lØOÇ¿OlkØOlÿå2O`ÉO`l ObØOdÇOBO>ã_¿_ÉOl lØOÇ¿OBlkØO>lÿå5OfÉOfl OhØOjÇOBdÉOBl lØÂlÏåO4låààààä_¿_ÉOl lØOÇ¿OBlO:¿OBO8ã_¿_ÉOl lØOÇ¿OBlkØO8lÿå8OlÉOll OnØOpÇOBÉOBl lØO0Ç¿OBODµj_"¿_ ÉO l lØO"Ç¿OBd _*¿_(O*ã_&¿_$ÉO$l jØO&Ç¿O(jkØO*lÿå;OrÉOrl OtØOvÇ°dØOxmÿµå°d=OBOzO>ØOzmÿµå°d>OBO|O>ØO|µç@OB h(1201 DEFC 1187 \FIXCODEPTR 1164 READ 1153 \FIXCODESYM 1128 READ 1117 \FIXCODESYM 1092 READ 1080 \GETBASEFIXP 1038 \GETBASEFIXP 1004 \STKMIN 989 \GETBASEFIXP 949 \GETBASEFIXP 919 \GETBASEFIXP 875 \GETBASEFIXP 843 \FIXCODEPTR 825 \GETBASEFIXP 782 \GETBASEFIXP 751 \GETBASEFIXP 707 \GETBASEFIXP 669 \GETBASEFIXP 625 \GETBASEFIXP 570 \GETBASEFIXP 529 \GETBASEFIXP 476 \FIXCODENUM 460 \FIXCODENUM 443 \FIXCODESYM 373 \FIXCODENUM 356 \FIXCODENUM 351 SHOULDNT 285 \FIXCODESYM 246 AIN 233 \CODEARRAY 178 FLENGTH 47 READC 42 READ 15 GETSTREAM 4 READC) (1073 ARRAYP 1064 ARRAYP 1031 ARRAYP 1022 ARRAYP 982 ARRAYP 973 ARRAYP 942 ARRAYP 933 ARRAYP 912 ARRAYP 903 ARRAYP 868 ARRAYP 859 ARRAYP 818 ARRAYP 809 ARRAYP 775 ARRAYP 766 ARRAYP 744 ARRAYP 735 ARRAYP 700 ARRAYP 691 ARRAYP 662 ARRAYP 653 ARRAYP 618 ARRAYP 610 ARRAYP 563 ARRAYP 554 ARRAYP 522 ARRAYP 514 ARRAYP 342 I 319 F 305 P 95 L 76 NAME 31 CODERDTBL 23 FILERDTBL 10 INPUT) () DCODESKIP :D8 (P 3 START P 2 CODELEN P 1 RDTBL P 0 INSTREAM I 1 FLG I 0 FN F 4 *READTABLE*) ªhg Td`ð•¿`"H A–H »H H H áH ØZH H H H Hd JØ HhIHhIHhIHI A´3@ ¿o ¿` ¿¿HhKh(166 COPYBYTES 161 GETFILEPTR 152 TERPRI 146 PRIN4 135 PRIN3 124 PRIN4 115 READC 108 SKREAD 100 SKREAD 92 SKREAD 84 SETFILEPTR 77 GETFILEPTR 55 READC 49 SKREAD 42 GETFILEPTR 34 READC 10 GETSTREAM) (141 CODEINDICATOR 25 CODERDTBL 17 FILERDTBL 5 INPUT) ( 130 " ") \ALLOC.CODE.BLOCK :D8 (I 1 INITONPAGE I 0 NBYTES) @lØââlAl(15 \ALLOCBLOCK) NIL () \REALNAMEP :D8 (I 0 X) @gðhð´@k gðhð(17 NTHCHAR) (22 \ 5 ERRORSET) () \RENAMEDFN :D8 (P 2 NEWCA P 1 WORDSIZE P 0 CODEBASE I 1 FN I 0 DEF) K@ÉH àIàHÈlØââkØkØmþå JHIAl @ dJ¿(67 NCREATE2 59 \COPYCODEBLOCK 47 \ALLOC.CODE.BLOCK 21 \#BLOCKDATACELLS) (10 COMPILED-CLOSURE 5 COMPILED-CLOSURE) () (RPAQ CODERDTBL (COPYREADTABLE (QUOTE ORIG))) (SETSYNTAX 25 (QUOTE (MACRO (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL))))) CODERDTBL) (SETSYNTAX 124 (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL) (READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL) (RPAQQ CODEINDICATOR :D8) (PUTPROPS :D8 CODEREADER (DCODERD . DCODESKIP)) MAKE-COMPILED-CLOSURE :D8 (I 1 ENVIRONMENT I 0 CODEBASE) l d@¿dA¿NIL NIL () \CCLOSURE.DEFPRINT :D8 (P 7 A3002 P 6 A3001 P 5 A3000 P 1 TYPE P 0 NAME I 1 STREAM I 0 CLOSURE F 8 \THISFILELINELENGTH F 9 *READTABLE*) è@ÉÉ@É•o„o2W²:ll ØHd3@ð§H ´Hdd3@ð ¸jØkØAÈØWñ–A ¿AWÊ¼[É(ºKLlJ¿oA IA H²,AÉ(Al lMH —HA †HA ¿AÉ(Al/lN@A AÉ(Al>lOi(209 \PRINTADDR 182 \PRINDATUM 174 \SOUT 166 STRINGP 138 \SOUT 131 \SOUT 91 FRESHLINE 66 NCHARS 53 STRINGP) (215 STREAM 189 STREAM 147 STREAM 110 STREAM 100 READTABLEP 78 STREAM 15 COMPILED-CLOSURE 5 COMPILED-CLOSURE) ( 125 "