From 54b26070700511727b0a20a9a3f93866cc037493 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Fri, 19 Jan 2024 23:53:12 -0800 Subject: [PATCH] Removed STORAGE.LCOM (#1511) --- sources/MACHINEINDEPENDENT | 74 +++++++++++++++----------------- sources/MACHINEINDEPENDENT.LCOM | Bin 41179 -> 41486 bytes 2 files changed, 34 insertions(+), 40 deletions(-) diff --git a/sources/MACHINEINDEPENDENT b/sources/MACHINEINDEPENDENT index 8c0df55b..d1393294 100644 --- a/sources/MACHINEINDEPENDENT +++ b/sources/MACHINEINDEPENDENT @@ -1,20 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Jul-2022 19:55:30" {DSK}larry>medley>sources>MACHINEINDEPENDENT.;4 117970 +(FILECREATED "18-Jan-2024 10:40:56" {WMEDLEY}MACHINEINDEPENDENT.;38 117576 - :CHANGES-TO (VARS MACHINEINDEPENDENTCOMS) - (FNS UNSAFE.TO.MODIFY) + :EDIT-BY rmk - :PREVIOUS-DATE "20-Jul-2022 15:26:15" {DSK}larry>medley>sources>MACHINEINDEPENDENT.;3) + :CHANGES-TO (FNS LISPSOURCEFILEP) + :PREVIOUS-DATE "20-Jul-2022 19:55:30" {WMEDLEY}MACHINEINDEPENDENT.;36) -(* ; " -Copyright (c) 1983-1991, 2021-2022 by Venue & Xerox Corporation. -The following program was created in 1983 but has not been published -within the meaning of the copyright law, is furnished under license, -and may not be used, copied and/or disclosed except in accordance -with the terms of said license. -") (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) @@ -1665,6 +1658,8 @@ WRITEFILE OF ") (LISPSOURCEFILEP [LAMBDA (FILE) + (* ;; "Edited 18-Jan-2024 10:40 by rmk") + (* ;; "Edited 22-May-2022 09:49 by rmk: If FILE is a stream but not open for input, open it") (* ;; "Edited 9-Jul-2021 22:12 by rmk:") @@ -1676,16 +1671,17 @@ WRITEFILE OF ") (GETSTREAM FILE 'INPUT T)) [RESETSAVE NIL (LIST 'CLOSEF (SETQ FILE (OPENSTREAM FILE 'INPUT]) (CL:WHEN (RANDACCESSP FILE) - (LET ((HERE (GETFILEPTR FILE))) - (CL:MULTIPLE-VALUE-BIND (ENV MAP) - [\PARSE-FILE-HEADER FILE (FUNCTION (LAMBDA (STREAM) + (LET ((HERE (GETFILEPTR FILE)) + ENV MAP) + [NLSETQ (CL:MULTIPLE-VALUE-SETQ (ENV MAP) + (\PARSE-FILE-HEADER FILE (FUNCTION (LAMBDA (STREAM) (* ;  "Pointed now right after the FILECREATED expression") - (CAR (NLSETQ (SKREAD STREAM) - (SKREAD STREAM) - (FIXP (READ STREAM] - (SETFILEPTR FILE HERE) - (CL:VALUES ENV MAP)))))]) + (CAR (NLSETQ (SKREAD STREAM) + (SKREAD STREAM) + (FIXP (READ STREAM] + (SETFILEPTR FILE HERE) + (CL:VALUES ENV MAP))))]) (LISPFILETYPE [LAMBDA (FILE) (* ; "Edited 22-May-2022 13:18 by rmk") @@ -2466,26 +2462,24 @@ This has little hope of working any more.") (LOCALVARS . T) ) -(PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 -1989 1990 1991 2021 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12904 26329 (LOAD? 12914 . 14765) (FILESLOAD 14767 . 15056) (DOFILESLOAD 15058 . 22684) - (FINDFILE-WITH-EXTENSIONS 22686 . 25885) (READ-FILECREATED 25887 . 26327)) (26446 31767 (DMPHASH -26456 . 28050) (HASHOVERFLOW 28052 . 31765)) (32523 64631 (BKBUFS 32533 . 33652) (CHANGENAME 33654 . -33915) (CHNGNM 33917 . 35765) (CLBUFS 35767 . 37040) (DEFINE 37042 . 37766) (FNS.PUTDEF 37768 . 41183) - (EQMEMB 41185 . 41367) (EQUALN 41369 . 42198) (FNCHECK 42200 . 44207) (FNTYP1 44209 . 44306) (LCSKIP -44308 . 45152) (MAPRINT 45154 . 46100) (MKLIST 46102 . 46252) (NAMEFIELD 46254 . 47779) (NLIST 47781 - . 48116) (PRINTBELLS 48118 . 48244) (PROMPTCHAR 48246 . 50136) (RAISEP 50138 . 50399) (READFILE 50401 - . 52745) (READLINE 52747 . 58187) (REMPROPLIST 58189 . 59077) (RESETBUFS 59079 . 59529) (TAB 59531 . -60127) (UNSAVED1 60129 . 61234) (WRITEFILE 61236 . 62978) (CLOSE-AND-MAYBE-DELETE 62980 . 63324) ( -UNSAFE.TO.MODIFY 63326 . 64629)) (66986 69930 (FILEDATE 66996 . 69928)) (70160 97262 (FILEMAP 70170 . -70640) (\PARSE-FILE-HEADER 70642 . 74457) (GET-ENVIRONMENT-AND-FILEMAP 74459 . 76686) ( -LOOKUP-ENVIRONMENT-AND-FILEMAP 76688 . 78879) (GET-FILEMAP-FROM-FILECREATED 78881 . 79705) ( -\FILEMAP-HASHOVERFLOW 79707 . 84371) (FLUSHFILEMAPS 84373 . 84996) (LISPSOURCEFILEP 84998 . 86289) ( -LISPFILETYPE 86291 . 89540) (GETFILEMAP 89542 . 89961) (PUTFILEMAP 89963 . 92154) (UPDATEFILEMAP 92156 - . 97260)) (97928 101514 (LVLPRINT 97938 . 98111) (LVLPRIN1 98113 . 98295) (LVLPRIN2 98297 . 98529) ( -LVLPRIN 98531 . 99545) (LVLPRIN0 99547 . 101512)) (101548 106465 (FLUSHRIGHT 101558 . 102373) ( -PRINTPARA 102375 . 103473) (PRINTPARA1 103475 . 106463)) (106501 108786 (SUBLIS 106511 . 107119) ( -SUBPAIR 107121 . 108349) (DSUBLIS 108351 . 108784)) (108809 109409 (CONSTANTOK 108819 . 109407)) ( -111162 111867 (NLAMBDA.ARGS 111172 . 111865))))) + (FILEMAP (NIL (12537 25962 (LOAD? 12547 . 14398) (FILESLOAD 14400 . 14689) (DOFILESLOAD 14691 . 22317) + (FINDFILE-WITH-EXTENSIONS 22319 . 25518) (READ-FILECREATED 25520 . 25960)) (26079 31400 (DMPHASH +26089 . 27683) (HASHOVERFLOW 27685 . 31398)) (32156 64264 (BKBUFS 32166 . 33285) (CHANGENAME 33287 . +33548) (CHNGNM 33550 . 35398) (CLBUFS 35400 . 36673) (DEFINE 36675 . 37399) (FNS.PUTDEF 37401 . 40816) + (EQMEMB 40818 . 41000) (EQUALN 41002 . 41831) (FNCHECK 41833 . 43840) (FNTYP1 43842 . 43939) (LCSKIP +43941 . 44785) (MAPRINT 44787 . 45733) (MKLIST 45735 . 45885) (NAMEFIELD 45887 . 47412) (NLIST 47414 + . 47749) (PRINTBELLS 47751 . 47877) (PROMPTCHAR 47879 . 49769) (RAISEP 49771 . 50032) (READFILE 50034 + . 52378) (READLINE 52380 . 57820) (REMPROPLIST 57822 . 58710) (RESETBUFS 58712 . 59162) (TAB 59164 . +59760) (UNSAVED1 59762 . 60867) (WRITEFILE 60869 . 62611) (CLOSE-AND-MAYBE-DELETE 62613 . 62957) ( +UNSAFE.TO.MODIFY 62959 . 64262)) (66619 69563 (FILEDATE 66629 . 69561)) (69793 96996 (FILEMAP 69803 . +70273) (\PARSE-FILE-HEADER 70275 . 74090) (GET-ENVIRONMENT-AND-FILEMAP 74092 . 76319) ( +LOOKUP-ENVIRONMENT-AND-FILEMAP 76321 . 78512) (GET-FILEMAP-FROM-FILECREATED 78514 . 79338) ( +\FILEMAP-HASHOVERFLOW 79340 . 84004) (FLUSHFILEMAPS 84006 . 84629) (LISPSOURCEFILEP 84631 . 86023) ( +LISPFILETYPE 86025 . 89274) (GETFILEMAP 89276 . 89695) (PUTFILEMAP 89697 . 91888) (UPDATEFILEMAP 91890 + . 96994)) (97662 101248 (LVLPRINT 97672 . 97845) (LVLPRIN1 97847 . 98029) (LVLPRIN2 98031 . 98263) ( +LVLPRIN 98265 . 99279) (LVLPRIN0 99281 . 101246)) (101282 106199 (FLUSHRIGHT 101292 . 102107) ( +PRINTPARA 102109 . 103207) (PRINTPARA1 103209 . 106197)) (106235 108520 (SUBLIS 106245 . 106853) ( +SUBPAIR 106855 . 108083) (DSUBLIS 108085 . 108518)) (108543 109143 (CONSTANTOK 108553 . 109141)) ( +110896 111601 (NLAMBDA.ARGS 110906 . 111599))))) STOP diff --git a/sources/MACHINEINDEPENDENT.LCOM b/sources/MACHINEINDEPENDENT.LCOM index 7fe3aee300f69e3f041f23cd364e78d2a077e135..f87de65ba0a4986c4555bee1a9cea8176e9366c0 100644 GIT binary patch delta 883 zcmZvaT~E_c7{}KF3Pr{SXtc)o(5Trkou^&fZH+P1?i9LoU1_^@pb0O9utgaLjWIC> z?@f$)?)?r1?}-VwegeOPpTG-Gn<--G#d&$o^Zfh!Kj-}T#=bvcKSW5XijB>IC?i<` z3F!*bRZW0`5by6j>p$JuhW!Bu@H%SZx`S8W+$UM~#$mMxoFHkZm2z2^RlO_;uywHW zw>0i;4t95*-`2sg121T`eG^-@gFWa|QLF7Z@UKXzR1#o&^9B9sx$3G=YzxC#e*Pk__SWy4*nw@cSXK9^mtSpj~$Qx$Nb+^dXXo^fsYlAW* zCcpv(u-l=t3QfbKvj%~!>#h^va7FAGP8$~?BaV!+nf_vah7EQz^y89YA{o}0c>K7* zGBJ1DV0wIfDLv0+3NnJn%?|B(2$D+j+1VUzoFaqnw*00+n~uoGwabL-P7yY`LSA-( zFzfMT0^xy_K#?!^t}B&4oYj!N7{IE_)^w<~b?>f&gI ziLxo==O~+E^(PbLBO%=kW2u!m+vEA(HqS>nKF%Ev%f42Ji~KyB&y8#(#nBAk-%l5F ze17DDlj_gRM%m?5$Zp(XSn6KNOEM&+$x91;>Q+wdI>}YZP(iSCdZtO>8*be&O&kOs zlxxuPup5N*eKmo$k){qe^ls9qM_XBy$j{QX`LY7G>$O9WD_}aU09zmpLo^9$h!|aT N^lSBzHR{?9_Z#(I&9?vm delta 819 zcmaKr-)qxA9Kf48Va68)A4-_)OAt*4Elt`aO^``QFKxCo3At<9vb}U|aD{FeWdn!E z{sU3ZSJD4KVLmA`1i?STzrY7U{{t_rFqN@;_}tz1zCZ82_w-Bg+vno5-UGE--Z+|; z)vBt3Vp^JRX*Cffag^;HOs44=vV9PNf84~IPwww#d+GXgIGY`>@1^5udc013ZlzS0 zK~&6t{8Z~!&3OK)lb{tQ4G_l0&h8OJ7^(XCLu_P9b@R&PTLER7c^0X7y{yi9V~<7 z1{nU&m%iavMa@!mOVLCgE(v=3^cN=*`XgDU{k~3<8{s17KNT=ma})jF3( z@)9o@HM%+wR-mSU7erkGss@f9V&sCNE=2Ta_txp#tu6ONVhT|lMi)IDIAJu1y;hsB zu1(VYqZIB!Kb>Wdz{zF@*=%??$@WDctlwB^46HTGhL%ImVdQ84&uFrxSxd