From b1d209484a9b5274e994170bbb99d2abb1b43c8e Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 5 Aug 2021 21:08:05 -0700 Subject: [PATCH] FILEIO, MACHINEINDEPENDENT \EXTERNALFORMAT extracts the format from a reader-environment WRITEFILE uses the format in *OLD-IINTERLISP-READ-ENVIRONMENT* (now :XCCS) --- sources/FILEIO | 125 ++++++++++++++++---------------- sources/FILEIO.LCOM | Bin 49804 -> 49860 bytes sources/MACHINEINDEPENDENT | 61 ++++++++-------- sources/MACHINEINDEPENDENT.LCOM | Bin 38973 -> 39133 bytes 4 files changed, 96 insertions(+), 90 deletions(-) diff --git a/sources/FILEIO b/sources/FILEIO index 487940f6..7c938e72 100644 --- a/sources/FILEIO +++ b/sources/FILEIO @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED " 5-Aug-2021 14:42:41"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;72 180878 +(FILECREATED " 5-Aug-2021 20:39:21"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;73 181010 - changes to%: (FNS \INSTALL.EXTERNALFORMAT) + changes to%: (FNS \EXTERNALFORMAT) - previous date%: " 2-Aug-2021 10:13:47" -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;71) + previous date%: " 5-Aug-2021 14:42:41" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;72) (* ; " @@ -1326,7 +1326,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (CL:UNLESS NOERROR (ERROR NAME "is not an external format"]) (\EXTERNALFORMAT - [LAMBDA (STREAM NEWFORMAT/NAME) (* ; "Edited 2-Aug-2021 10:11 by rmk:") + [LAMBDA (STREAM NEWFORMAT/NAME) (* ; "Edited 5-Aug-2021 20:39 by rmk:") (* ; "Edited 26-Feb-91 13:20 by nm") (* ;;; ";;; RMK July 2020: Added interface for per-device default external format. \DO.PARAMS.AT.OPEN will make that call even if it is not specified from the open. STREAMPROP is fixed to call \EXTERNALFORMAT to set the property EXTERNALFORMAT, to export a user-level way of manipulating this.") @@ -1344,21 +1344,24 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (\DTEST STREAM 'STREAM) (CL:WHEN NEWFORMAT/NAME [LET (EXTFORMAT) - (if (type? EXTERNALFORMAT NEWFORMAT/NAME) - then (SETQ EXTFORMAT NEWFORMAT/NAME) - else (CL:WHEN (EQ NEWFORMAT/NAME :DEFAULT) - (SETQ NEWFORMAT/NAME (OR (CADR (ASSOC (fetch DEVICENAME - of (fetch DEVICE - of STREAM)) - *DEFAULT-EXTERNALFORMATS*)) - (FETCH (FDEV DEFAULTEXTERNALFORMAT) - OF (fetch DEVICE of STREAM)) - *DEFAULT-EXTERNALFORMAT*))) - (SETQ EXTFORMAT (FIND-FORMAT NEWFORMAT/NAME)) - (CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME - "is not a registered external format name")) - (CL:UNLESS (type? EXTERNALFORMAT EXTFORMAT) - (ERROR "INVALID EXTERNALFORMAT " EXTFORMAT))) + [COND + ((type? EXTERNALFORMAT NEWFORMAT/NAME) + (SETQ EXTFORMAT NEWFORMAT/NAME)) + [(AND (TYPE? READER-ENVIRONMENT NEWFORMAT/NAME) + (SETQ EXTFORMAT (FETCH (READER-ENVIRONMENT REFORMAT) OF NEWFORMAT/NAME] + (T (CL:WHEN (EQ NEWFORMAT/NAME :DEFAULT) + (SETQ NEWFORMAT/NAME (OR (CADR (ASSOC (fetch DEVICENAME + of (fetch DEVICE of + STREAM)) + *DEFAULT-EXTERNALFORMATS*)) + (FETCH (FDEV DEFAULTEXTERNALFORMAT) + OF (fetch DEVICE of STREAM)) + *DEFAULT-EXTERNALFORMAT*))) + (SETQ EXTFORMAT (FIND-FORMAT NEWFORMAT/NAME)) + (CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME + "is not a registered external format name")) + (CL:UNLESS (type? EXTERNALFORMAT EXTFORMAT) + (ERROR "INVALID EXTERNALFORMAT " EXTFORMAT] (UNINTERRUPTABLY (freplace (STREAM EXTERNALFORMAT) of STREAM with EXTFORMAT) (CL:WHEN (ffetch (EXTERNALFORMAT EOLVALID) of EXTFORMAT) @@ -3415,44 +3418,44 @@ update the map") (PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1999 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (28425 31915 (STREAMPROP 28435 . 28869) (GETSTREAMPROP 28871 . 29344) (PUTSTREAMPROP -29346 . 31763) (STREAMP 31765 . 31913)) (31958 34477 (\DEFPRINT.BY.NAME 31968 . 33120) ( -\STREAM.DEFPRINT 33122 . 34170) (\FDEV.DEFPRINT 34172 . 34475)) (34735 39776 (\GETACCESS 34745 . 35199 -) (\SETACCESS 35201 . 39774)) (62780 64033 (MAKE-EXTERNALFORMAT 62790 . 64031)) (65219 72650 ( -\INSTALL.EXTERNALFORMAT 65229 . 66678) (\REMOVE.EXTERNALFORMAT 66680 . 67511) (FIND-FORMAT 67513 . -68064) (\EXTERNALFORMAT 68066 . 72648)) (72973 74792 (\CREATE.THROUGH.EXTERNALFORMAT 72983 . 73785) ( -\THROUGHIN 73787 . 74193) (\THROUGHBACKCCODE 74195 . 74440) (\THROUGHOUTCHARFN 74442 . 74790)) (74900 -80869 (\DEFINEDEVICE 74910 . 77226) (\GETDEVICEFROMNAME 77228 . 77701) (\GETDEVICEFROMHOSTNAME 77703 - . 78747) (\REMOVEDEVICE 78749 . 79872) (\REMOVEDEVICE.NAMES 79874 . 80867)) (80909 105569 (\CLOSEFILE - 80919 . 81744) (\DELETEFILE 81746 . 82040) (\DEVICEEVENT 82042 . 83812) (\GENERATEFILES 83814 . 84292 -) (\GENERATENEXTFILE 84294 . 84945) (\GENERATEFILEINFO 84947 . 85408) (\GETFILENAME 85410 . 85799) ( -\GENERIC.OUTFILEP 85801 . 86271) (\OPENFILE 86273 . 88851) (\DO.PARAMS.AT.OPEN 88853 . 91406) ( -\RENAMEFILE 91408 . 91832) (\REVALIDATEFILE 91834 . 94436) (\PAGED.REVALIDATEFILELST 94438 . 95996) ( -\PAGED.REVALIDATEFILES 95998 . 97717) (\PAGED.REVALIDATEFILE 97719 . 100002) (\BUFFERED.REVALIDATEFILE - 100004 . 102290) (\BUFFERED.REVALIDATEFILELST 102292 . 103476) (\PRINT-REVALIDATION-RESULT 103478 . -103893) (\TRUNCATEFILE 103895 . 104286) (\FILE-CONFLICT 104288 . 105567)) (105605 110268 ( -\GENERATENOFILES 105615 . 107711) (\NULLFILEGENERATOR 107713 . 107957) (\NOFILESNEXTFILEFN 107959 . -109950) (\NOFILESINFOFN 109952 . 110266)) (110387 112295 (\FILE.NOT.OPEN 110397 . 110910) ( -\FILE.WONT.OPEN 110912 . 111240) (\ILLEGAL.DEVICEOP 111242 . 111524) (\IS.NOT.RANDACCESSP 111526 . -111972) (\STREAM.NOT.OPEN 111974 . 112293)) (112430 114728 (\FDEVINSTANCE 112440 . 114726)) (116278 -123652 (CNDIR 116288 . 117593) (DIRECTORYNAME 117595 . 121778) (DIRECTORYNAMEP 121780 . 122396) ( -HOSTNAMEP 122398 . 123205) (\ADD.CONNECTED.DIR 123207 . 123650)) (123697 154340 (\BACKFILEPTR 123707 - . 123895) (\BACKPEEKBIN 123897 . 124258) (\BACKBIN 124260 . 124611) (BIN 124613 . 124830) (\BIN -124832 . 125109) (\BINS 125111 . 125397) (BOUT 125399 . 125761) (\BOUT 125763 . 126078) (\BOUTS 126080 - . 126391) (COPYBYTES 126393 . 129725) (COPYCHARS 129727 . 136649) (COPYFILE 136651 . 137448) ( -\COPYOPENFILE 137450 . 140523) (\INFER.FILE.TYPE 140525 . 141479) (EOFP 141481 . 141778) (FORCEOUTPUT -141780 . 142027) (\FLUSH.OPEN.STREAMS 142029 . 142385) (CHARSET 142387 . 144051) (ACCESS-CHARSET -144053 . 144270) (GETEOFPTR 144272 . 144522) (GETFILEINFO 144524 . 147717) (\TYPE.FROM.FILETYPE 147719 - . 148189) (\FILETYPE.FROM.TYPE 148191 . 148370) (GETFILEPTR 148372 . 148624) (SETFILEINFO 148626 . -152239) (SETFILEPTR 152241 . 153960) (BOUT16 153962 . 154147) (BIN16 154149 . 154338)) (154443 159648 -(\GENERIC.BINS 154453 . 154733) (\GENERIC.BOUTS 154735 . 155000) (\GENERIC.RENAMEFILE 155002 . 156833) - (\GENERIC.OPENP 156835 . 158150) (\GENERIC.READP 158152 . 159193) (\GENERIC.CHARSET 159195 . 159646)) - (159649 159988 (\MAP-OPEN-STREAMS 159659 . 159986)) (161858 163938 (\EOF.ACTION 161868 . 162119) ( -\EOSERROR 162121 . 162314) (\GETEOFPTR 162316 . 162498) (\INCFILEPTR 162500 . 162850) (\PEEKBIN 162852 - . 163043) (\SETCLOSEDFILELENGTH 163045 . 163379) (\SETEOFPTR 163381 . 163569) (\SETFILEPTR 163571 . -163936)) (163939 164481 (\FIXPOUT 163949 . 164249) (\FIXPIN 164251 . 164479)) (164482 165090 (\BOUTEOL - 164492 . 165088)) (168182 178046 (\BUFFERED.BIN 168192 . 169044) (\BUFFERED.PEEKBIN 169046 . 169828) -(\BUFFERED.BOUT 169830 . 170690) (\BUFFERED.BINS 170692 . 174377) (\BUFFERED.BOUTS 174379 . 176180) ( -\BUFFERED.COPYBYTES 176182 . 178044)) (178075 180427 (\NULLDEVICE 178085 . 180103) (\NULL.OPENFILE -180105 . 180425))))) + (FILEMAP (NIL (28417 31907 (STREAMPROP 28427 . 28861) (GETSTREAMPROP 28863 . 29336) (PUTSTREAMPROP +29338 . 31755) (STREAMP 31757 . 31905)) (31950 34469 (\DEFPRINT.BY.NAME 31960 . 33112) ( +\STREAM.DEFPRINT 33114 . 34162) (\FDEV.DEFPRINT 34164 . 34467)) (34727 39768 (\GETACCESS 34737 . 35191 +) (\SETACCESS 35193 . 39766)) (62772 64025 (MAKE-EXTERNALFORMAT 62782 . 64023)) (65211 72782 ( +\INSTALL.EXTERNALFORMAT 65221 . 66670) (\REMOVE.EXTERNALFORMAT 66672 . 67503) (FIND-FORMAT 67505 . +68056) (\EXTERNALFORMAT 68058 . 72780)) (73105 74924 (\CREATE.THROUGH.EXTERNALFORMAT 73115 . 73917) ( +\THROUGHIN 73919 . 74325) (\THROUGHBACKCCODE 74327 . 74572) (\THROUGHOUTCHARFN 74574 . 74922)) (75032 +81001 (\DEFINEDEVICE 75042 . 77358) (\GETDEVICEFROMNAME 77360 . 77833) (\GETDEVICEFROMHOSTNAME 77835 + . 78879) (\REMOVEDEVICE 78881 . 80004) (\REMOVEDEVICE.NAMES 80006 . 80999)) (81041 105701 (\CLOSEFILE + 81051 . 81876) (\DELETEFILE 81878 . 82172) (\DEVICEEVENT 82174 . 83944) (\GENERATEFILES 83946 . 84424 +) (\GENERATENEXTFILE 84426 . 85077) (\GENERATEFILEINFO 85079 . 85540) (\GETFILENAME 85542 . 85931) ( +\GENERIC.OUTFILEP 85933 . 86403) (\OPENFILE 86405 . 88983) (\DO.PARAMS.AT.OPEN 88985 . 91538) ( +\RENAMEFILE 91540 . 91964) (\REVALIDATEFILE 91966 . 94568) (\PAGED.REVALIDATEFILELST 94570 . 96128) ( +\PAGED.REVALIDATEFILES 96130 . 97849) (\PAGED.REVALIDATEFILE 97851 . 100134) (\BUFFERED.REVALIDATEFILE + 100136 . 102422) (\BUFFERED.REVALIDATEFILELST 102424 . 103608) (\PRINT-REVALIDATION-RESULT 103610 . +104025) (\TRUNCATEFILE 104027 . 104418) (\FILE-CONFLICT 104420 . 105699)) (105737 110400 ( +\GENERATENOFILES 105747 . 107843) (\NULLFILEGENERATOR 107845 . 108089) (\NOFILESNEXTFILEFN 108091 . +110082) (\NOFILESINFOFN 110084 . 110398)) (110519 112427 (\FILE.NOT.OPEN 110529 . 111042) ( +\FILE.WONT.OPEN 111044 . 111372) (\ILLEGAL.DEVICEOP 111374 . 111656) (\IS.NOT.RANDACCESSP 111658 . +112104) (\STREAM.NOT.OPEN 112106 . 112425)) (112562 114860 (\FDEVINSTANCE 112572 . 114858)) (116410 +123784 (CNDIR 116420 . 117725) (DIRECTORYNAME 117727 . 121910) (DIRECTORYNAMEP 121912 . 122528) ( +HOSTNAMEP 122530 . 123337) (\ADD.CONNECTED.DIR 123339 . 123782)) (123829 154472 (\BACKFILEPTR 123839 + . 124027) (\BACKPEEKBIN 124029 . 124390) (\BACKBIN 124392 . 124743) (BIN 124745 . 124962) (\BIN +124964 . 125241) (\BINS 125243 . 125529) (BOUT 125531 . 125893) (\BOUT 125895 . 126210) (\BOUTS 126212 + . 126523) (COPYBYTES 126525 . 129857) (COPYCHARS 129859 . 136781) (COPYFILE 136783 . 137580) ( +\COPYOPENFILE 137582 . 140655) (\INFER.FILE.TYPE 140657 . 141611) (EOFP 141613 . 141910) (FORCEOUTPUT +141912 . 142159) (\FLUSH.OPEN.STREAMS 142161 . 142517) (CHARSET 142519 . 144183) (ACCESS-CHARSET +144185 . 144402) (GETEOFPTR 144404 . 144654) (GETFILEINFO 144656 . 147849) (\TYPE.FROM.FILETYPE 147851 + . 148321) (\FILETYPE.FROM.TYPE 148323 . 148502) (GETFILEPTR 148504 . 148756) (SETFILEINFO 148758 . +152371) (SETFILEPTR 152373 . 154092) (BOUT16 154094 . 154279) (BIN16 154281 . 154470)) (154575 159780 +(\GENERIC.BINS 154585 . 154865) (\GENERIC.BOUTS 154867 . 155132) (\GENERIC.RENAMEFILE 155134 . 156965) + (\GENERIC.OPENP 156967 . 158282) (\GENERIC.READP 158284 . 159325) (\GENERIC.CHARSET 159327 . 159778)) + (159781 160120 (\MAP-OPEN-STREAMS 159791 . 160118)) (161990 164070 (\EOF.ACTION 162000 . 162251) ( +\EOSERROR 162253 . 162446) (\GETEOFPTR 162448 . 162630) (\INCFILEPTR 162632 . 162982) (\PEEKBIN 162984 + . 163175) (\SETCLOSEDFILELENGTH 163177 . 163511) (\SETEOFPTR 163513 . 163701) (\SETFILEPTR 163703 . +164068)) (164071 164613 (\FIXPOUT 164081 . 164381) (\FIXPIN 164383 . 164611)) (164614 165222 (\BOUTEOL + 164624 . 165220)) (168314 178178 (\BUFFERED.BIN 168324 . 169176) (\BUFFERED.PEEKBIN 169178 . 169960) +(\BUFFERED.BOUT 169962 . 170822) (\BUFFERED.BINS 170824 . 174509) (\BUFFERED.BOUTS 174511 . 176312) ( +\BUFFERED.COPYBYTES 176314 . 178176)) (178207 180559 (\NULLDEVICE 178217 . 180235) (\NULL.OPENFILE +180237 . 180557))))) STOP diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM index 0a6d02f9b18f8b47a1fbe351a81eebb0cc1e8781..db526598a93322454e92100789862feebcc9444a 100644 GIT binary patch delta 462 zcmZXPJ4*vW6ooe{h@{dcimPx9h%W*=kIiFHaCB!ekZfRFC54S9OH7CwG@=%Qjh%%u zmR2IxYB~!ow6Rq1KUn$`91Q`*TirX~;mkQF$6e3IU8jv6Y%@xjoj%)_4w-;BI0?R6 zNnjfzKn_EMVHAh8?Xa}9(WutLGDO4uM!j09HtPqY3|5pGnVD(}lkth@xR=d|c`0}x z+`n%6Cz4@U)gp7l1fnR7Y-B@eeRZ=E?m%-(n~i(^qIP_Z#ACl>P)0GMI!07&L}u0D zz11q4v4QC~(=g20ZbJ{hyfq&BdJSHF`aaJedGThiyS_>~ zM_j!R);vl;NLi48FzswQnwRz6gjbMx9_U`!Ca@UjVtGIWfhYz-`aIX>pu4DBYaliW z84R8)mLctQ2%EVkrA*m=e zIX|}`Gbc4gfh)D5pr}~YYO;WsSJbs=#GvVPIiyp^%)Bn3tYftWc50DY{3c(>j$NMT68X79NMufNq`8oPP zkaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;21 113815 +(FILECREATED " 5-Aug-2021 21:01:33"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;23 114018 - previous date%: "29-Jul-2021 20:32:10" -{DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;18) + changes to%: (FNS WRITEFILE) + + previous date%: " 5-Aug-2021 20:43:52" +{DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;22) (* ; " @@ -1229,7 +1231,7 @@ with the terms of said license. (ERROR FN '"not a function"]) (WRITEFILE - [LAMBDA (X FILE) (* bvm%: "30-Aug-86 16:45") + [LAMBDA (X FILE) (* ; "Edited 5-Aug-2021 20:58 by rmk:") (* ;; "X is a list of expression (or an atom that evaluates to a list) X is written on FILE. If X begins with a PRINTDATE expression, a new one is written. Following the PRETTYDEF conventions, if FILE is listed, it is left open. Otherwise a stop is printed and it is closed.") @@ -1243,11 +1245,12 @@ with the terms of said license. [RESETSAVE NIL (LIST (FUNCTION CLOSE-AND-MAYBE-DELETE) (SETQ STREAM (OPENSTREAM FILE 'OUTPUT] (RESETSAVE (OUTPUT STREAM)) + (\EXTERNALFORMAT STREAM *OLD-INTERLISP-READ-ENVIRONMENT*) [COND ((ATOM X) (SETQ X (EVAL X] - (PRIN1 " -(PRIN1 (QUOTE %" + (TERPRI) + (PRIN1 "(PRIN1 (QUOTE %" WRITEFILE OF ") (PRIN2 (SETQ FILE (FULLNAME STREAM))) (PRIN1 " MADE BY ") @@ -1255,9 +1258,9 @@ WRITEFILE OF ") (PRIN1 " ON ") (PRIN1 (DATE)) (PRIN1 " -%")T) - -") +%")T)") + (TERPRI) + (TERPRI) (for X1 in X do (PRINTDEF X1 NIL (EQ (CAR (LISTP X1)) 'DEFINEQ)) (TERPRI)) @@ -2378,23 +2381,23 @@ This has little hope of working any more.") (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 1989 1990 1991 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12804 26111 (LOAD? 12814 . 14665) (FILESLOAD 14667 . 14956) (DOFILESLOAD 14958 . 22206) - (FINDFILE-WITH-EXTENSIONS 22208 . 25667) (READ-FILECREATED 25669 . 26109)) (26228 31549 (DMPHASH -26238 . 27832) (HASHOVERFLOW 27834 . 31547)) (32345 63516 (BKBUFS 32355 . 33474) (CHANGENAME 33476 . -33737) (CHNGNM 33739 . 35587) (CLBUFS 35589 . 36862) (DEFINE 36864 . 37588) (FNS.PUTDEF 37590 . 41005) - (EQMEMB 41007 . 41189) (EQUALN 41191 . 42020) (FNCHECK 42022 . 44029) (FNTYP1 44031 . 44128) (LCSKIP -44130 . 44974) (MAPRINT 44976 . 45922) (MKLIST 45924 . 46074) (NAMEFIELD 46076 . 47601) (NLIST 47603 - . 47938) (PRINTBELLS 47940 . 48066) (PROMPTCHAR 48068 . 49958) (RAISEP 49960 . 50221) (READFILE 50223 - . 52567) (READLINE 52569 . 58009) (REMPROPLIST 58011 . 58899) (RESETBUFS 58901 . 59351) (TAB 59353 . -59949) (UNSAVED1 59951 . 61056) (WRITEFILE 61058 . 62634) (CLOSE-AND-MAYBE-DELETE 62636 . 62980) ( -UNSAFE.TO.MODIFY 62982 . 63514)) (65840 68784 (FILEDATE 65850 . 68782)) (69014 92753 (FILEMAP 69024 . -69494) (\PARSE-FILE-HEADER 69496 . 73311) (GET-ENVIRONMENT-AND-FILEMAP 73313 . 75540) ( -LOOKUP-ENVIRONMENT-AND-FILEMAP 75542 . 77733) (GET-FILEMAP-FROM-FILECREATED 77735 . 78559) ( -\FILEMAP-HASHOVERFLOW 78561 . 83225) (FLUSHFILEMAPS 83227 . 83850) (LISPSOURCEFILEP 83852 . 85031) ( -GETFILEMAP 85033 . 85452) (PUTFILEMAP 85454 . 87645) (UPDATEFILEMAP 87647 . 92751)) (93370 96956 ( -LVLPRINT 93380 . 93553) (LVLPRIN1 93555 . 93737) (LVLPRIN2 93739 . 93971) (LVLPRIN 93973 . 94987) ( -LVLPRIN0 94989 . 96954)) (96990 101907 (FLUSHRIGHT 97000 . 97815) (PRINTPARA 97817 . 98915) ( -PRINTPARA1 98917 . 101905)) (101943 104228 (SUBLIS 101953 . 102561) (SUBPAIR 102563 . 103791) (DSUBLIS - 103793 . 104226)) (104251 104851 (CONSTANTOK 104261 . 104849)) (106929 107634 (NLAMBDA.ARGS 106939 . -107632))))) + (FILEMAP (NIL (12841 26148 (LOAD? 12851 . 14702) (FILESLOAD 14704 . 14993) (DOFILESLOAD 14995 . 22243) + (FINDFILE-WITH-EXTENSIONS 22245 . 25704) (READ-FILECREATED 25706 . 26146)) (26265 31586 (DMPHASH +26275 . 27869) (HASHOVERFLOW 27871 . 31584)) (32382 63719 (BKBUFS 32392 . 33511) (CHANGENAME 33513 . +33774) (CHNGNM 33776 . 35624) (CLBUFS 35626 . 36899) (DEFINE 36901 . 37625) (FNS.PUTDEF 37627 . 41042) + (EQMEMB 41044 . 41226) (EQUALN 41228 . 42057) (FNCHECK 42059 . 44066) (FNTYP1 44068 . 44165) (LCSKIP +44167 . 45011) (MAPRINT 45013 . 45959) (MKLIST 45961 . 46111) (NAMEFIELD 46113 . 47638) (NLIST 47640 + . 47975) (PRINTBELLS 47977 . 48103) (PROMPTCHAR 48105 . 49995) (RAISEP 49997 . 50258) (READFILE 50260 + . 52604) (READLINE 52606 . 58046) (REMPROPLIST 58048 . 58936) (RESETBUFS 58938 . 59388) (TAB 59390 . +59986) (UNSAVED1 59988 . 61093) (WRITEFILE 61095 . 62837) (CLOSE-AND-MAYBE-DELETE 62839 . 63183) ( +UNSAFE.TO.MODIFY 63185 . 63717)) (66043 68987 (FILEDATE 66053 . 68985)) (69217 92956 (FILEMAP 69227 . +69697) (\PARSE-FILE-HEADER 69699 . 73514) (GET-ENVIRONMENT-AND-FILEMAP 73516 . 75743) ( +LOOKUP-ENVIRONMENT-AND-FILEMAP 75745 . 77936) (GET-FILEMAP-FROM-FILECREATED 77938 . 78762) ( +\FILEMAP-HASHOVERFLOW 78764 . 83428) (FLUSHFILEMAPS 83430 . 84053) (LISPSOURCEFILEP 84055 . 85234) ( +GETFILEMAP 85236 . 85655) (PUTFILEMAP 85657 . 87848) (UPDATEFILEMAP 87850 . 92954)) (93573 97159 ( +LVLPRINT 93583 . 93756) (LVLPRIN1 93758 . 93940) (LVLPRIN2 93942 . 94174) (LVLPRIN 94176 . 95190) ( +LVLPRIN0 95192 . 97157)) (97193 102110 (FLUSHRIGHT 97203 . 98018) (PRINTPARA 98020 . 99118) ( +PRINTPARA1 99120 . 102108)) (102146 104431 (SUBLIS 102156 . 102764) (SUBPAIR 102766 . 103994) (DSUBLIS + 103996 . 104429)) (104454 105054 (CONSTANTOK 104464 . 105052)) (107132 107837 (NLAMBDA.ARGS 107142 . +107835))))) STOP diff --git a/sources/MACHINEINDEPENDENT.LCOM b/sources/MACHINEINDEPENDENT.LCOM index b675c4bf7d046a9aa321f4965f3778df60d88d26..00fd88daba8cdf4866b56dabfdc5f83e035de11f 100644 GIT binary patch delta 563 zcmY+BPfHs?7>6~Ajr$c!+n);-mm=ABCX;N|TG^6W3~VOpX4d|p2%0P^R1*>vZ(cn% z?4=*0#k2G)^wMJw{TRJ3U^ z;%Jk(j6lLC?lZDs9Zu8X_;hmeDIFobnoMWwKHkP1EyGSE=YMLC?xT&Yw)o^>=8cLt zi0UqR7#<&-9i=mzk4@`Fs0Ogg0S+e9^zvkUF~jKKJT-y;Jecd(xi8rKMlG`2XO*+o zGD0*myjojvu<&zfIm@ zTprYFLd&=xcMKBDsdQV0pr%{a8{z@oB9gyONp*pCpv|ayS>h!zfn*?K6?9F273FJX z+UY*QKrTm^L{X72GPwc4E3KNwbuWm}XyT)MXH-=Xg}t~NXb3_t(fve&dFb_}8t7OC zUB}uW&p4UiQSuFp-oF$tD0{lS_Cg5Q*1GLz#|Ck8K~I^DD93KlmU#W%P>aF7J>CBC F;V)c+i*o<~ delta 416 zcmZ9H!AiqG5Qf_nqy|**>|t0b8nn8TZJK1;D$#7AB}R#~ZYf=*d zbDZXR&L*Ir*E^Tp_DVy}CpXu}vc-s@ua+x;*o}l23;*9=i&K|VN4An7s#eGxw4i(4 zylZuOH_$k{ZDu&=#B{UOUVAdnq@0<`4guLtRyA}6k#^?y-;gNmhRVP z6YA9Up%lf6>=)M_(6K>;{>TlWZ9y!egQx~=U9*M4bR_bMD