From 58557d383a2511c328b958d4061f7dff2f74b212 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 10 Oct 2022 18:57:26 -0700 Subject: [PATCH] Fix simple typo in UNIXCOMM (#979) --- library/UNIXCOMM | 29 +++++++++++++++-------------- library/UNIXCOMM.LCOM | Bin 9183 -> 8367 bytes 2 files changed, 15 insertions(+), 14 deletions(-) diff --git a/library/UNIXCOMM b/library/UNIXCOMM index 13153311..5251821f 100644 --- a/library/UNIXCOMM +++ b/library/UNIXCOMM @@ -1,12 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Jul-2022 10:42:46"  -{DSK}kaplan>local>medley3.5>working-medley>library>UNIXCOMM.;6 20326 +(FILECREATED " 8-Oct-2022 16:06:36" {DSK}c>Users>Larry>home>medley>library>UNIXCOMM.;2 20352 - :CHANGES-TO (FNS INITIALIZE-NEW-SHELL-DEVICE) + :CHANGES-TO (FNS CREATE-PROCESS-STREAM) - :PREVIOUS-DATE " 3-Jul-2022 16:16:31" -{DSK}kaplan>local>medley3.5>working-medley>library>UNIXCOMM.;5) + :PREVIOUS-DATE " 7-Jul-2022 10:42:46" +{DSK}c>Users>Larry>home>medley>library>UNIXCOMM.;1) (* ; " @@ -133,6 +132,8 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (CREATE-PROCESS-STREAM [LAMBDA (COMM) + (* ;; "Edited 8-Oct-2022 16:04 by lmm") + (* ;; "Edited 3-Jul-2022 16:04 by rmk: Removed external format here, the device has the environmental defaultg") (* ;; "Edited 26-Jun-2022 13:52 by larry") @@ -141,7 +142,7 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (* ;; "Edited 21-May-90 15:39 by jrb:") - (LET* ((SHELL-DEV (if (AND (BOUNDP '*NEW-SHELL-DEVICE) + (LET* ((SHELL-DEV (if (AND (BOUNDP '*NEW-SHELL-DEVICE*) (SUBRCALL UNIX-HANDLECOMM 8)) then (* ;  "SUBRCALL tests that this is supported") @@ -455,12 +456,12 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (PUTPROPS UNIXCOMM FILETYPE FAKE-COMPILE-FILE) (PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2492 8463 (FORK-SHELL 2502 . 3699) (FORK-UNIX 3701 . 3877) (UNIX-KILL 3879 . 4068) ( -UNIX-WRITE 4070 . 4781) (CREATE-SHELL-STREAM 4783 . 6099) (CREATE-PROCESS-STREAM 6101 . 7560) ( -UNIXCOMM-AROUNDEXITFN 7562 . 8461)) (8511 13805 (INITIALIZE-NEW-SHELL-DEVICE 8521 . 9920) ( -UNIX-GET-NEXT-BUFFER 9922 . 12122) (UNIX-BACKFILEPTR-NEW 12124 . 12603) (UNIX-STREAM-EOFP-NEW 12605 . -13151) (UNIX-STREAM-OUT 13153 . 13409) (UNIX-STREAM-CLOSE 13411 . 13803)) (14061 15926 ( -CREATE-UNIX-SOCKET-STREAM 14071 . 14932) (ACCEPT-UNIX-SOCKET-STREAM 14934 . 15924)) (16275 19735 ( -UNIX-BACKFILEPTR 16285 . 16783) (UNIX-READ 16785 . 17307) (INITIALIZE-SHELL-DEVICE 17309 . 18329) ( -UNIX-STREAM-IN 18331 . 18707) (UNIX-STREAM-EOFP 18709 . 19483) (UNIX-STREAM-PEEK 19485 . 19733))))) + (FILEMAP (NIL (2467 8489 (FORK-SHELL 2477 . 3674) (FORK-UNIX 3676 . 3852) (UNIX-KILL 3854 . 4043) ( +UNIX-WRITE 4045 . 4756) (CREATE-SHELL-STREAM 4758 . 6074) (CREATE-PROCESS-STREAM 6076 . 7586) ( +UNIXCOMM-AROUNDEXITFN 7588 . 8487)) (8537 13831 (INITIALIZE-NEW-SHELL-DEVICE 8547 . 9946) ( +UNIX-GET-NEXT-BUFFER 9948 . 12148) (UNIX-BACKFILEPTR-NEW 12150 . 12629) (UNIX-STREAM-EOFP-NEW 12631 . +13177) (UNIX-STREAM-OUT 13179 . 13435) (UNIX-STREAM-CLOSE 13437 . 13829)) (14087 15952 ( +CREATE-UNIX-SOCKET-STREAM 14097 . 14958) (ACCEPT-UNIX-SOCKET-STREAM 14960 . 15950)) (16301 19761 ( +UNIX-BACKFILEPTR 16311 . 16809) (UNIX-READ 16811 . 17333) (INITIALIZE-SHELL-DEVICE 17335 . 18355) ( +UNIX-STREAM-IN 18357 . 18733) (UNIX-STREAM-EOFP 18735 . 19509) (UNIX-STREAM-PEEK 19511 . 19759))))) STOP diff --git a/library/UNIXCOMM.LCOM b/library/UNIXCOMM.LCOM index a60a6296d9245ed371bcecacccdd874c147c6680..ad46fce167b5ce3dce08e3cffd5cc47704c4e7d5 100644 GIT binary patch delta 2136 zcmb7EO>Em_73Ng%;?ew&TTZsIg<9XpGitwlxZXrd)0r6_HY zDl~$aCXTRu0}dP}q@Ccftv?qe6d^beq;cbC5`x1{Tu=}fE)%?VGTO9AK%`jtUVnMt z=Xu}fd4Ha|ExtSJP6V~ZwII*(JmO->a5NdcwsfSixN)geufA5ESez)Xmg}n%%Efwp zW1_OMT%K4imulsWiCXog`bCHpRe3h0<#M4jydQZ{d{4eaG7?GhVK4H+g}kgt!3;b~ zUgWC2g1i^XwMEE>)>cqvy;dvN(dx$P%K92Y@y2eFP$=X@rHgCj(t+gBNHU!8`dvOV zYpNiLhLna&y^L5O74xFk)B4Qiv;URW>0VxlXTwq6g_5bPs7^_G(9n=Cqv{BY&Y`j& zCG!R8ysQ=VU>Y!3IH%WZ-KMh12%n4q1lRw=&;x0EAdM+}KbOXAP%NMjf;=|#+M{Ycf=5@&sQz=Q;5tm@`m;J|| zjYN<+#}K?p%X(fB=Zv|$1b>EH`$9aX9ixLhWR=vk4sDmzyjT!(I;NQ6Q!y0Kvy!3& z)6kKW6o3i|G^rU`#Kog1nU*qQQ8DmM$LF}}9J4*ZZ#$2ZVjuq4d9~51>^Lu(L|o>h zIaAtmpl$uafEk|O9?2~Wp8k2M$Yl#6T7 z3mp(NP0IG2z6xdgw03y9#avz|mmjv@pSDmpWpeJ$1H#8a-%^UEOBoc6c7H+jaejZ> z5)m{h0Zd7s)3u_3;<4^IC(f8L6pMEPPD#W-qVXU)VW3S!r({>-3qbwr@;s-m6eFWfzw2 z5lvzGo~=q*Nubx`F{Ed;qLNk(6iYy7wM>DDoE(d0;blkiK~*z?T3%97;!)wRX@BJ;q=LeXH4CA_FwF&s5Q6n= zIV`;~jwbL5v#22DwDS^*cgoDjiegp?@1GDC-xq;f_*bvy=xid~W=3flu_!MZSyjwQ zeni|S@ptYIaD6b)u*usaS-Gp@Y!?UUI13m|r|k7;jN7kVi*{mPeb`b5WW<4vG*wCm z#X>=x0}rwtWk1eEW4qFxXKv%sp_Ax)kcHVM`dokQ36KOiS6cqFef=)+#kT#eyToVs zzWW${bLeH*I!7BXK0=?{MQ^(B-+gDHKd>lF_a4|C|6oMKu?dusabV!pp>PxhROv#n zXXW5?BR)0Mk=pQwD==q5uqI3iEzc)C=Tgf#0zLWj=GScMLl-7G*~)wyohEw@?zT Q9`0!u#~%QQ&z!jR7aJ@ahyVZp delta 2998 zcma)8O>7ip7@plNg>Iql%Cap5?Mn@~t?n{EyR$zC>2&wo?zFQr%gz+G%7IE7TG&zo z5>P`nF~NkJ_?Z~>;>pB#Kw5h7VB^Ku7&Im(CMNz|JerhnF=~SE%r~>0wjOBG_M7i- z-sgGW=XvL@^4r)u4f;c1-<^ft!`H6PUb%YW;`HU_^raKc#dFim6AQC5&DqzbROZC> z#VZ%*FP%@``FQ_Pc?bqUPL5w|CPiKpLC6=xd?6zbLip7yv*#8UF3&e-XJGcmJBz&d@S>(-7=4u9z5F4*skDzVsEd&YUFvLPJ`r;f^bFfD{y zt<{Yhh#ATMDCBc+#w3c&co^^6GL_DG zTlJEOloGwB)Rn3UVjAB>woXbSluP6kh+-Co%?i=9BtEJ|GK^D#yLL>Fw=MEHH*PEq z2}TX8g3S1ca-arj`cL<>fxl`0?n6N#M33*j)pF=rn_Jm= z-X<$-|5=@w@jXNX9V1=#bTqJ|djE*V`1F&jowb+QMVz1Q8P?Z2AOw9h(r**>H>jxGo9a-=p14vNCPpaOk>i5oZvoJl?i(evZ6bo z8DsW_w9H^2Pgpa{r=R*M)VkimaUsP?-1^e|2unxM{U3`y9o%JSX;oc1)a+87)yhhQ zEjPmhjaYECa`Rf~<&~b%x%K-Amh#B_`g@~G-^@j#kr3N@;Q_bGM&l0x^AYDxOt&DM zmcgtTlUhl)Ad4CzMmePvE!EHgOMFx_iW4>;JZ^Ku2l@7>tw2bp!K^BphO!jhee~GhD(VAHjV#)DN1Ter2s1e#^}12VAf$Fq zP;+iHLdF|;1KbE15eAFXmuMxn);)-~xpdOrea{d{z%&<}J5hL!=98!Eszvain1Kc^ zvb&SIVI_?k(Lul$GkD%h=;FSiRt|6W(8V07F*tLvm|Kdtfg3q%|8-U7po(>_+Q4|I zld5rwfFQCcCR9zsAkc0cXTi$cVk~XXaVqgSzvmzlmk}>SylE&*fA8pjzEH}A6E%>) zbrUB=paKsy#j5B^l?(y*X9sP?-*?S8-aFh1P24}iv@+p0jd4F5G>vh)iqOCO<}1sd zO?WP0b1S+U7ExPUfQe`T%uSICwnkss)0Go>EG$-b0*cMhNhzt+>&g_mWXAOgS@8J; zCf>e>e%pI@cLsEF+C5Eg^c^|;2$RsxS5)a}?m^`Qr)Cx&ufKbb`}uz8t$W;$^vk~6 z8!d_1tm-GgZAo@g*KF6UA^{@5nSfmO{|J!ME=V!IjR54tC16w58%{qF_%;h@$ZpFJ zeXz6cX#p$Mu}4)W8qvq>-hzgHhOv;sf=)RFotNp!?!CwCDAD?Cc{$qG4YjI_5u;`T zvg)038&j&PG)5=OWl}dG%~PdsZx?vAM$h*rTBAO($3OC`n8{+T@3ZZb-jbvKSX@Oi z(>zl=cAvKNeOA+!K7PFTOMVxA8DN=#M1SdjAt*?+>%f`r9LD5{e{tZz_@~P9zph2H zH>=3? z@)vXQ&mVFLDa&jXung=jo5XLL65hEXVNc7>i<~VCXc9xLVcH!zqm5PY(|{j_qM_@K zoY^iEGx4Va+d`g2L>C7JSPM~O@izXs2&b!BI3au14I6CRmdl)PqeZuq{>eb5b!da& zwfIUeyL3cxe9o6sYzv#9dUv!d$bp)`Z%)gaDjN8Sr(!>{kKjWUe@)y_uPG-_ZkmMU TeDGlh4aTeVVds8&1aAKa){CzH