From 93a04227d8ebc14649f6ee12760ca01adb6b390e Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 23 Feb 2026 12:04:11 -0800 Subject: [PATCH] Rmk158 Remake files to convert the 247Q package-delimiter in DEFINE-FILE-INFO to 30Q (#2506) * Remake files to convert the 247Q package-delimiter in DEFINE-FILE-INFO expressions to 30Q * Remake TRANSOR after removing HIST command * Remake TRANSOR-LOADTRAN after changing the filecoms variable --- library/lafite/LAFITE-INDENT | 127 +++++------ library/lafite/LAFITE-INDENT.LCOM | Bin 10060 -> 9771 bytes library/lafite/LAFITE-PRIVATEDL | 71 +++---- library/lafite/LAFITE-PRIVATEDL.LCOM | Bin 0 -> 3823 bytes lispusers/BACKGROUNDMENU | 24 +-- lispusers/BACKGROUNDMENU.LCOM | Bin 3323 -> 3272 bytes lispusers/COMMWINDOW | 139 ++++++------ lispusers/COMMWINDOW.LCOM | Bin 17353 -> 17925 bytes lispusers/COMPILEBANG.LCOM | Bin 1936 -> 1806 bytes lispusers/CROCK | 116 +++++----- lispusers/CROCK.LCOM | Bin 8979 -> 8947 bytes lispusers/DEFAULTICON | 277 ++++++++++++------------ lispusers/DEFAULTSUBITEMFN | 17 +- lispusers/DEFAULTSUBITEMFN.LCOM | Bin 820 -> 781 bytes lispusers/LAMBDATRAN | 81 +++---- lispusers/LAMBDATRAN.LCOM | Bin 3900 -> 3793 bytes lispusers/LAYOUT-SEDIT | 189 ++++++++--------- lispusers/LAYOUT-SEDIT.LCOM | 53 ++++- lispusers/PHONE-DIRECTORY | 50 ++--- lispusers/SKETCHCOLOR | 49 ++--- lispusers/TRANSOR | 148 +++++++------ lispusers/TRANSOR-LOADTRAN | 50 ++--- lispusers/TRANSOR-LOADTRAN.LCOM | Bin 1333 -> 1083 bytes lispusers/TRANSOR.LCOM | Bin 16465 -> 24248 bytes lispusers/UNBOXEDOPS | 306 +++++++++++++-------------- lispusers/UNBOXEDOPS.DFASL | Bin 0 -> 9512 bytes lispusers/WHOCALLS | 37 ++-- lispusers/WHOCALLS.LCOM | Bin 2490 -> 2359 bytes lispusers/compilebang | 34 ++- 29 files changed, 889 insertions(+), 879 deletions(-) create mode 100644 library/lafite/LAFITE-PRIVATEDL.LCOM create mode 100644 lispusers/UNBOXEDOPS.DFASL diff --git a/library/lafite/LAFITE-INDENT b/library/lafite/LAFITE-INDENT index c6f15824..70948f71 100644 --- a/library/lafite/LAFITE-INDENT +++ b/library/lafite/LAFITE-INDENT @@ -1,13 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "15-Feb-2025 14:11:54" {WMEDLEY}lafite>LAFITE-INDENT.;4 26926 +(FILECREATED "18-Feb-2026 15:47:08" {WMEDLEY}LAFITE>LAFITE-INDENT.;2 26210 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT-INDENT-BREAK-LONG-LINES TEDIT-INDENT-SELECTION TEDIT-OPEN-LINE - TEDIT-MAKE-LINES-EXPLICIT TEDIT-INDENT-SET-INDENT) - - :PREVIOUS-DATE "15-Feb-2025 09:21:58" {WMEDLEY}lafite>LAFITE-INDENT.;3) + :PREVIOUS-DATE "22-Jan-87 01:34:36" {WMEDLEY}LAFITE>LAFITE-INDENT.;1) (PRETTYCOMPRINT LAFITE-INDENTCOMS) @@ -133,10 +130,14 @@ max-length max-length]) (TEDIT-INDENT-BREAK-LONG-LINES - [LAMBDA (text-stream explicit-paragraph-breaks?) (* ; "Edited 15-Feb-2025 14:07 by rmk") - (* smL "21-Jan-87 16:03") - -(* ;;; "Break the current selection into explicit lines, each having no more than *TEDIT-INDENT-LINE-LENGTH* characters. --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed. --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document") + [LAMBDA (text-stream explicit-paragraph-breaks?) (* smL "21-Jan-87 16:03") + + (* * Break the current selection into explicit lines, each having no more than + *TEDIT-INDENT-LINE-LENGTH* characters. - + If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in + the current selection are removed. - + This is intended to be used in Lafite, where one wants to indent a piece of a + forwarded document, but can be used in any TEdit document) (LET ((selection (TEDIT.GETSEL text-stream))) (TEDIT-INDENT-REPLACE-SELECTION @@ -144,13 +145,11 @@ (CONCATLIST (for string on (TEDIT-INDENT-SEPERATE-PARAGRAPHS (TEDIT.SEL.AS.STRING text-stream selection) explicit-paragraph-breaks?) - bind [hanging-indent _ (AND [NOT (EQP (GETLD (CAR (GETSEL selection L1)) - LCHAR1) - (TEDIT.SELPROP selection 'CH#] - (DIFFERENCE (TEDIT.SELPROP selection - 'CH#) - (GETLD (CAR (GETSEL selection L1)) - LCHAR1] + bind [hanging-indent _ + (AND (NOT (EQP (fetch CHAR1 of (CAR (fetch L1 of selection))) + (fetch CH# of selection))) + (DIFFERENCE (fetch CH# of selection) + (fetch CHAR1 of (CAR (fetch L1 of selection] join (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION (CAR string) "" *TEDIT-INDENT-LINE-LENGTH* hanging-indent) *eol-string*) @@ -185,10 +184,15 @@ 'RIGHT]) (TEDIT-INDENT-SELECTION - [LAMBDA (text-stream explicit-paragraph-breaks?) (* ; "Edited 15-Feb-2025 14:07 by rmk") - (* smL "21-Jan-87 16:00") - -(* ;;; "Indent the current selection by prefacing each line with the value of *TEDIT-INDENT-STRING*, and inserting line breaks after each *TEDIT-INDENT-LINE-LENGTH* characters. --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed. --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document") + [LAMBDA (text-stream explicit-paragraph-breaks?) (* smL "21-Jan-87 16:00") + + (* * Indent the current selection by prefacing each line with the value of + *TEDIT-INDENT-STRING*, and inserting line breaks after each + *TEDIT-INDENT-LINE-LENGTH* characters. - + If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in + the current selection are removed. - + This is intended to be used in Lafite, where one wants to indent a piece of a + forwarded document, but can be used in any TEdit document) (LET ((selection (TEDIT.GETSEL text-stream))) (TEDIT-INDENT-REPLACE-SELECTION @@ -196,13 +200,11 @@ (CONCATLIST (for string on (TEDIT-INDENT-SEPERATE-PARAGRAPHS (TEDIT.SEL.AS.STRING text-stream selection) explicit-paragraph-breaks?) - bind [hanging-indent _ (AND [NOT (EQP (GETLD (CAR (GETSEL selection L1)) - LCHAR1) - (TEDIT.SELPROP selection 'CH#] - (DIFFERENCE (TEDIT.SELPROP selection - 'CH#) - (GETLD (CAR (GETSEL selection L1)) - LCHAR1] + bind [hanging-indent _ + (AND (NOT (EQP (fetch CHAR1 of (CAR (fetch L1 of selection))) + (fetch CH# of selection))) + (DIFFERENCE (fetch CH# of selection) + (fetch CHAR1 of (CAR (fetch L1 of selection] join (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION (CAR string) *TEDIT-INDENT-STRING* *TEDIT-INDENT-LINE-LENGTH* hanging-indent) @@ -232,19 +234,18 @@ else (\TEDIT-INDENT-SEPERATE-PARAGRAPHS string NIL]) (TEDIT-INDENT-SET-INDENT - [LAMBDA (text-stream) (* ; "Edited 15-Feb-2025 09:21 by rmk") - (* smL "12-Sep-86 17:09") + [LAMBDA (text-stream) (* smL "12-Sep-86 17:09") + + (* * Prompt the user for a new indentation string) -(* ;;; "Prompt the user for a new indentation string") - - (LET* ((window (\TEDIT.PRIMARYPANE text-stream)) + (LET* ((window (fetch \WINDOW of (TEXTOBJ text-stream))) (pwindow (if window then (GETPROMPTWINDOW (if (LISTP window) then (CAR window) else window)) else PROMPTWINDOW))) (CLEARW pwindow) - (SETQ *TEDIT-INDENT-STRING* (PROMPTFORWORD "New indent string: " *TEDIT-INDENT-STRING* NIL + (SETQ *TEDIT-INDENT-STRING* (PROMPTFORWORD "New indent string: " *TEDIT-INDENT-STRING* NIL pwindow NIL NIL (LIST (CHARCODE EOL]) (TEDIT-INDENT-STRIP-INDENTATION @@ -269,34 +270,36 @@ else string]) (TEDIT-MAKE-LINES-EXPLICIT - [LAMBDA (text-stream) (* ; "Edited 15-Feb-2025 09:20 by rmk") - (* smL " 8-Sep-86 18:20") - -(* ;;; "Take the current selection and replace all TEdit end-of-lines with explicit line breaks. --- This is intended to be used in Lafite, where it is sometimes nice to know that anyone receiving the msg will see the same line breaks that you see. see, but can be used in any TEdit document") + [LAMBDA (text-stream) (* smL " 8-Sep-86 18:20") + + (* * Take the current selection and replace all TEdit end-of-lines with + explicit line breaks. - + This is intended to be used in Lafite, where it is sometimes nice to know that + anyone receiving the msg will see the same line breaks that you see. + see, but can be used in any TEdit document) (LET ((selection (TEDIT.GETSEL text-stream))) - [for i in (bind (this-line _ (CAR (GETSEL selection L1))) - [last-line _ (CAR (LAST (GETSEL selection LN] - repeatuntil (PROGN (SETQ this-line (GETLD this-line NEXTLINE)) - (EQ this-line last-line)) collect (GETLD this-line LCHARLIM) - ) do (TEDIT.SETSEL text-stream i 1 'LEFT T) - (TEDIT.INSERT text-stream (CONSTANT (CHARACTER (CHARCODE EOL] + [for i in (bind (this-line _ (CAR (fetch L1 of selection))) + [last-line _ (CAR (LAST (fetch LN of selection] + repeatuntil (PROGN (SETQ this-line (fetch NEXTLINE of this-line)) + (EQ this-line last-line)) collect (fetch CHARLIM + of this-line)) + do (TEDIT.SETSEL text-stream i 1 'LEFT T) + (TEDIT.INSERT text-stream (CONSTANT (CHARACTER (CHARCODE EOL] (TEDIT.SETSEL text-stream selection NIL 'RIGHT]) (TEDIT-OPEN-LINE - [LAMBDA (text-stream) (* ; "Edited 15-Feb-2025 14:09 by rmk") - (* smL "17-Sep-86 11:13") - -(* ;;; "Open a new line at the current position.") + [LAMBDA (text-stream) (* smL "17-Sep-86 11:13") + + (* * Open a new line at the current position.) (LET ((selection (TEDIT.GETSEL text-stream))) - (TEDIT.INSERT text-stream (CONCAT *eol-string* (ALLOCSTRING - (DIFFERENCE (TEDIT.SELPROP selection - 'CH#) - (GETLD (CAR (GETSEL selection L1)) - LCHAR1)) - " "))) - (if (ZEROP (TEDIT.SELPROP selection 'LENGTH)) + (TEDIT.INSERT text-stream (CONCAT *eol-string* + (ALLOCSTRING [DIFFERENCE (fetch CH# of selection) + (fetch CHAR1 + of (CAR (fetch L1 of selection] + " "))) + (if (ZEROP (fetch DCH of selection)) then (TEDIT.SETSEL text-stream selection]) (TEDIT-REMOVE-INDENT @@ -433,12 +436,12 @@ "Break long lines by inserting explicit 's" ] (DECLARE%: DONTCOPY - (FILEMAP (NIL (4363 24314 (TEDIT-INDENT-ADD-INDENTATION 4373 . 6941) (TEDIT-INDENT-BREAK-LINE 6943 . -8876) (TEDIT-INDENT-BREAK-LONG-LINES 8878 . 10828) (TEDIT-INDENT-FIND-BREAKPOINT 10830 . 11653) ( -TEDIT-INDENT-REPLACE-SELECTION 11655 . 12212) (TEDIT-INDENT-SELECTION 12214 . 14283) ( -TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS 14285 . 14564) (TEDIT-INDENT-SEPERATE-PARAGRAPHS 14566 . -15295) (TEDIT-INDENT-SET-INDENT 15297 . 16143) (TEDIT-INDENT-STRIP-INDENTATION 16145 . 17365) ( -TEDIT-MAKE-LINES-EXPLICIT 17367 . 18517) (TEDIT-OPEN-LINE 18519 . 19453) (TEDIT-REMOVE-INDENT 19455 . -20225) (\TEDIT-INDENT-COUNT-SPACES 20227 . 20828) (\TEDIT-INDENT-FIND-PARAGRAPH-END 20830 . 21801) ( -\TEDIT-INDENT-SEPERATE-LINES 21803 . 22601) (\TEDIT-INDENT-SEPERATE-PARAGRAPHS 22603 . 24312))))) + (FILEMAP (NIL (4193 23598 (TEDIT-INDENT-ADD-INDENTATION 4203 . 6771) (TEDIT-INDENT-BREAK-LINE 6773 . +8706) (TEDIT-INDENT-BREAK-LONG-LINES 8708 . 10475) (TEDIT-INDENT-FIND-BREAKPOINT 10477 . 11300) ( +TEDIT-INDENT-REPLACE-SELECTION 11302 . 11859) (TEDIT-INDENT-SELECTION 11861 . 13762) ( +TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS 13764 . 14043) (TEDIT-INDENT-SEPERATE-PARAGRAPHS 14045 . +14774) (TEDIT-INDENT-SET-INDENT 14776 . 15550) (TEDIT-INDENT-STRIP-INDENTATION 15552 . 16772) ( +TEDIT-MAKE-LINES-EXPLICIT 16774 . 17979) (TEDIT-OPEN-LINE 17981 . 18737) (TEDIT-REMOVE-INDENT 18739 . +19509) (\TEDIT-INDENT-COUNT-SPACES 19511 . 20112) (\TEDIT-INDENT-FIND-PARAGRAPH-END 20114 . 21085) ( +\TEDIT-INDENT-SEPERATE-LINES 21087 . 21885) (\TEDIT-INDENT-SEPERATE-PARAGRAPHS 21887 . 23596))))) STOP diff --git a/library/lafite/LAFITE-INDENT.LCOM b/library/lafite/LAFITE-INDENT.LCOM index 21cd24f7ee4f4796748ba731284cb329e8271236..3f36b45a920efb50a30c70904769756d0ad43328 100644 GIT binary patch delta 1193 zcmb_b&rj1(9A6jY$Ji7$1caeq8o|w^vwdyXt`KBwuh6Bmqbm#uF@bCW0?uSE8ejQ$a1(oird7QYKD1d62=y^R7LSi3TF_A$PB+QVG46_=X)2 zMPRMsZTcVz#Zm=sR?75wXi&3y|Lg_w)Z0?s?)bnk_sL@LO3%Les&9I&Z|SvBrx#u* zWDZ_@CVRmoTLYv?i{-FO=Sl~!95oCphaDFZGC36*8lcHQJUGVW6ipM4Y8g>!Hn8pj zr8yZIZ3;vv_=AufzUK9OccZhD8DFj0@*|}mL&Gg~5`NO&6&@8%!m9|D^hNC0S&$Pa ziOAAXqCrYP(lqT9>FDmw#2ZovV*Ka0QfH6jN);Rzf<#47mqC(%J#_B*Kv(rk*JAJ+ DCT}N= delta 1334 zcmcgsO-~b16zu@=F{0Quprz1Whkz}ib-vpfT~OOM?U-SvOdlXfjF=KYA{r!dVU$GU z&KSvy8&~diWno2h=R#v5E8<$W#_$t-(>4@Q6WutAc{6u%?>+aPbLOS>(SCXCM=8AYNRHUNe;?$Yx8CJwIu0cx_=Ae?(mQdqN<51=+!P4reXEQGO&8Kkg@Zq zl)w(e47)^bhNB*w031fclCi-MS?_Bj@1nsodeKFbrZZ7Wp4#cSIwCEI`(=vl(oe zB@BY7!L02CL=Xg-=;6pnimzc!mXK9+ogyd-pmBN}j*Aiy=siuow+(f&F+tE^kOhHH z6KL-nNz33ZJ%>tJ*DPYkg_H`kBFbXZu|ZWJTNnVjdXNvDz_Kx#D*?yF$&+xTvfV!3 z^mo&_NB{eDhKF>x#;9rMkc|^1?3#9d82)wc7B)utqzWOQ27;B7$0nIj9DGKT&&P~* zc#QfPUtueG)q5n*kEaY3@(5F2#)^1~_I9Q~)}Z!oIPR3==78EIYoUxg1q#eoQ6`J7 zIhJv!iy0fm*_a}e&aP8P`NIr?S}#~@KodaXfwSlDP!E;oSJvS6+UnBEf({(Te!n?d zdDykfFb~L#|7>Xa^BZfccWkkDcH3Y0>9x&gXdHBASz^SA(#cGxqLaKJMnU-gXOt;6F)P61bCzz@O7 IPVjQz2TasGb^rhX diff --git a/library/lafite/LAFITE-PRIVATEDL b/library/lafite/LAFITE-PRIVATEDL index a6c0c484..b4c5e2af 100644 --- a/library/lafite/LAFITE-PRIVATEDL +++ b/library/lafite/LAFITE-PRIVATEDL @@ -1,30 +1,28 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED "19-Jan-87 23:56:51" {ERIS}LISPCORE>LAFITEPRIVATEDL.;1 10080 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - previous date%: "19-Jan-87 23:47:54" {PHYLUM}KOTO>LAFITEPRIVATEDL.;2) +(FILECREATED "18-Feb-2026 15:50:14" {WMEDLEY}lafite>LAFITE-PRIVATEDL.;2 9719 + + :EDIT-BY rmk + + :CHANGES-TO (FNS \GV.PARSERECIPIENTS1 \GV.PARSE.PRIVATE.DISTRIBUTION.LIST)) -(* " -Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. -") +(PRETTYCOMPRINT LAFITE-PRIVATEDLCOMS) -(PRETTYCOMPRINT LAFITEPRIVATEDLCOMS) - -(RPAQQ LAFITEPRIVATEDLCOMS ((* * LAFITEDL.EXT is the default extension for dl files when no extension - is specified) - (* * LAFITEDLDIRECTORIES is a list of directories to be searched after - the connected directory and the LAFITEDEFAULTHOST&DIR in order to - locate a dl file when no host or directory is specified) - (INITVARS (LAFITEDL.EXT 'DL) - (LAFITEDLDIRECTORIES NIL)) - (* * no functions are user callable) - (FNS \GV.PARSERECIPIENTS1 \GV.PARSE.PRIVATE.DISTRIBUTION.LIST) - (* Lafite's readtable for parsing addresses needs to have CR as a - SEPRCHAR so that lines from a text file can all be parsed at once. - This has no effect on normal operation since before private dls no CR - was ever passed to the parser) - (P (SETSYNTAX (CHARCODE CR) - 'SEPRCHAR ADDRESSPARSERRDTBL)))) +(RPAQQ LAFITE-PRIVATEDLCOMS + ((* * LAFITEDL.EXT is the default extension for dl files when no extension is specified) + (* * LAFITEDLDIRECTORIES is a list of directories to be searched after the connected + directory and the LAFITEDEFAULTHOST&DIR in order to locate a dl file when no host or + directory is specified) + (INITVARS (LAFITEDL.EXT 'DL) + (LAFITEDLDIRECTORIES NIL)) + (* * no functions are user callable) + (FNS \GV.PARSERECIPIENTS1 \GV.PARSE.PRIVATE.DISTRIBUTION.LIST) + (* Lafite's readtable for parsing addresses needs to have CR as a SEPRCHAR so that lines from + a text file can all be parsed at once. This has no effect on normal operation since before + private dls no CR was ever passed to the parser) + (P (SETSYNTAX (CHARCODE CR) + 'SEPRCHAR ADDRESSPARSERRDTBL)))) (* * LAFITEDL.EXT is the default extension for dl files when no extension is specified) (* * LAFITEDLDIRECTORIES is a list of directories to be searched after the connected directory and the @@ -39,7 +37,7 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. (DEFINEQ (\GV.PARSERECIPIENTS1 - [LAMBDA (FIELD REGISTRY INTERNALFLG EDITWINDOW) (* N.H.Briggs "19-Jan-87 23:44") + [LAMBDA (FIELD REGISTRY INTERNALFLG EDITWINDOW) (* N.H.Briggs "19-Jan-87 23:44") (* ;;; "INTERNALFLG = T means produce addresses to give Grapevine; NIL means give human-readable addresses") @@ -73,8 +71,8 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. (CHARCODE %")) (HELP] (OR REGISTRY (SETQ REGISTRY DEFAULTREGISTRY)) - - (* ;; "first just collect all the atoms using a special readtable ") + + (* ;; "first just collect all the atoms using a special readtable ") (SETQ ADDRESSES (when (SETQ ADDR (until (OR (EOFP FIELDSTREAM) (EQ (SETQ TOKEN (READ FIELDSTREAM @@ -107,14 +105,13 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. (EQ (CADDR ADDRESS) ';)) then - - (* ;; "it's a private dl --- foo:;") + (* ;; "it's a private dl --- foo:;") - (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST ADDRESS REGISTRY INTERNALFLG + (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST ADDRESS REGISTRY INTERNALFLG EDITWINDOW) else - - (* ;; "ADDRESS will only get rebound if there is an address with <>'s in it ") + (* ;; + "ADDRESS will only get rebound if there is an address with <>'s in it ") (SETQ VALIDRECIPIENT (\GV.PARSE.SINGLE.ADDRESS (COND @@ -128,8 +125,8 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. ((OR T INTERNALFLG (NULL REALADDRESS)) VALIDRECIPIENT) (T - - (* ;; "Need to figure out how to make GETREGISTRY of this work, and remove duplicates in MAKEANSWERFORM before we can enable this") + + (* ;; "Need to figure out how to make GETREGISTRY of this work, and remove duplicates in MAKEANSWERFORM before we can enable this") (\GV.REPACKADDRESS (APPEND (LDIFF ADDRESS OPEN) (LIST '< VALIDRECIPIENT @@ -137,7 +134,7 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. (CDR CLOSE]) (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST - [LAMBDA (DL REGISTRY INTERNALFLG EDITWINDOW) (* N.H.Briggs "19-Jan-87 23:45") + [LAMBDA (DL REGISTRY INTERNALFLG EDITWINDOW) (* N.H.Briggs "19-Jan-87 23:45") (LET* [(FILENAME (FINDFILE (PACKFILENAME.STRING 'BODY (CAR DL) 'EXTENSION LAFITEDL.EXT) T @@ -162,10 +159,10 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. file can all be parsed at once. This has no effect on normal operation since before private dls no CR was ever passed to the parser) + (SETSYNTAX (CHARCODE CR) 'SEPRCHAR ADDRESSPARSERRDTBL) -(PUTPROPS LAFITEPRIVATEDL COPYRIGHT ("Xerox Corporation" 1986 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1965 9682 (\GV.PARSERECIPIENTS1 1975 . 8562) (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST 8564 - . 9680))))) + (FILEMAP (NIL (1617 9389 (\GV.PARSERECIPIENTS1 1627 . 8273) (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST 8275 + . 9387))))) STOP diff --git a/library/lafite/LAFITE-PRIVATEDL.LCOM b/library/lafite/LAFITE-PRIVATEDL.LCOM new file mode 100644 index 0000000000000000000000000000000000000000..9792b71a74f204700ad053cd2d5bd7ecd93f81f5 GIT binary patch literal 3823 zcmbtXUvDE<6}O#sMGY)Yx&maP)xpy4+EH!IjP3k!t8FHpJIS!)8E0mkY-lSpvB$Nw zjvZ|8mK8z*i5ETqD4wGfx?!@sVd*yAt*g~X>Mo;@+Uo~x8V)E!KR>K7&16Tvc(30(9{Ho^ z5Bq+nHwhk^s&05JUw4cHuFovItK=w|k=G+yl}bsj6qO83xYGWEHua!WZ5bL zpioyGmpQCz)D32NuDl=?X08`B!}T0vr{Nj4RX{GhTrPRtQB{&8nJU_5GHZ}TIKZjWBkUF{HOhCxOwtTzU#k}YCn1P$B@)dgtT0$pSYwgg|tlS8(cmW%Wf#N z$ILpdmu8pL9lK7YD?8=NPM({?B@ylN1~FT&+6~L2Vq`6EF6iaUB@SHgap-KFLJm@Z4VmZi7$gw)GB zdxs>_{y`}H>UUH7_R5bhGH1D^mtQ<;u1xLJ#kcL1Zn~Lj-kzR)Zm-;Lrlx2A{73EL zzST{C^tVva`KRW}(O#sA&JR&HFV6O@`+q)Xnyxsiv!K?cV|={hD0-U_M2F?ST53sR@Jtu z3Kdb+m%UbS4QtnAg?Yski!zy-q3fhrxi8z{BY7G#(A;e$;%CfW(JtD&p^bJPykO*A+?h z2`+<{SrwyW!aeWHB0A|I6(xnJsXqz^lWs8POnGaIG9Ohi zHssAs%GCURXE-{+X}{eb1>nty_Ww)K$tNc^-T0%~H2WCkJ|DuS6Bgc4{idAB0Vf!<%8%8{Sm} zz1inEpw0^t-j!$#)d-lw^vPp@VOTr)9Y7v0A?|+Y*IMY9ZmPSSsL&dUxyqP^Xt+!W zhB1r=Km_kHL|+w8H4`CT|I$S|ZTwG@5%s^^0;r0(ZigW96OJANLV98;e$pZj%kkLW zXKTx;xS$=RdjhHsZ>N`+-uRJ7(u&aZ>a!(dCB7Vgv-UDqy?9$lZN~-VOgS<}34(g| z@166vYjfzT302cn_zhtcr(#)oJ$w^5OgzeFlS?j_!$F710W1(RPk$fl$O9tMhZu$% zUj`moQ7(~2Diab`t9t-13}uY?1?=63XJLyJH&N!6#`6fAAa3S7r-cw&P<|Vmm$g|| zqMZ;e6DleczWX%bD(v@c$H3%;@iTHbH}`DUyAJ_AHRtjL^aY>q_%O>wv7&N!Z0!hl zgIuOe)gL^V(C{=EP`ghZJV5~yTY!;k8S4^dt7e5cj_pt(V(_d5@CM7)0R-Mr6;Ts0 zd;P@Zy4JE{U>i5QoM2FhFQP7$UN4)^I4(T|cao~?yU5==o zNiY(ow1$HLq(Do~<)4#3Xba}`X#oNcM{Rz7Nc~|8FK=8r5Bl8p?vNV+r)EYx=Po3p zJ{Xqa9pHUT*(*uT?l)|Yk!I%L=bRJu(J};!#}+Z_JRP(qh#(vv1@v?bvyv^p-}jIE z0Tg_#hd7V3DgLiK7}F^5+Y_!;JI)H zI5Zw2r2Yii89=x*8lHeVK?Q`x+VTekvw4=dYM!GBC5M=v1@gLxT^H(jO>{a)7yoxP zz;N{YyyQndj{w1*RsaR4B`6v7p7G4I`{EeP`2-4rXNb?KKj!+8Jzk5#lVF5c)hUbV zE9c>ik6M-uuv|Mj#czm@?>R7Uc@)8WrH literal 0 HcmV?d00001 diff --git a/lispusers/BACKGROUNDMENU b/lispusers/BACKGROUNDMENU index 0cb799a0..fab3e487 100644 --- a/lispusers/BACKGROUNDMENU +++ b/lispusers/BACKGROUNDMENU @@ -1,18 +1,17 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED "31-Jan-87 18:09:00" {ERIS}LYRIC>BACKGROUNDMENU.;1 7367 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - previous date%: "31-Jan-86 11:36:13" {ERIS}KOTO>LISPUSERS>BACKGROUNDMENU.;1) +(FILECREATED "18-Feb-2026 16:20:10" {WMEDLEY}BACKGROUNDMENU.;2 7230 + :EDIT-BY rmk + + :PREVIOUS-DATE "31-Jan-87 18:09:00" {WMEDLEY}BACKGROUNDMENU.;1) -(* " -Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT BACKGROUNDMENUCOMS) (RPAQQ BACKGROUNDMENUCOMS ((INITVARS BackgroundMenuFixupMode BackgroundMenuSuperItem BackgroundMenuTopLevelItems) - (FNS BkgMenu.add.item BkgMenu.fixup BkgMenu.move.item BkgMenu.remove.item + (FNS BkgMenu.add.item BkgMenu.fixup BkgMenu.move.item BkgMenu.remove.item BkgMenu.rename.item BkgMenu.reorder.items BkgMenu.subitems \BkgMenu.locate \BkgMenu.locater \BkgMenu.remove.item \BkgMenu.scan.item.list \BkgMenu.unremove.item))) @@ -153,11 +152,10 @@ Copyright (c) 1985, 1986, 1987 by Xerox Corporation. All rights reserved. else (SETQ BackgroundMenuCommands (CONS (CAR item) BackgroundMenuCommands]) ) -(PUTPROPS BACKGROUNDMENU COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1008 7271 (BkgMenu.add.item 1018 . 1910) (BkgMenu.fixup 1912 . 3131) (BkgMenu.move.item - 3133 . 3557) (BkgMenu.remove.item 3559 . 3834) (BkgMenu.rename.item 3836 . 4128) ( -BkgMenu.reorder.items 4130 . 4505) (BkgMenu.subitems 4507 . 4907) (\BkgMenu.locate 4909 . 5520) ( -\BkgMenu.locater 5522 . 6089) (\BkgMenu.remove.item 6091 . 6378) (\BkgMenu.scan.item.list 6380 . 6877) - (\BkgMenu.unremove.item 6879 . 7269))))) + (FILEMAP (NIL (944 7207 (BkgMenu.add.item 954 . 1846) (BkgMenu.fixup 1848 . 3067) (BkgMenu.move.item +3069 . 3493) (BkgMenu.remove.item 3495 . 3770) (BkgMenu.rename.item 3772 . 4064) ( +BkgMenu.reorder.items 4066 . 4441) (BkgMenu.subitems 4443 . 4843) (\BkgMenu.locate 4845 . 5456) ( +\BkgMenu.locater 5458 . 6025) (\BkgMenu.remove.item 6027 . 6314) (\BkgMenu.scan.item.list 6316 . 6813) + (\BkgMenu.unremove.item 6815 . 7205))))) STOP diff --git a/lispusers/BACKGROUNDMENU.LCOM b/lispusers/BACKGROUNDMENU.LCOM index da4e81869f5a098cb4638cddcb51891d65103bf3..bc7c8b5f71557e3adb339a35b4489a3f2c84bfd4 100644 GIT binary patch delta 545 zcmew@c|uZ6!^PFj)6Z4c&C|zK*VE6etBZn?p@ptnYLc#zfsvVlp_!GDft8_&l7fa(a(-?>W=?8~ zLVlitl0tR3ud9oXYh#9pa-BTWS^B||eLjYd``hE~Q#N(xCusc@aC6$M4bs#Xel z`6U^ddFcw7K$F};eSCoSAhhb~=_x6sB$fbe!e*w4fs!V=i{&w$Y=GuOXCno3BVz*v zD_0lK5M8H8g`(VS1umECn$yGRjS! z%bLQ+rQxYysF0Uhu9ugXn>zUdqx@t&HZMl5$(3x=futb&HXwO|eJ7A?;+PL4l{j00 zCQ0+77J6$&JKd88-%a(e?=Gr41d=%+93|6yO+WKUtAklGV@C QN0V!E8;?3G7m�Lhq;?f?J) delta 619 zcmZXR&ui0Q7{`gTo78 zv6E+&9P}Uvf@co}!HZWt4g3eZdh_7bi%%;$otMx1@bbK$_xrxjr_~>;9A{b$+p+kD z-LiPwX}GZFTQxJR)ms)2+X*edWd|O4c6r4sv)r`Jz=qH=frv8iWFuaaKvd{@g;q5J z9NEeC`$;d3AWMM&dt?U9%tT2W}VO3p`>ME+hkfyA zs3cPnW6z|&oO;s@UH#1dpSR4`_pa==ohB)i{@gN(6 ckqvOL-C>fY1Vl~Um;ygVQLYRIC>COMMWINDOW.;3 49786 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (VARS REMOTE-CURSOR COMMWINDOWCOMS) - (COURIERPROGRAMS COMMWINDOW) - (FNS CLOSE-FRAME START-GET-BITS SEND-BITS FRAME-EVENT MAKE-FRAME) - (FUNCTIONS \PILOTBITBLT) +(FILECREATED "18-Feb-2026 16:21:29" {WMEDLEY}COMMWINDOW.;2 48680 - previous date%: " 2-Apr-87 16:54:24" {ERIS}LYRIC>COMMWINDOW.;2) + :EDIT-BY rmk + :PREVIOUS-DATE " 2-Apr-87 17:06:05" {WMEDLEY}COMMWINDOW.;1) -(* " -Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT COMMWINDOWCOMS) -(RPAQQ COMMWINDOWCOMS ( +(RPAQQ COMMWINDOWCOMS + ( (* ;;; "Viewer end") - (FNS CLOSE-FRAME GET-BITS START-GET-BITS) - (FILES COURIERSERVE) - + (FNS CLOSE-FRAME GET-BITS START-GET-BITS) + (FILES COURIERSERVE) + (* ;;; "Sender end") - (FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER - CHANGE-SENDER-UPDATE-MODE) - (FUNCTIONS INCR \PILOTBITBLT) - - - (* ;; "Controling update schemes") + (FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER CHANGE-SENDER-UPDATE-MODE + ) + (FUNCTIONS INCR \PILOTBITBLT) + + (* ;; "Controling update schemes") - (INITVARS (COMM.DEFAULT.TRANSMIT.TYPE 'SQUARE) - (COMM.SEND.UNCHANGED.TILES T) - (COMM.UPDATE.MOUSE.POSITION 'Sender)) - (GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION - COMM.SEND.UNCHANGED.TILES) - + (INITVARS (COMM.DEFAULT.TRANSMIT.TYPE 'SQUARE) + (COMM.SEND.UNCHANGED.TILES T) + (COMM.UPDATE.MOUSE.POSITION 'Sender)) + (GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION COMM.SEND.UNCHANGED.TILES) + (* ;;; "Pruning out unchanged screen tiles") - (FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET) - + (FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET) + (* ;;; "Low level packet exchange code") - (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE - COMM.CURSOR.CLOSE.PACKET.TYPE COMM.SHUT.DOWN.PACKET.TYPE) - (VARIABLES MAX-PACKET-BITS) - (RECORDS COMM.XFER.PACKET) - + (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE + COMM.SHUT.DOWN.PACKET.TYPE) + (VARIABLES MAX-PACKET-BITS) + (RECORDS COMM.XFER.PACKET) + (* ;;; "Packing and unpacking bitmaps into etherpackets") - (FNS BMTOPACKET PACKETTOBM) - + (FNS BMTOPACKET PACKETTOBM) + (* ;;; "Displaying the viewing machine's cursor") - (VARS REMOTE-CURSOR) - (INITVARS (CURSORICON NIL)) - + (VARS REMOTE-CURSOR) + (INITVARS (CURSORICON NIL)) + (* ;;; "Manipulating the frame that outlines the region being viewed") - (INITVARS (*FRAME-SHADE* GRAYSHADE)) - (FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE) - + (INITVARS (*FRAME-SHADE* GRAYSHADE)) + (FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE) + (* ;;; "Changing the system parameters") - (FNS MAKE-MENUS-WINDOW MODE-MENU) - (VARS COMM-MODES) - + (FNS MAKE-MENUS-WINDOW MODE-MENU) + (VARS COMM-MODES) + (* ;;; "Initialization") - (P (COURIER.START.SERVER)) - + (P (COURIER.START.SERVER)) + (* ;;; "Unused stuff, as far as I can tell") - (FNS FASTBITBLT) - + (FNS FASTBITBLT) + (* ;;; "System file dependencies") - (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP) - LLDISPLAY LLETHER LLNS)) - (COURIERPROGRAMS COMMWINDOW))) + (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP) + LLDISPLAY LLETHER LLNS)) + (COURIERPROGRAMS COMMWINDOW))) @@ -236,6 +229,7 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. (LIST 'RETURN (LIST (NSOCKETNUMBER NS) (USERNAME]) ) + (FILESLOAD COURIERSERVE) @@ -446,19 +440,18 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. (SETQ COMM.DEFAULT.TRANSMIT.TYPE NEW-MODE))) ) -(DEFMACRO INCR (VAR START HEIGHT REPEATS UNTIL &REST FORMS) +(DEFMACRO INCR (VAR START HEIGHT REPEATS UNTIL &REST FORMS) `(CL:DO ((REPEAT-COUNT 0 (+ REPEAT-COUNT 1))) ((>= REPEAT-COUNT ,REPEATS)) - (CL:DO [(,VAR (+ ,START (CL:* REPEAT-COUNT ,HEIGHT)) - (+ ,VAR (CL:* ,REPEATS ,HEIGHT] - (,UNTIL) - ,@FORMS))) - - -(DEFMACRO \PILOTBITBLT (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0)) (CL:ASSERT (EQL XCL-USER::N 0)) - `((OPCODES PILOTBITBLT) - ,XCL-USER::TABLE 0)) + (CL:DO [(,VAR (+ ,START (CL:* REPEAT-COUNT ,HEIGHT)) + (+ ,VAR (CL:* ,REPEATS ,HEIGHT] + (,UNTIL) + ,@FORMS))) +(DEFMACRO \PILOTBITBLT (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0)) + (CL:ASSERT (EQL XCL-USER::N 0)) + `((OPCODES PILOTBITBLT) + ,XCL-USER::TABLE 0)) @@ -525,12 +518,12 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. (RPAQQ COMM.SHUT.DOWN.PACKET.TYPE 4246) + (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE COMM.SHUT.DOWN.PACKET.TYPE) ) -(CL:DEFCONSTANT MAX-PACKET-BITS (CL:* 400 8) ) - +(CL:DEFCONSTANT MAX-PACKET-BITS (CL:* 400 8)) (DECLARE%: EVAL@COMPILE (ACCESSFNS COMM.XFER.PACKET ((COMMPACKET (fetch (XIP XIPCONTENTS) of DATUM))) @@ -807,6 +800,7 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. (* ;;; "Initialization") + (COURIER.START.SERVER) @@ -862,6 +856,7 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. (* ;;; "System file dependencies") (DECLARE%: DONTCOPY DOEVAL@COMPILE + (FILESLOAD (LOADCOMP) LLDISPLAY LLETHER LLNS) ) @@ -885,14 +880,14 @@ Copyright (c) 1986, 1900, 1987 by Xerox Corporation. All rights reserved. ERRORS ((ERROR 1 (STRING)) (USE.COURIER 2 NIL))) -(PUTPROPS COMMWINDOW COPYRIGHT ("Xerox Corporation" 1986 1900 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3203 13134 (CLOSE-FRAME 3213 . 3364) (GET-BITS 3366 . 11655) (START-GET-BITS 11657 . -13132)) (13189 26236 (SEND-BITS 13199 . 16020) (SEND-TILE 16022 . 19145) (LISTEN-TO-VIEWER 19147 . -20450) (MAPTILES 20452 . 25175) (SHUT-DOWN-VIEWER 25177 . 26046) (CHANGE-SENDER-UPDATE-MODE 26048 . -26234)) (27219 29090 (PACKET-EQUAL 27229 . 28632) (GET-CACHED-PACKET 28634 . 28949) (PUT-CACHED-PACKET - 28951 . 29088)) (30529 34252 (BMTOPACKET 30539 . 32500) (PACKETTOBM 32502 . 34250)) (34556 38865 ( -FRAME-EVENT 34566 . 35224) (MAKE-FRAME 35226 . 37008) (MOVE-FRAME 37010 . 37280) (SHAPE-FRAME 37282 . -38672) (SET-FRAME-TITLE 38674 . 38863)) (38915 45792 (MAKE-MENUS-WINDOW 38925 . 41284) (MODE-MENU -41286 . 45790)) (45968 48955 (FASTBITBLT 45978 . 48953))))) + (FILEMAP (NIL (2306 12237 (CLOSE-FRAME 2316 . 2467) (GET-BITS 2469 . 10758) (START-GET-BITS 10760 . +12235)) (12293 25340 (SEND-BITS 12303 . 15124) (SEND-TILE 15126 . 18249) (LISTEN-TO-VIEWER 18251 . +19554) (MAPTILES 19556 . 24279) (SHUT-DOWN-VIEWER 24281 . 25150) (CHANGE-SENDER-UPDATE-MODE 25152 . +25338)) (25342 25656 (INCR 25342 . 25656)) (25658 25816 (\PILOTBITBLT 25658 . 25816)) (26181 28052 ( +PACKET-EQUAL 26191 . 27594) (GET-CACHED-PACKET 27596 . 27911) (PUT-CACHED-PACKET 27913 . 28050)) ( +29490 33213 (BMTOPACKET 29500 . 31461) (PACKETTOBM 31463 . 33211)) (33517 37826 (FRAME-EVENT 33527 . +34185) (MAKE-FRAME 34187 . 35969) (MOVE-FRAME 35971 . 36241) (SHAPE-FRAME 36243 . 37633) ( +SET-FRAME-TITLE 37635 . 37824)) (37876 44753 (MAKE-MENUS-WINDOW 37886 . 40245) (MODE-MENU 40247 . +44751)) (44930 47917 (FASTBITBLT 44940 . 47915))))) STOP diff --git a/lispusers/COMMWINDOW.LCOM b/lispusers/COMMWINDOW.LCOM index 6a102069bd5e6acf9e3a8ba316a22d6b158cf17b..88c9531d582474c5439c36b8b40f92c2c41ae60c 100644 GIT binary patch literal 17925 zcmdU1TW}lKc?LjHmSI~VD3(V;Vo3l80zi>el+dz3n}i@r zBT`8(>D1{%+K0T@O_R3M`{kk2hf=p*VkgM-GL<`{iQACwwCPM|JmYqz)9J8fnwQpA zzyCjH7Yl&0leW{DJ`lTm&e?PQ&;Nh__n&1bXXdT48O~cpGi;UfQk*XfRtbs|Rny4TjZCp8Ib+mJ5si%b{UNF$i(+*%CxX#bIKT3II2MT|MKn1bi%&-; zf+7^WboI)$wbn{QTwNDI@#706Ggma1e&U(d+QzjT8!Oj0p3TZqX~8PzPeg)a@6+GtbZqK- z=$}ZWlBtN8Hgi@zoLLgruUr=X=}Of+XUX|mIETr=Fk@lk+Vya1QbZ@GBT1f#_ZxY1 z%%3gF8rG$1luR+5OZh{VhzNch6P|#_?fdslu8yJ$-tLtpL(0!5Xn4(*>IZs_liJEDa>BULD zqZgB+maQ7~EOmcE)UY&04z~&YURItnt604f34BGw?b1|9%zoewh*}-*Qu`5+$zo;`NuD{RMFlpUF<-2!zEd%@MJrM@ zYi3{9wUN_ui(nzQ`$&}_7Z8hjV{_alMI z(Lnn6!ZYiS{UIkUCvJU5Cho-=>yKU8edVU-UmEL!W4pg`)AL7dBuBr7pNZw;be~*4 zL6^zpBwbR=skR)xm6gX^LpyS0@Ai}&k;i3nyEU}Ecl(SyLCK?gw}Wz2o{%Y(`~$^i z!$P^yCk|4_+N;aMZJC_i`)!$;+q-pqRwnmep8dQ`o}ZJcy_e@cFH@i7PJX>06RoK? zWKyQe%|_{oL;N;w7pBqX2})OKTjT3PU*7%sg=v=j)uF3Y@HzV7dZ^>E?#KA@VM zM(`ATqxC2cXjM(*a;&Mx7sE2zxAM4icf!8AM+F|-iObl%xIF&g&S~5v&m&32zd}p#L4`cG)`8aBE2|XnpZ^|LMj-c9}EU!GiJkpjY zmPgwxkPu945-nKh12zq(uQs^L{PTo8DZ}lX|M?B*(^O1k=Ab|`#kxpMxF2E>0p+Tc z95g6&&Q!cNB?(nwzdadAKq-}Tix!kp3YyNU7?lbV#z`fLPMxX$7 z4<;ridz+g`^e4splVAgSx;_DA@9O77G}_(I#1zKS*U!XcvS+#y6H!q#YV{IKr@15& z@u}VdFc40GMG>Dsy>sRg8MM08!;j;wstJ``GskJx;;=cDs#T6c702{lECt&|)^z~} zF4|e57&@TrTU};KA_nD+r7sy31#4i`raFbOI9Lp7B9ZJa7UzK}a{-)@!ayqqu#`xl zF{@me#~l_$8`;SenM$&+$*CCZyJ?CEND|*9@PaOuh$nQh_(Vh$YXuATFP@;8#gt(d zYIOn|@hA;amMU5@VT@?}t^`;gIbWwv#Ny&}2L>uuQPyG5>Pr>#?e0ap&CLU7fR<)QJnyV-DSo>v?#shkv8VX z2(WGJvi9&GA=sg2wPu|sj1Up!8itTSze@m4VF+s#&v87@Sh9@Un8?kSN=pQ+W&q!K zyuB$AT}F$E@ND=zorlX_%zlA~ob_5eSs(x4mo-$@=ks~jtjEagJx)Jt1#|q% zi7Jag!?9z>c)GZ%LTBbw9_B6@NeUVR^vrx;Gn$} zB!|gK5&WSI(SWDWy7;3(C^iv1x3==xwe=Up^_3Ub;89$CK|nl7$8|t2t$54^&``k& z0n&OA(hckFMT^GIYAce2E@9mw0Hk>WdZ^ODZ_rXmge|~t+y=yX2t)rS9^k&l*C#o>~I~f6)-Icvsn(; zW%!(BE|^sZ<#&(x{b4?kcM*~dC1gaBSYX^HFdSUsoB}l{phyBb@DT3q8YD_3h3acqt*)61pEHW{w2x?hv@hXIUDkjjM=)GhLsLikML+V) zqBHh01QT1nh9X@{^l)enW1t+WJn4sC$c2Ac6W(-Sz~fyA-ag6OlDE#KV4FA6 zLeK`}r;c4Zr4UrW>sff}PiQy3vhdUw7M|i40$#7x@+oK+2n<*X#l32&%)nrgtJ8IQ z`N}(-n|xxBY72biP}vI%TlRSYVV|RMJce$Jwikk3&gc5$FUh0u z1B5)zEi2G^Wb1c5p*X}0Hk4$z1_u)!rmV{fOmBksw^9%!Lr^hTYuG3FK+5lh;MXDf zF<=g@X`%pRIjfd6ssyBJ@FPP^WbwR92Joh1&WK0yLoSUzVmuutbH#|s@fK~12GulTbW6t*8xn-pqp~&KqDb^>w zDk=sY$-;@P!iFRY#-LW1uZO{fl=YU!o}KKn(Ac@Deav_iJ?O5Cz+bm{i$>r`J8X-9 z(k|ER9TmgGbod8SzcD0r>E9T1Mlh$ev0Dd&k8$Z>+lc;mFoN2uw43#w#0F(<01m$e zfxx3}^Ra+Yi>ei(Tt&Y}ZU1%}W;n*gN=nmV! zP4pPJM7M#nvz%A`2CZpoL|rEtUq}0_Wihi%&Nx(CSsK9;U1Hr1_`K~tk`77 z$%=tKbGu@+g#f(6StDD3A=IlLi`XC{Y@VGrKx9s_!ssa$gWdUTAWPnCE zEUwTSU>N*B=1=3G5a=nUF;~sDBuI<$d%$NzNiN|6Ye|K{`0`~E@Vf%?J`8&ZR}~pa zRg7?XcSb^(S-96gj=;185H-T1TA{%76V-}gQDRDz=n2-$re9Gvv9J?jQIWArC8IiH zm63!YIQNA62qD_^v#lsKW@prQ77iN`+)!W>B2V5IAz6a=Mb>Er{KDJBZv-ZJk&D8L zz=$$$tXA9i`ycgs4yF|*`_~TyUi!g8%lGY9>F2e}pZYqh0vmdP&%E+W%Oik5oE-2T zl@X-~cfZswENy*SKYXR#@)h1Zzg1>DwEGL`hOzf@+c>}V!%q2MY^NI;BxaVjLaNlA z59nfFZ5{gb))7vW5w=}yx{l2LX4?ApSFPVn&wl%lngQ#IW&+OgK%V#q5^sKr3 zY+FvtXXYB)hMeA6KGtR&*^o!~UTMpt#m06 zdiSdfv%E&H9}IYfzDM#;%XGsF9`WaWUg8lyE7M+L{?ZIoSxaGXTB{nGROVQ>?{Y{gn)w$DX2q&`5 z<=v{tK;pfotr|8BbZG(@ksRoi>re*W${9YPqpKG|l6B`M;Xc|t9dbd#)mGLUR1F|K zA>Q=O+pf@TD$L%O0)<*r7Z zz7*mF-+BSLR?N0;V%4J&n}gvT2bTO<(nq?0#&B*+1k;lR6LbKk=kj99xA*euQ0qY2 z$Y!)J2zQdV14w-BOSUZpL>P^<(~2EBQnLb_>7Y&+v?xYaL#tno=?qG29b|ru!)RaUI~!mu9E@PSa4= z=hOF28uw1_-dVy;>%>kV;4Qq>OapEj_zN5uoSWUdJzAW5aeB+&g*sZ~oXoeYorb5Kh5y%%3;m(PC`aXJ)+s z2UkJ23HK8ZooKFZP{`xQtUAnymZdIc#1Si&BVw$8?`ZZ1Fzthg2h+ssKyW|qw3~2v zD&2(BBnhk29ybv~6A&9`hV8Zvu64ELf~njHdnvYCVuz3slE7LyG&tF9n|s5?hEtw3 z9pnb6%L$HaqVt)Y=M@Jf1wZBJ0gva9Ugd$Gy6GJ>?%?8ix0!)8^n5pCu=U98z$)SS zADUUZ{C!p>n>zWMx#k|f_UER)`Fi^9q31BAo+pjhJ;ptsac{tc?R)c$KyaYYVD}++ z|4_SO-hZ^+Xx{g?8##6x2I$Gx#v84nH)jrC-hT7d#vJE7(r#q#AEfNZ9`-Xx83*Xc zOFy3W`9|}b{z!ZF@;CiM?OE%u?hoSkTPQM{|0|T4&3_ApW>MxW|EAl+&Cd+2Dqwo^ z-G7FY0ye|#jzDiK-$COk;70Y#>p*e~p3n{t2$+QaXn|dWYXfuWWWQz4nYFsJqS)AY z)a!}8O?mce#_gB~k+QZ-*!oq84Ts>d;7`(m=hU{Q1%Et8E9V_-nzXX-m^mJPX6MQS zUh#i!<|+N{yh_jVn%J4&%-HLm?OXTU>z>>_U+&&Ob|>Gp?ipJ5tiA3i)4S4;0TVLN z$k^-N{GYA6!Rv1DxY`Qn?Zxm;(CZWQ3?uLe|8Z_JZ+ zDyTfQ47zJ65J4OwL|9qPKUQ7cAU?{cdx+X}g${WOyGTpDlBDj*+S-fgczYZ!B4evt zq=?9A)d$R2&OD7}e#eK<9XZk7)}bB1as0Lpr73pRIs_VLo2lv5rV4;~RRLtH+}=!| zcbiMt@Au~8eY}b?^!}Qvl*_RDm?8C^k{mP!$}1)ilN}eSG4wsI0(&^Tr{a3xlU;jK z+m?t}fP}@pgflx@0WlcYQvtGoKm6e0We-~IcX&+*|F||b*eL9^j9k>x9NRB8fo1C3 zkhJ+UZ*QwQ&ARZ0a<`#(6vY$?u5l4uWcL z+}5eEF-V49g=fGRh-owskM*i7+J%`+qdk)|b&?&dCMr!=Fo6Rl?h-at)@gxDhG&cl zt8spfaFt`NNEADR=k7uhzw-f)XCVDW*CNxp{#$F1;+g4YVEDl7z}=;}Vem&_)D|RT~ zF69PH&|?sAn2Bq5j%OhHubh0>s5L2#!%HGqxw^5oNk=X=S64*oY6Cwj>o-_YLtJTI z=-fqI;X#r&WfWNP@vPBKv+8CEvUUs`ZQwclc$8qI^@SIZOeie?g#-4ZA24vLuZAOE zS(rhPym*2;!Oz%+nvmL;8dAFyB!=B#tg2QB|E&&dx`Xt?d-jP2^l+B!y(qN49;2%N z%O39=ozWfMFR!n^u%8E4Z$FZ85z_f2(++!f~)mI`Q1b#6241f}>m zPR-6mq@T_!hOzM+UJN3L_v|gCO411+T6Lz#YVciudbT+>e0PeGmXb zmw$BzQ-mK@zi@Nj5r^}dpQ4%sIyjo)VqRN%mJIzLD6iH&fMUvC>VZVV|rPYh;FTw%Z#K%$_p9uO99GO6vLWNm$(1u?kjxIQVjlOjf>nj(p zi%U1IZ(P0pi68}q?Tjlco2yqFu+DkFRDcOO&92pO3X|jFqxOut%U9R>T zc+*E+T7gJ=IO$dPkZw^s#{V@tMPUMi4gL z`yb62`c%NPH#4L%Y{K^~oACWxoACY1hY`N{*FE`rzC7{2GeblK#s~K$fKdoU;A@Sd z%>&OIc8K7wHA*%Y_ zyCj0ytLvNBueRub-3_(NH!iKNTv^$mQCnrJe$J@Y{367FQtP>%xN1lpr&cjegltsV z{otBF5Jlzg8^A>~x+>N~V^r5n5wY|lbwXj<{ky=u+qX`Em4NBmuQ#Y&FH7b64N{ll z>Wxj8Zrr$ZePsn62&qV02D*ZX{Gmd3Tn&UocciV;Nb%}tMQi0VD=qz@gIM_yrG>>M z=yz%W4m!lCjKe0X(-{M2l~ju=g3UuwZ16+VSxWnJNpi-C8+K>;(I}?YqVH~NbbLjh z8DoJ&9^%#bGC|M$Vjc%yRd1X@`GXaFv_VsMalL`5yQZI>U)#KL@!AGHp544EU>sJi zQ_jk!Gmowio~n|j@+(kMvtE7VhJsgs&$62!4c5gR+bYpYn3WSMzy@^ko zZ5izYg&p*Px}2?KI|_Oe_=DCuT<(jlwI9QbTwSNyDkPKY#53zTeHxj@rFYK!I=-rI zh>gt~FT8L@T-*>Z03zUGiAxu;byiv}yH_r3(0RS4#_$5Rm}snAqiw%_X-#dnoS7}+ z^u$&-jcou`X4<+oL?@^z4PSE?i#WYqDH= zDSb1eWLn3IaO^^Wb)Ct+H;PP#=z=wrg)l@w)_7kc)GLEgH~#Dy-L(Fqs{sC*JH`mFyci6i>5j8itQtTG*0<^d_tAVTKZqUgM;^ZoWjhGZoRXkOEhz&2&* zUgsTdZj36{HvSXuWjSn%!zX=u-q_D*z=SE}pljXV=-9PtJLbk3<9%8^8js;~d>0%U z-$%vcE4hh%3-#-J6is#)-Bg*}Sw0`NDxD{1M-cm@zgYzT3iS zp7|2XKA)pjmW>5Nzw8f%^zl*pUKT>B(!+doOed*XSmb{)Kw`_LWyyY|14B+8Jvce^ z<(I;{eqEF6zaZ!odVvlf;CwWv(7t%jfdlH+1ax0E4@HO|aRJ7L*Tg+Py4Eov^Uf4F z8{;gL1b`00>BAQ3Hoo@Gd6>O)ZvthWzMrFW``aoKaJS~?HP`VHoSZ@c9_P4dkujN2 z(EMeL20oZw`cD${Z%StHH5~N0q<=QyO3;hiDWQ+L*a@_V&L=|n6ca=tQeY!0fO;@s zS`0(_XjBoCYQGBcl2uhQM<*Zrc0E|WG5X{-YvvG&rCxXYAfN^8aX7DFq3PR46t>$Q zBLg9;Btl9E%xYC)jDD+BDVm^6@NZV|4@bJIM#Ef;8s!^mOAkwpbX-q1SP7yJuzPXw F{})23_jCXN literal 17353 zcmdU1U2J2=btb8mz5byh$*Q^$HtPw!*-)FM%s)}o+FA3Gydtke@^VRPDcPIKyCT;T zmn&^0trNEi689k}ivGZEk)I+!+XQ)O3q<<|)Q%kjX^XBO7I9Ja814d!S6vv8MYEH}O z!eicPs9V|`qjX6RD^@4gHxx& zQJ?Vpme;RbU2WEDVtox&eluO3`@+-B)y=ER>l^hml(@E8-`G5pGV}SWQAnHBiKjy2 z!s`pi1GCqf)LIBl#ZO0LK5>y6YksmOR?$|zUTfB065+{!cI^eKH!(5c6SWIl=*!op zhQLesbadL+!)`dBUEK)8r>KKq>~wGv?CB+={Dr4!`157GR6dhiEE%Z|<{~0GJr$3M z<&_I-FVr{1*7_$-3;#K-R2JTno;NFcAT?hqnn-H;ZK?KB||S2OJ=5|<;#u= zD4Z#PkTc6z6%^{CT+vFEKt`_wl18O0%6cI!Q(i6)=;!o8MdY9)exYx2%!d&k27}FiYd( z!ZqY_x!j50uDKsV!qxKh-Tu+apvxbZL#vK^3r5cCANN}0(t^QYNN__19<_1$^vU@G zNkRbgRMAtFlfn=|QKo`aPS*Bc!dP&QL@dWC2q z0a4fHa}~8FAcbXHCB3XyWJBYk@6uz3T<#Z$=c<2YY;2`AHdZ|~wtVV&B0XL`!9@>K zrcrAS);Klv?SY}haMi!|$X{`ON!<7^Q``yH)*iXC_v&@mzt`6K$M?Q@-St`vDba3J*Jj?^oTDVZ<)h4Qs$B7;I28ce{@Y77?DT!Z~Dwp zbId$0$-k0o)C|-c^*%scwN{pfTc&Sz|J&yAx&0eQXHDP!E3+?~zGvsmIdc#=NuF14Xe@^ zDvc54&&{#!N?&ars`@dYz}ws(dJiJ!d%O7%Gr1xsXX#i&@q7$RV-Ut}J(UpJ55Sorz* zTC;e#M?Wj*#~i4hF^ZBG+ z5|i6|9yQV7|jEbCAuH;P^v_%n_4tG_EU<&OD3nCJUL5)Jsmh}mmphzexiY22E z65;7-D-{nbeJ;YWczZR%;E8aAUa6SLJT&c;z$)jpqJ#({1hZ)`e2f{PE~211tAPWo zNVx)Bk%!TaPl5vtutdb8)50he=aGUCD2+Z9kBh8sWU>_qO9a0`w%VQ`S%xVJK{AMc1~(z> zMYY6AuRz~v>GTA~lG4j%L88iNx+MyJU zysuvpkU|@W@|x05SPCR?U{sWgbKOS+D_>xQ7qhZz>j>9T*MqM9;@J|fRYE&kN~Y4q%KW*q zmsgYIc2dIW3cMEq?FVVq3xSFmIA`cpy<~&b&awV1l!`4li6P(-#Tf7icd|yL5J(J7 zkq%nLG?1cz262p&wytA#?t_415`1H3La>E|k{!sFsHBs50x2^Mk6|GonUISw+)obz z`&PxxCwPyr5HE`si*!|3VAwad?2|ZW=;g!J<9|&XA2ztc>qCQ&%yOHmVK+Z{%W=Qneroc&LxYdbxq)rwJnlE1C(7fJldO}GS#C1R zzuZjL945?6`%!^+;L+V1qjV58;d+yaVH$GtIgA;zXf50lv>c14m)P+FFIwd)xUGaq3wrD5#T2 zQ0*|-^|C`zgaOgysFf}Y!OE4h^OXRsQbBD$Y$MDCdBRG8fe=2xW`-cyosD5jb=i^- z7-_rV0w}IfhQh@TDGS*Ab_R~3!?Pug7>4QZP>Esm=Sxck=~RmdML5*r|HV4AC7guN|P6-pumI(j;onrO=}tUwiaybKxGANB}h8aR$Q$4CD2#((5bXE zlO2{O>a;WwB^^l}%Wpnxru!*uliY}ShNohN2Ju?bFd`9|DNc-Nd-ElV` zOzZFNG!MVGbJyL%_nQ^#j?C^xK ziAWp>xrZa+4!0-_X#mCzq_k94M*v6Kx^U2P3j+Gtc`b)Xjf94s)k5ShKI2Q2?^KDA67Y%zfLF* zCwd^PW%)p~ZJ{P+-ELRk(4Z?J1$UwLr-LePb>m~Lv)MZlZ6|vtn%rRw)jG?f)7pM# z?UA*;8+T>)#@|}xH(Y*9DXY(_z*LfzsIptfDfpZsZ=TbufH*J`m{uEL**4Qs4e-wj z&~ZrsK!}ORg6}Gj5HJf_5*i4U(IP$I>(j%j9>;}en=J6(<6lIou6$!@5HT~E9g*RRy+3MY7q@>+Wxm>Kdb006yIo*&zxVY-P1}E^ zr9Hd-Y169z$E`#y31V__+b?U~`iQFbdh_sSwjX1nIl|hQm2qqKTM6U6*Ntx_X5V|Q zdM0V?HjLeT^$dQ0vR_R!W-n{i#Qw@2^Huxib$3~DgSgo@B)7G~-i;BNGzSo9bU)cS zvclYMYS$dd?WT7TU|bT2p9#ct+=oq}UEW2?_0tBzgLwYP^d%+b-*kdN!t~A6b~IB^ zbO~`D^GFSW$5&hCXs))CG<~~(M-*r}TBC>@AXD>@d2Hai>pN=feZO_x^{r}>=l`t- zmclKSzC{JUV}@&Pb8zo#9=AEXck?AP?50Rz*yE?#CvzYeXrC4hz+A?D`GfHnnjb!!A?$YVjQoLoJ zu9?}&*ew6ELHEIT|5D1!> zFQyT#nBY**MA0l8bXWj)g+L{WRiu2PQql_Lyiu8;-~=Eh{LKioFW5r-%K+{aP-R)O zWISsYD#%T7;JpHM1|T~Ltqmn#(s4|3zh;4CZEhEVncKMq0uUjfGrwvGkqXtgqf?ug zY=l5YH-@wn3OSPO{3zgH`(y+#$Qx_BmK`b+I#TzzT!)5)`|?85v;WG$Y=KQ&i3~q9uh%8^@$H-Sa3wqVOXH$q;ZJ%7zb%Z0%TM4 zQa~QyGu`3%`}cj8w`cn4j47Ne}vfs4=fM>&hqbX)UkIkI7BXIUXc z&2L~{JPCFVZ#6XeyqLK2gm&kNy<3Y&G>`2L4Y{-b+(-cYX!sjC)IT@7e{(c9_x2rE zo__ZJY~{;ymv^4q{@2yvTc5~Yet)sCcl%>Tf8ST7CwY4)QM>cR<$wIXhW7B-!~R3K z?flHMI=m~e49~=2LlH1=S)E`LN_yIOK92Rx1mw?ha_A+}$S{Nis3Vk{T=j z^e&qf_dp{>BrT2w$}K;!@<_<NzSQnahsY&KJCb?S0Yk)tyVOP0cMs3toz1yyKgVBG9X2*GMg zv?B2OtV$sq&RcW<6Dx^$xJp9$eum6R=SJRou!N4{-gKZrit*QBuH8)!E0N|y?epdv zk0ltLvO#8n8FUa}jJT8wZhR{1C|YzI9=9~(O;IyeY7X~$Q2H3KJR!s|$h%RuHbQW1 z%UP{x(e17if6&Li+ALpL`50^UOvIS@N)M~ES7%v2~Y23Lw(>8gSVjU!}5j!{oD z*sK6&9YHc6Pi|PipOx_@`0O%)hz~(B>r{((x+BDAO?pVkFnNH_Gzk0AxeWPcVR2IS zg&9ceC$T91?ZGJ$FjRsLSrUBI(mb4?6PD&-ggJINV7teRcJb6NR)v?1YF~r`d zZ6Cqmp4+i&am44yWg!dr!w(*AcEEW@V`Z?XoEsI}0ox~OE~v;fqQ5=ciOy_#h?p## zs>pHD@iK*A?2(aY(pCl*>mlnb({XX??=TKe!mZIp(bPuKx;BbbM%V+ITUJ2@$5ye5 zWjS^NSF#%6onTi{ZEzv#Q8T=ISP#DCccf3Tgty;LY#*(;G0XDwr6rG2HLmm+r2c)n z?nUd_C9Md<(e15LRfOoq1kDPPy=R#roWOTE%WxIDC~#<13%DMlQV|?EaI3T+I6~=N ziLN7;_G-u@7{_9a0El{|ikId=j*mtL7}l{>5q^ixq&`D}+d&fYO4su8dSSjCkXzq& z$Dj^u$6LNY@hz%J(){;8B7L3L=bHVA#?Y`Q+jqNc4DTS0-|VmLB!)iTKi7AAF*m&P zTJm;Ku7x3^&MP$;{FlKANqarf>>nDYSDu+2bSFJ52ixzvUpJcl@-U4TerM;ktY=~S zEAsXplitkzVLrG2O8$*G&vV;<;Qq{P&d75C|LitB|G;fYHJEc0?KJy$_@&Y=$UM5|)Z;&lW711PcnV5WMYe1ZUx$wICP0wSa|W zEyWLR0rggbDVGY-=7H|LSm*P6Nu{kXaAGF;vb8KQJ-2QXa8$J}ZeZ>`ite!YgD`r0*CerYL8bdnZvNRrgFa1nXVg2Jfid6J?rh;QHX_;JbAPpAhk z85t!EjHAy7#SI|gERMJXl!9TA!U^ckc?kFYf<;pH5q)6U2fOeztZio5j}OnTic-*? zyDvvHoO_426u$??zIymYQ@=cZ4?GA^>>gCs!!0c3FNNFl96-sDaW5E!3|zS`N+)NM zDLSi6nz{50f`q_^GR(wrD8%vIzkdjDokjHV+Um%oty*Q|cuPjQM@CyxfsG8eYV#xT z#TjUg2rF^4)u^p~@q-%Mq#@Y$nlbWlYxqO7#(3`kON-6E5rir}+}MW>^<|COxi;Em zrOY#uZ6_t(W$J93I>$+@SIu1YkQ0y#DZhrUE&j=3k|ek z4-#@g_Yv>2og;8y?h~!1n+GbCN!(?12q2IsT?fq3?F(GdL&O9laVRNlqcBhh{7-sC z-N*|=>m1M!pnAKZ5bkR^8-n%-;htt^Lm?QT-iAW(y4no^kUQIf)`X?$Yz9cFw-t)q zw};iq3@k+#D_9N@!9aaae8A_f_Qj*jADR2aJ!h&&9$ z?$cqFHbidqg_W%}+-$m5K7C!pee8%U+rKc%`^5s#4 zI@pjeVJ?01SLuTdu~xsZA(pRgY_4xSdU>h^xf$mxs?f%k9s1m zni-@hSET>Iz^YXpQLZ;?IV;GT8R(3%zFEs#(XO96!1|mFu+DLSb&k2@0INz;v`Z#u zDcYry6z!Vh04x1=1y~p0-Qf(y8SM(epX|9&9p1vwp4HE%pNYb zuza0uv>)*T+&P8NX+zSR2K*2a31E_q#(`e}1{rGBNpNuxFjMuooi^3wNQ_dGTA%Uibc1QVEC);-YR z;R7vMdLTqaH>xStpySk5CTAwK9Dj0l9~QXiz%~U|;vVJ~t*d1zZd@ZpFV?SZIkfub z@qh6p|@+^pU@? zwtDqi^THPKPrY2)xNxP8)P*gQ1ndd=u9g#i`=U87ub_Q=89H;0zOpDvimo~TRS0GHp^%lM>wPdsho3;TL z+OoHj<)5fc;Pn}6@X0SUSAPRDvc5*G6-g%fJI)E#bLx6*dlG%~YxtzKCN{UOUAlBi zT-X$s0B-Ow#PS7foqDrrapgcY_K19CIfhHvVxm^RO51*Ic~x$=w4Tc0ZUw&KOv9~8 znZ-pU^mAG+fo%Z0qg%SxPgi=0hEHj8Ib0_$=CnnT%P|zkvq0e{YaqbIJs+gvQiW98 z)DVQ7M=UkB*AFC`*HR@@UUi}AlNWET1Ll%m#5ciZF<*f07AFv+h6_mFY@*MkRA+u% zc}bfvEwXL^J-{9z4E!njjFw(kB-|^&TmCbjM$ptj_Mbnc2p9aA^tS{e1YbW`2H4-%7tjrvNz~iIL`BMosKs1G!vnR-DUxa@ll?%`j z&*{_htLhUb?u?rS+@Wz473kV54@d$S;n&aRMEg}$?zJY;Zx&PVX37e8sBeCW-}XD) z-8eO@Z2U7)e<_!u>&lO1arhoj*BkdRVG=p0Ru48hR;$X6IkCn>k5&)ixUvI|OdO!% z!_(o(11t6FdsK~eRy|Pp3w-cJ_1ad4%}Wn^Og(@jC%u;mWp)p;I@Bj5Sf8o5ah>q-{l|>htT}BzZguW1x(O0i} zl_)B%! umMBt9JXv!-K*fKWu~6Sw|C~szZ(Lp9kjMiu7JRvbKueHPQ&0hD%lp4Gls~Wl diff --git a/lispusers/COMPILEBANG.LCOM b/lispusers/COMPILEBANG.LCOM index c18e7e1f16b0c5e1329b03504483452c008932d3..0cf3f4c8fc548ea956b62554c9ba1d97b1511ed1 100644 GIT binary patch delta 545 zcma)&%TB^T7==R=OlG07)7|fEY&FGpTCt8sQ<#A?DJ}K_vgB%r+yb~VhBq)IyoFm| zz{Hm_(S-wQaA6|rbG~!_|4g?YH>ddtLQ>9lc-H4u$QfYGRC3LlLR69lElr6*k54g3 zxZdv$+MQ+t`aQsKUoLRw@XEt^r#%|njhe&J#kZqY?cJo#hztm8>0eod8XDCJhVk6k z*>6BwBu#RWW=_J#qvKF>r_8kdCy}(|7RbzBf89ZnxuAR=@bHTi3&?1u#6f^=yte(*ma*KtEDPx+ yel4WkMC%Yq9Hgtr6Tf6Hg*KNZi?PrvSw75P7ncSWWCitfgc6jY(RRgkea!H_z}>p(fCi3>(<*0P<73RO9C zL6!19xbO=Q|AHewf-}!ip`n+jm1f?|ywQHSaeni>zaVPQA84MNwZ@E zwV3gQwWtEBGLgr5nk7?^Gf?1@CtjZI<%Rr^Osej2GR=}xQ{U-kX_?QZF7)PE2I91o^9n9g>AJ4K zbX;K;vL4o824$wHXjkqrjHZ`Nnsytg%`AhN7Ut)XFV6M`z6eJP!6VVFpYAZ?U3a)2 zVja(%ps(+mU|Q`Rn7qd`k`gNUfPvZz1dt2bwg!2ToTPGIt}-F6PR^amf=8tLYRIC>CROCK.;2 17791 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - previous date%: "11-Jan-86 19:46:27" {PHYLUM}LYRIC>CROCK.;1) +(FILECREATED "18-Feb-2026 16:26:31" {WMEDLEY}CROCK.;2 17189 + :EDIT-BY rmk + + :PREVIOUS-DATE " 2-Apr-87 00:37:46" {WMEDLEY}CROCK.;1) -(* " -Copyright (c) 1984, 1985, 1986, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT CROCKCOMS) -(RPAQQ CROCKCOMS ((* CROCK -- By Kelly Roach *) - (FNS CROCK CROCK.BUTTONEVENTFN CROCK.CHANGE.STYLE CROCK.CLOSEFN CROCK.PROCESS - CROCK.RESHAPEFN CROCK.ALARM CROCK.RING.ALARM CROCK.INIT) - (INITVARS (CROCK.DEFAULT.STYLE '(HANDS T TIMES NIL RINGS NIL NUMBERS T)) - (CROCK.STYLE.MENU) - (CROCK.ALARMS) - (CROCK.DATEFORMAT '(DATEFORMAT NO.SECONDS)) - [CROCK.TUNE '((1000 . 1000) - (800 . 1000) - (600 . 1000) - (500 . 1000) - (400 . 1000) - (NIL . 500) - (440 . 1000) - (484 . 1000) - (540 . 1000) - (600 . 1000) - (2000 . 1000) - (1600 . 1000) - (1200 . 1000) - (1000 . 1000) - (800 . 1000) - (NIL . 500) - (880 . 1000) - (968 . 1000) - (1080 . 1000) - (1188 . 1000] - (CROCKWINDOW)))) +(RPAQQ CROCKCOMS + ((* CROCK -- By Kelly Roach *) + (FNS CROCK CROCK.BUTTONEVENTFN CROCK.CHANGE.STYLE CROCK.CLOSEFN CROCK.PROCESS CROCK.RESHAPEFN + CROCK.ALARM CROCK.RING.ALARM CROCK.INIT) + (INITVARS (CROCK.DEFAULT.STYLE '(HANDS T TIMES NIL RINGS NIL NUMBERS T)) + (CROCK.STYLE.MENU) + (CROCK.ALARMS) + (CROCK.DATEFORMAT '(DATEFORMAT NO.SECONDS)) + [CROCK.TUNE '((1000 . 1000) + (800 . 1000) + (600 . 1000) + (500 . 1000) + (400 . 1000) + (NIL . 500) + (440 . 1000) + (484 . 1000) + (540 . 1000) + (600 . 1000) + (2000 . 1000) + (1600 . 1000) + (1200 . 1000) + (1000 . 1000) + (800 . 1000) + (NIL . 500) + (880 . 1000) + (968 . 1000) + (1080 . 1000) + (1188 . 1000] + (CROCKWINDOW)))) @@ -334,31 +334,31 @@ Copyright (c) 1984, 1985, 1986, 1987 by Xerox Corporation. All rights reserved. (RPAQ? CROCK.DATEFORMAT '(DATEFORMAT NO.SECONDS)) -(RPAQ? CROCK.TUNE '((1000 . 1000) - (800 . 1000) - (600 . 1000) - (500 . 1000) - (400 . 1000) - (NIL . 500) - (440 . 1000) - (484 . 1000) - (540 . 1000) - (600 . 1000) - (2000 . 1000) - (1600 . 1000) - (1200 . 1000) - (1000 . 1000) - (800 . 1000) - (NIL . 500) - (880 . 1000) - (968 . 1000) - (1080 . 1000) - (1188 . 1000))) +(RPAQ? CROCK.TUNE + '((1000 . 1000) + (800 . 1000) + (600 . 1000) + (500 . 1000) + (400 . 1000) + (NIL . 500) + (440 . 1000) + (484 . 1000) + (540 . 1000) + (600 . 1000) + (2000 . 1000) + (1600 . 1000) + (1200 . 1000) + (1000 . 1000) + (800 . 1000) + (NIL . 500) + (880 . 1000) + (968 . 1000) + (1080 . 1000) + (1188 . 1000))) (RPAQ? CROCKWINDOW ) -(PUTPROPS CROCK COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1940 16814 (CROCK 1950 . 2520) (CROCK.BUTTONEVENTFN 2522 . 2811) (CROCK.CHANGE.STYLE -2813 . 5626) (CROCK.CLOSEFN 5628 . 5790) (CROCK.PROCESS 5792 . 14290) (CROCK.RESHAPEFN 14292 . 14451) -(CROCK.ALARM 14453 . 15681) (CROCK.RING.ALARM 15683 . 16424) (CROCK.INIT 16426 . 16812))))) + (FILEMAP (NIL (1609 16483 (CROCK 1619 . 2189) (CROCK.BUTTONEVENTFN 2191 . 2480) (CROCK.CHANGE.STYLE +2482 . 5295) (CROCK.CLOSEFN 5297 . 5459) (CROCK.PROCESS 5461 . 13959) (CROCK.RESHAPEFN 13961 . 14120) +(CROCK.ALARM 14122 . 15350) (CROCK.RING.ALARM 15352 . 16093) (CROCK.INIT 16095 . 16481))))) STOP diff --git a/lispusers/CROCK.LCOM b/lispusers/CROCK.LCOM index f488bb502adfdd19fb9c44efaf59ca16d17ad430..4bce6dbe641b0423fa70dd0c2eeafbe9abac772a 100644 GIT binary patch delta 649 zcmaix&ubG=5XZBvhx(|8g4DK1GI?m-MRwh{37hpP)@}A}ePp|vZW3d_gT`((+WcS> zK@iEsbD_M0|AChtdlq`};JFvUKf#mu5BOG*RtR|c&JSijGt3D8CtFuN=JSy0J`b4A zLqCFi-L2N#Ee4o}O%?~dQOAc%tJ6)l!GM?=LTXlAjhWkI9$@0=e$v$~)3Sls)Us)* zj6ucEhW$}*KiP%h05H65Z!<4oop*Qld*jjTagvVjRpY2yGwxU#AWZCY6pNM#Em;`4 zY4R5{h2+gB9bcy~7*1aF2G5}@EA=S;%l%W?@T1;(qb6ENT@UsRzXjumHBWiEl~oq;N%iFJ2S}u$%!`|G~6* M=tXS}g*-sN04Q3lQ~&?~ delta 664 zcmZ{i&2G~`5XTk5p+edN2TFucJXr~9ADnvAIR0oAWNe4JaS~%EYRdtUHm(%p#F3LA zpo$8Q0Dg*c?HP$P2&od!zyYpYxF9iZ6(NMU%+Boo=eIMn`@>EfJa5?zr)`T3$F)VL z-RMBkw+*Xn+;?rDPP=RSt`m6l&Gj260^u{6iGr?e0fm~lGmk{A3KG+0O_vl3JUxs@ zlVKDNAReRS*b179t!Ox%9L7ml&z$)*Or~|y@0iWjkzS)ZKmGF_(o^fGLW`V3LH-hVgs~0|#%rqhq;@i97wVsMdgKNYX3V_p!IV@Ag{% z#W8_gbPT$slC#rXl*^HHHU9LISPCORE>DEFAULTICON.;1 4586 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (FNS \MAKEICONWINDOW) +(FILECREATED "18-Feb-2026 16:26:48" {WMEDLEY}DEFAULTICON.;2 4702 - previous date%: "19-Dec-85 01:24:06" {ERIS}KOTO>LISPUSERS>DEFAULTICON.;1) + :EDIT-BY rmk + :PREVIOUS-DATE "13-Jan-87 01:23:25" {WMEDLEY}DEFAULTICON.;1) -(* " -Copyright (c) 1985, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT DEFAULTICONCOMS) @@ -16,137 +13,140 @@ Copyright (c) 1985, 1987 by Xerox Corporation. All rights reserved. (UGLYVARS \DEFAULTICON) (INITVARS (DEFAULTICON \DEFAULTICON)) (FNS \MAKEICONWINDOW))) + (FILESLOAD ICONW) -(READVARS \DEFAULTICON) -(({(READBITMAP)(64 64 -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@AOOOOOOOOOOH@@" -"@@N@@@@@@@@@@G@@" -"@C@@@@@@@@@@@@L@" -"@D@@@@@@@@@@@@B@" -"@H@@@@@@@@@@@@A@" -"A@@@@@@@@@@@@@@H" -"B@@@@@@@@@@@CO@D" -"B@@@@@@@@@@@BDHD" -"D@@@@@@@@@@@ABDB" -"D@@@@@@@@@@@AODB" -"D@@@@@@@@@@@ABLB" -"D@@@@@@@@@@@ABDA" -"H@@@@@@@@@@@ABDA" -"H@@@@@@@@@@@AOHA" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"H@@@@@@@@@@@@@@A" -"D@@@@@@@@@@@@@@B" -"D@@@@@@@@@@@@@@B" -"D@@@@@@@@@@@@@@B" -"B@@@@@@@@@@@@@@D" -"B@@@@@@@@@@@@@@D" -"A@@@@@@@@@@@@@@H" -"@H@@@@@@@@@@@@A@" -"@D@@@@@@@@@@@@B@" -"@C@@@@@@@@@@@@L@" -"@@N@@@@@@@@@@G@@" -"@@AOOOOOOOOOOH@@")} {(READBITMAP)(64 64 -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@@@@@@@@@@@@@@@" -"@@AOOOOOOOOOOH@@" -"@@OOOOOOOOOOOO@@" -"@COOOOOOOOOOOOL@" -"@GOOOOOOOOOOOON@" -"@OOOOOOOOOOOOOO@" -"AOOOOOOOOOOOOOOH" -"COOOOOOOOOOOOOOL" -"COOOOOOOOOOONDOL" -"GOOOOOOOOOOOOBGN" -"GOOOOOOOOOOOOOGN" -"GOOOOOOOOOOOOBON" -"GOOOOOOOOOOOOBGO" -"OOOOOOOOOOOOOBGO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"OOOOOOOOOOOOOOOO" -"GOOOOOOOOOOOOOON" -"GOOOOOOOOOOOOOON" -"GOOOOOOOOOOOOOON" -"COOOOOOOOOOOOOOL" -"COOOOOOOOOOOOOOL" -"AOOOOOOOOOOOOOOH" -"@OOOOOOOOOOOOOO@" -"@GOOOOOOOOOOOON@" -"@COOOOOOOOOOOOL@" -"@@OOOOOOOOOOOO@@" -"@@AOOOOOOOOOOH@@")} (5 6 52 46))) + +(READVARS-FROM-STRINGS '(\DEFAULTICON) + "(({(READBITMAP)(64 64 +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@AOOOOOOOOOOH@@%" +%"@@N@@@@@@@@@@G@@%" +%"@C@@@@@@@@@@@@L@%" +%"@D@@@@@@@@@@@@B@%" +%"@H@@@@@@@@@@@@A@%" +%"A@@@@@@@@@@@@@@H%" +%"B@@@@@@@@@@@CO@D%" +%"B@@@@@@@@@@@BDHD%" +%"D@@@@@@@@@@@ABDB%" +%"D@@@@@@@@@@@AODB%" +%"D@@@@@@@@@@@ABLB%" +%"D@@@@@@@@@@@ABDA%" +%"H@@@@@@@@@@@ABDA%" +%"H@@@@@@@@@@@AOHA%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"H@@@@@@@@@@@@@@A%" +%"D@@@@@@@@@@@@@@B%" +%"D@@@@@@@@@@@@@@B%" +%"D@@@@@@@@@@@@@@B%" +%"B@@@@@@@@@@@@@@D%" +%"B@@@@@@@@@@@@@@D%" +%"A@@@@@@@@@@@@@@H%" +%"@H@@@@@@@@@@@@A@%" +%"@D@@@@@@@@@@@@B@%" +%"@C@@@@@@@@@@@@L@%" +%"@@N@@@@@@@@@@G@@%" +%"@@AOOOOOOOOOOH@@%")} {(READBITMAP)(64 64 +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@@@@@@@@@@@@@@@%" +%"@@AOOOOOOOOOOH@@%" +%"@@OOOOOOOOOOOO@@%" +%"@COOOOOOOOOOOOL@%" +%"@GOOOOOOOOOOOON@%" +%"@OOOOOOOOOOOOOO@%" +%"AOOOOOOOOOOOOOOH%" +%"COOOOOOOOOOOOOOL%" +%"COOOOOOOOOOONDOL%" +%"GOOOOOOOOOOOOBGN%" +%"GOOOOOOOOOOOOOGN%" +%"GOOOOOOOOOOOOBON%" +%"GOOOOOOOOOOOOBGO%" +%"OOOOOOOOOOOOOBGO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"OOOOOOOOOOOOOOOO%" +%"GOOOOOOOOOOOOOON%" +%"GOOOOOOOOOOOOOON%" +%"GOOOOOOOOOOOOOON%" +%"COOOOOOOOOOOOOOL%" +%"COOOOOOOOOOOOOOL%" +%"AOOOOOOOOOOOOOOH%" +%"@OOOOOOOOOOOOOO@%" +%"@GOOOOOOOOOOOON@%" +%"@COOOOOOOOOOOOL@%" +%"@@OOOOOOOOOOOO@@%" +%"@@AOOOOOOOOOOH@@%")} (5 6 52 46))) +") (RPAQ? DEFAULTICON \DEFAULTICON) (DEFINEQ @@ -175,7 +175,6 @@ Copyright (c) 1985, 1987 by Xerox Corporation. All rights reserved. (WINDOWPROP icon 'HEIGHT] icon]) ) -(PUTPROPS DEFAULTICON COPYRIGHT ("Xerox Corporation" 1985 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3170 4498 (\MAKEICONWINDOW 3180 . 4496))))) + (FILEMAP (NIL (3351 4679 (\MAKEICONWINDOW 3361 . 4677))))) STOP diff --git a/lispusers/DEFAULTSUBITEMFN b/lispusers/DEFAULTSUBITEMFN index 9ea07293..671dd038 100644 --- a/lispusers/DEFAULTSUBITEMFN +++ b/lispusers/DEFAULTSUBITEMFN @@ -1,17 +1,17 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED " 4-Mar-87 15:59:01" {PHYLUM}LYRIC>DEFAULTSUBITEMFN.;1 1299 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - previous date%: "31-Jan-86 17:45:55" {PHYLUM}KOTO>LISPUSERS>DEFAULTSUBITEMFN.;1) +(FILECREATED "18-Feb-2026 16:28:38" {WMEDLEY}DEFAULTSUBITEMFN.;2 1229 + :EDIT-BY rmk + + :PREVIOUS-DATE " 4-Mar-87 15:59:01" {WMEDLEY}DEFAULTSUBITEMFN.;1) -(* " -Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT DEFAULTSUBITEMFNCOMS) -(RPAQQ DEFAULTSUBITEMFNCOMS ((* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the subitem menu field) (FNS DEFAULTSUBITEMFN)) -) +(RPAQQ DEFAULTSUBITEMFNCOMS ((* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the + subitem menu field) + (FNS DEFAULTSUBITEMFN))) (* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the subitem menu field) (DEFINEQ @@ -20,7 +20,6 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. (LAMBDA (MENU ITEM) (* edited%: "31-Dec-85 16:41") (* rrb "17-Aug-84 17:24") (* default subitemfn for menus. Checks the fourth element of the item for an expression of the form (SUBITEMS a b c) or if the fourth element is (EVAL form) will return the value of form. MENU and ITEM will be available during the evaluation) (PROG (TEMP) (RETURN (if (AND (LISTP ITEM) (LISTP (SETQ TEMP (CDR ITEM))) (LISTP (SETQ TEMP (CDR TEMP))) (LISTP (SETQ TEMP (CDR TEMP)))) then (SELECTQ (CAR (SETQ TEMP (LISTP (CAR TEMP)))) (SUBITEMS (CDR TEMP)) (EVAL (EVAL (CADR TEMP))) NIL))))) ) ) -(PUTPROPS DEFAULTSUBITEMFN COPYRIGHT ("Xerox Corporation" 1986 1987)) (DECLARE%: DONTCOPY (FILEMAP (NIL (606 1206 (DEFAULTSUBITEMFN 616 . 1204))))) STOP diff --git a/lispusers/DEFAULTSUBITEMFN.LCOM b/lispusers/DEFAULTSUBITEMFN.LCOM index 98190d4c227cef836898a8319dc06a3decfa492e..8152410b52a5a7b7d949984a700120023197493c 100644 GIT binary patch delta 367 zcmdnO*2|`*;o|D%>F28J=IP_A>*?p_uOJuT=qOy^Kp^=fL zf|aX_XNay-q(V_{wgQ(`K#*&gr+;X$t_#rflNiN0k-R0x$TfKZqX>}P%D5az#xkV= O$sSG-;D4fi(GQ)22zt57=dGq6A_S(pD5LdI1;G zLwEs?;tjlrUkcKS@OX=1X5P$uYkW3n+Qfa!!EE2MF>5(}7fyVvo1xybF(Atcv2R;} zhu#kk4ThpCnn4I5HUWXm21&sxA_y&2Xp=!eqgj4eq*)R}J|~nXGZ?KevUE|*@-opj zdhIyo8K96Lv%^(ZiTSQ7$g0>ua9wG$vlvn$9Vc;?Jc1yx`s%jgaU6#ro-T1^#b@OFkFvhzZ`_*#aBt0KY)>!MP5#qX+B55D^)~A?lKJJST^+o D#F&CQ diff --git a/lispusers/LAMBDATRAN b/lispusers/LAMBDATRAN index 69e9672e..98ce0d57 100644 --- a/lispusers/LAMBDATRAN +++ b/lispusers/LAMBDATRAN @@ -1,41 +1,38 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED "19-Feb-87 10:40:43" {QV}PARSER>NEXT>LAMBDATRAN.;2 9556 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (FNS FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS) +(FILECREATED "18-Feb-2026 16:30:17" {WMEDLEY}LAMBDATRAN.;2 9157 - previous date%: "19-Feb-87 09:56:18" {QV}PARSER>NEXT>LAMBDATRAN.;1) + :EDIT-BY rmk + :PREVIOUS-DATE "19-Feb-87 10:40:43" {WMEDLEY}LAMBDATRAN.;1) -(* " -Copyright (c) 1984, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT LAMBDATRANCOMS) -(RPAQQ LAMBDATRANCOMS [(* Translation machinery for new LAMBDA words) - (LOCALVARS . T) - [DECLARE%: FIRST (P (VIRGINFN 'ARGLIST T) - (MOVD? 'ARGLIST 'OLDARGLIST) - (VIRGINFN 'NARGS T) - (MOVD? 'NARGS 'OLDNARGS) - (VIRGINFN 'ARGTYPE T) - (MOVD? 'ARGTYPE 'OLDARGTYPE) - (MOVD? 'NILL 'LTDWIMUSERFN] - (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS) - (ADDVARS (DWIMUSERFORMS (LTDWIMUSERFN))) - (PROP VARTYPE LAMBDATRANFNS) - (ALISTS (LAMBDATRANFNS)) - (PROP MACRO LTSTKNAME) - (P (PUTHASH 'LTSTKNAME '(NIL) MSTEMPLATES)) - (P (RELINK 'WORLD)) - (DECLARE%: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T)) - (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST LAMBDATRANFNS BOUNDPDUMMY - )) - (DECLARE%: DONTCOPY (RECORDS LAMBDAWORD)) - (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - (ADDVARS (NLAMA) - (NLAML LTSTKNAME) - (LAMA]) +(RPAQQ LAMBDATRANCOMS + [(* Translation machinery for new LAMBDA words) + (LOCALVARS . T) + [DECLARE%: FIRST (P (VIRGINFN 'ARGLIST T) + (MOVD? 'ARGLIST 'OLDARGLIST) + (VIRGINFN 'NARGS T) + (MOVD? 'NARGS 'OLDNARGS) + (VIRGINFN 'ARGTYPE T) + (MOVD? 'ARGTYPE 'OLDARGTYPE) + (MOVD? 'NILL 'LTDWIMUSERFN] + (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS) + (ADDVARS (DWIMUSERFORMS (LTDWIMUSERFN))) + (PROP VARTYPE LAMBDATRANFNS) + (ALISTS (LAMBDATRANFNS)) + (PROP MACRO LTSTKNAME) + (P (PUTHASH 'LTSTKNAME '(NIL) + MSTEMPLATES)) + (P (RELINK 'WORLD)) + (DECLARE%: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T)) + (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST LAMBDATRANFNS BOUNDPDUMMY)) + (DECLARE%: DONTCOPY (RECORDS LAMBDAWORD)) + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) + (NLAML LTSTKNAME) + (LAMA]) @@ -46,12 +43,19 @@ Copyright (c) 1984, 1987 by Xerox Corporation. All rights reserved. (LOCALVARS . T) ) (DECLARE%: FIRST + (VIRGINFN 'ARGLIST T) + (MOVD? 'ARGLIST 'OLDARGLIST) + (VIRGINFN 'NARGS T) + (MOVD? 'NARGS 'OLDNARGS) + (VIRGINFN 'ARGTYPE T) + (MOVD? 'ARGTYPE 'OLDARGTYPE) + (MOVD? 'NILL 'LTDWIMUSERFN) ) (DEFINEQ @@ -190,14 +194,18 @@ Copyright (c) 1984, 1987 by Xerox Corporation. All rights reserved. (ADDTOVAR DWIMUSERFORMS (LTDWIMUSERFN)) -(PUTPROPS LAMBDATRANFNS VARTYPE ALIST) +(PUTPROPS LAMBDATRANFNS VARTYPE ALIST) (ADDTOVAR LAMBDATRANFNS ) -(PUTPROPS LTSTKNAME MACRO (X (CONS COMMENTFLG X))) -(PUTHASH 'LTSTKNAME '(NIL) MSTEMPLATES) +(PUTPROPS LTSTKNAME MACRO (X (CONS COMMENTFLG X))) + +(PUTHASH 'LTSTKNAME '(NIL) + MSTEMPLATES) + (RELINK 'WORLD) (DECLARE%: EVAL@COMPILE DONTCOPY + (RESETSAVE DWIMIFYCOMPFLG T) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -219,8 +227,7 @@ Copyright (c) 1984, 1987 by Xerox Corporation. All rights reserved. (ADDTOVAR LAMA ) ) -(PUTPROPS LAMBDATRAN COPYRIGHT ("Xerox Corporation" 1984 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2224 8821 (ARGLIST 2234 . 3188) (ARGTYPE 3190 . 3544) (FNTYP1 3546 . 4455) ( -LTDWIMUSERFN 4457 . 7957) (LTSTKNAME 7959 . 8483) (NARGS 8485 . 8819))))) + (FILEMAP (NIL (1871 8468 (ARGLIST 1881 . 2835) (ARGTYPE 2837 . 3191) (FNTYP1 3193 . 4102) ( +LTDWIMUSERFN 4104 . 7604) (LTSTKNAME 7606 . 8130) (NARGS 8132 . 8466))))) STOP diff --git a/lispusers/LAMBDATRAN.LCOM b/lispusers/LAMBDATRAN.LCOM index 2c586bd0bbf8cbc1491c1889865d00245ca82547..f11cf025a2c9cb7cdbecc1bb9292d69ca9b8eba0 100644 GIT binary patch delta 645 zcmaixL2DC16vx@spqcG1dXXx&JO-`1!iMZ7P10!*Hr?4UxZT9frqYu(W~-seCL|RC zBIzd(bP>;9>oHfqgy2z7Pl5+OgKz6Wg+hnn2lM95|NZB^kE@?n)^wM9BH*Scd~S-s zYr<;F*}m^II8YHpJoH7oMPFaNKCe4%4pz}1M9-49L+(V}1!~nyFYcOl(XN11VWlFo zOB8haWHcQ22XPNZ2~c?PaEH4--+Q?==ugMbr}1QZ&v$m}t`mh$P}sB$Ak?b-BW1I) z#Y#4X?j%O7`5&=(Hl9pxGe|~9&-%$z=%cvT@qH})_idq2pwQbt!s2I%mW$Ll_Y+q2 zf7A0bUBia8UIoTo5t;Qpm<$hrwL-otnw_?Zf8zujv~lXJR>khIGHz_odF`;!;I0T8 zIFSJK2c2e={*Y9Oyix8-Bn9~fa#LPICdy6ZT+ZSrvY`?uY~aiyU~Y{pzR7tBFMeKl zi#)#gOCpO=ZXn~~%cWPy!^`h-L~lVUJ+1w9qLxFSG`uH!+p)P)|pHqUGTeZVvPI#{D9g5Y=H)I zgZl<6tg4`u%PY`%-0nXLhmgj1br3BUfW`Q(rvP!dxotOFSZpzHc)&N9(WJl(zY$0< zNW!CDJQ|*XVyU29P!u)2yrL`BbBg?LjQ>(75}CZq+|H26=ghqfd6iqh>5c4So`_qv z-@uDyAa1r?P678tFe(AZn!Q|}xQ=-q!^k)*5rS*Hbq=~&C8r;C$V|*5#iW za%#>*SzNro@&fh#>>CVyn@y)#&AEda0-^^~oXOWYD@$MsGFi{9;qP&7AN6}~54CceC#qNHRn}KdOlx%NJO7H zHrqHq>9*@TCi;k8i+jH71%K5--Su{TyYYbIlidlE_$k!mWDqCqv={dUP_!z(KdoB9 IdS*N17has$@&Et; diff --git a/lispusers/LAYOUT-SEDIT b/lispusers/LAYOUT-SEDIT index 691b0076..705a6a3b 100644 --- a/lispusers/LAYOUT-SEDIT +++ b/lispusers/LAYOUT-SEDIT @@ -1,128 +1,127 @@ -(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (§NICKNAMES "L-S"))) -(il:filecreated " 9-Jan-87 19:55:25" il:{eris}lispcore>layout-sedit.\;2 7190 +(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S")) READTABLE "XCL" BASE 10) - il:|changes| il:|to:| (il:variables user::*l-s-region-zero* user::*l-s-region-delta* - user::*l-s-reuse-earlier-regions*) - (il:functions get-region save-region user::use-l-s-regions - user::stop-using-l-s-regions) - (il:vars il:layout-seditcoms) +(IL:FILECREATED "18-Feb-2026 16:36:18" IL:|{WMEDLEY}LAYOUT-SEDIT.;2| 5714 - il:|previous| il:|date:| "26-Dec-86 19:42:46" il:{eris}lisp>layout-sedit.\;2) + :EDIT-BY IL:|rmk| + + :CHANGES-TO (IL:VARS IL:LAYOUT-SEDITCOMS) + (IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* + USER::*L-S-REUSE-EARLIER-REGIONS*) + (IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS REGION-PLUS + GET-REGION SAVE-REGION) + + :PREVIOUS-DATE " 9-Jan-87 19:55:25" IL:|{WMEDLEY}LAYOUT-SEDIT.;1|) -; Copyright (c) 1986, 1987 by Pavel Curtis. All rights reserved. +(IL:PRETTYCOMPRINT IL:LAYOUT-SEDITCOMS) -(il:prettycomprint il:layout-seditcoms) +(IL:RPAQQ IL:LAYOUT-SEDITCOMS + ((IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) + (IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* + USER::*L-S-REUSE-EARLIER-REGIONS*) + (IL:FUNCTIONS REGION-PLUS) + (IL:FUNCTIONS GET-REGION SAVE-REGION) + (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY (IL:P (USER::USE-L-S-REGIONS) + )) + + (IL:* IL:|;;| "Arrange to use the proper compiler and makefile environment ") -(il:rpaqq il:layout-seditcoms ((il:functions user::use-l-s-regions user::stop-using-l-s-regions) - (il:variables *region-alist* user::*l-s-region-zero* - user::*l-s-region-delta* user::*l-s-reuse-earlier-regions*) - (il:functions region-plus) - (il:functions get-region save-region) - (il:declare\: il:donteval@load il:donteval@compile il:docopy - (il:p (user::use-l-s-regions))) - (il:* il:|;;| - "Arrange to use the proper compiler and makefile environment ") - (il:prop (il:filetype il:makefile-environment) - il:layout-sedit))) + (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) + IL:LAYOUT-SEDIT))) -(defun user::use-l-s-regions nil (assert (null il:|\\\\contexts|) - nil "Close all open SEdit windows") - (il:sedit.reset) - (il:movd 'il:sedit.get.window.region 'old-get-region) - (il:movd 'il:sedit.save.window.region 'old-save-region) - (il:movd 'get-region 'il:sedit.get.window.region) - (il:movd 'save-region 'il:sedit.save.window.region)) +(DEFUN USER::USE-L-S-REGIONS () + (ASSERT (NULL IL:|\\\\contexts|) + NIL "Close all open SEdit windows") + (IL:SEDIT.RESET) + (IL:MOVD 'IL:SEDIT.GET.WINDOW.REGION 'OLD-GET-REGION) + (IL:MOVD 'IL:SEDIT.SAVE.WINDOW.REGION 'OLD-SAVE-REGION) + (IL:MOVD 'GET-REGION 'IL:SEDIT.GET.WINDOW.REGION) + (IL:MOVD 'SAVE-REGION 'IL:SEDIT.SAVE.WINDOW.REGION)) +(DEFUN USER::STOP-USING-L-S-REGIONS () + (ASSERT (NULL IL:|\\\\contexts|) + NIL "Close all open SEdit windows") + (IL:SEDIT.RESET) + (IL:MOVD 'OLD-GET-REGION 'IL:SEDIT.GET.WINDOW.REGION) + (IL:MOVD 'OLD-SAVE-REGION 'IL:SEDIT.SAVE.WINDOW.REGION)) -(defun user::stop-using-l-s-regions nil (assert (null il:|\\\\contexts|) - nil "Close all open SEdit windows") - (il:sedit.reset) - (il:movd 'old-get-region 'il:sedit.get.window.region) - (il:movd 'old-save-region 'il:sedit.save.window.region)) +(DEFVAR *REGION-ALIST* NIL +(IL:* IL:|;;;| "An AList mapping a region to the SEdit context that currently owns it. The associations of regions no longer in use should have a CDR of NIL. The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list. So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL. To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL.") -(defvar *region-alist* nil + ) -(il:* il:|;;;| "An AList mapping a region to the SEdit context that currently owns it. The associations of regions no longer in use should have a CDR of NIL. The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list. So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL. To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL.") -) - - -(defvar user::*l-s-region-zero* (il:createregion 25 (- (truncate il:screenheight 2) +(DEFVAR USER::*L-S-REGION-ZERO* (IL:CREATEREGION 25 (- (TRUNCATE IL:SCREENHEIGHT 2) 19) - (truncate il:screenwidth 2) - (truncate il:screenheight 2)) + (TRUNCATE IL:SCREENWIDTH 2) + (TRUNCATE IL:SCREENHEIGHT 2)) -(il:* il:|;;;| "The region to be used by the first SEdit window. This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window.") - ) +(IL:* IL:|;;;| "The region to be used by the first SEdit window. This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window.") + ) -(defvar user::*l-s-region-delta* (il:createregion 11 -44 0 0) ) +(DEFVAR USER::*L-S-REGION-DELTA* (IL:CREATEREGION 11 -44 0 0)) +(DEFVAR USER::*L-S-REUSE-EARLIER-REGIONS* NIL -(defvar user::*l-s-reuse-earlier-regions* nil +(IL:* IL:|;;;| "If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free. Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created.") -(il:* il:|;;;| "If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free. Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created.") -) + ) +(DEFUN REGION-PLUS (ONE TWO) + (IL:CREATEREGION (+ (IL:FETCH (IL:REGION IL:LEFT) IL:OF ONE) + (IL:FETCH (IL:REGION IL:LEFT) IL:OF TWO)) + (+ (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF ONE) + (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF TWO)) + (+ (IL:FETCH (IL:REGION IL:WIDTH) IL:OF ONE) + (IL:FETCH (IL:REGION IL:WIDTH) IL:OF TWO)) + (+ (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF ONE) + (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF TWO)))) -(defun region-plus (one two) (il:createregion (+ (il:fetch (il:region il:left) il:of one) - (il:fetch (il:region il:left) il:of two)) - (+ (il:fetch (il:region il:bottom) il:of one) - (il:fetch (il:region il:bottom) il:of two)) - (+ (il:fetch (il:region il:width) il:of one) - (il:fetch (il:region il:width) il:of two)) - (+ (il:fetch (il:region il:height) il:of one) - (il:fetch (il:region il:height) il:of two)))) +(DEFUN GET-REGION (CONTEXT) + (LET ((PAIR (AND USER::*L-S-REUSE-EARLIER-REGIONS* (FIND NIL *REGION-ALIST* :KEY 'CDR)))) + (COND + ((NULL PAIR) + (COND + ((NULL *REGION-ALIST*) + (SETQ *REGION-ALIST* (LIST (CONS USER::*L-S-REGION-ZERO* CONTEXT))) + USER::*L-S-REGION-ZERO*) + (T (LET ((NEW-REGION (REGION-PLUS (CAR (FIRST *REGION-ALIST*)) + USER::*L-S-REGION-DELTA*))) + (PUSH (CONS NEW-REGION CONTEXT) + *REGION-ALIST*) + NEW-REGION)))) + (T (SETF (CDR PAIR) + CONTEXT) + (CAR PAIR))))) +(DEFUN SAVE-REGION (CONTEXT) -(defun get-region (context) (let ((pair (and user::*l-s-reuse-earlier-regions* (find nil - *region-alist* - :key - 'cdr)))) - (cond - ((null pair) - (cond - ((null *region-alist*) - (setq *region-alist* (list (cons user::*l-s-region-zero* - context))) - user::*l-s-region-zero*) - (t (let ((new-region (region-plus (car (first *region-alist*) - ) - user::*l-s-region-delta*))) - (push (cons new-region context) - *region-alist*) - new-region)))) - (t (setf (cdr pair) - context) - (car pair))))) +(IL:* IL:|;;;| "The context is done with its region. Deallocate it.") + (LET ((PAIR (FIND CONTEXT *REGION-ALIST* :KEY 'CDR))) + (IF (NULL PAIR) + (WARN "An SEdit context is trying to give up an unallocated region.") + (SETF (CDR PAIR) + NIL)) + (SETQ *REGION-ALIST* (MEMBER-IF-NOT 'NULL *REGION-ALIST* :KEY 'CDR)))) +(IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY -(defun save-region (context) - -(il:* il:|;;;| "The context is done with its region. Deallocate it.") - (let ((pair (find context *region-alist* :key 'cdr))) - (if (null pair) - (warn "An SEdit context is trying to give up an unallocated region.") - (setf (cdr pair) - nil)) - (setq *region-alist* (member-if-not 'null *region-alist* :key 'cdr)))) - -(il:declare\: il:donteval@load il:donteval@compile il:docopy -(user::use-l-s-regions) +(USER::USE-L-S-REGIONS) ) -(il:* il:|;;| "Arrange to use the proper compiler and makefile environment ") +(IL:* IL:|;;| "Arrange to use the proper compiler and makefile environment ") -(il:putprops il:layout-sedit il:filetype compile-file) +(IL:PUTPROPS IL:LAYOUT-SEDIT IL:FILETYPE COMPILE-FILE) -(il:putprops il:layout-sedit il:makefile-environment (:readtable "XCL" :package (xcl:defpackage +(IL:PUTPROPS IL:LAYOUT-SEDIT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "LAYOUT-SEDIT" - (:nicknames "L-S")))) -(il:putprops il:layout-sedit il:copyright ("Pavel Curtis" 1986 1987)) -(il:declare\: il:dontcopy - (il:filemap (nil))) -il:stop + (:NICKNAMES "L-S")))) +(IL:DECLARE\: IL:DONTCOPY + (IL:FILEMAP (NIL (1426 1788 (USER::USE-L-S-REGIONS 1426 . 1788)) (1790 2051 (USER::STOP-USING-L-S-REGIONS + 1790 . 2051)) (3443 4007 (REGION-PLUS 3443 . 4007)) (4009 4732 (GET-REGION 4009 . 4732)) (4734 5138 ( +SAVE-REGION 4734 . 5138))))) +IL:STOP diff --git a/lispusers/LAYOUT-SEDIT.LCOM b/lispusers/LAYOUT-SEDIT.LCOM index b129cec6..d3524c3f 100644 --- a/lispusers/LAYOUT-SEDIT.LCOM +++ b/lispusers/LAYOUT-SEDIT.LCOM @@ -1 +1,52 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S"))) (IL:FILECREATED " 9-Sep-94 13:47:35" ("compiled on " IL:|{DSK}lispusers>LAYOUT-SEDIT.;1|) "28-Jul-94 17:28:46" IL:|bcompl'd| IL:|in| "Medley 25-Aug-94 ..." IL:|dated| "25-Aug-94 10:02:49") (IL:FILECREATED " 9-Jan-87 19:55:25" IL:{ERIS}LISPCORE>LAYOUT-SEDIT.\;2 7190 IL:|changes| IL:|to:| (IL:VARIABLES USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* USER::*L-S-REUSE-EARLIER-REGIONS* ) (IL:FUNCTIONS GET-REGION SAVE-REGION USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) (IL:VARS IL:LAYOUT-SEDITCOMS) IL:|previous| IL:|date:| "26-Dec-86 19:42:46" IL:{ERIS}LISP>LAYOUT-SEDIT.\;2 ) (IL:PRETTYCOMPRINT IL:LAYOUT-SEDITCOMS) (IL:RPAQQ IL:LAYOUT-SEDITCOMS ((IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) ( IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* USER::*L-S-REUSE-EARLIER-REGIONS*) (IL:FUNCTIONS REGION-PLUS) (IL:FUNCTIONS GET-REGION SAVE-REGION) ( IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY (IL:P (USER::USE-L-S-REGIONS))) (IL:* IL:|;;| "Arrange to use the proper compiler and makefile environment ") (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:LAYOUT-SEDIT))) (DEFUN USER::USE-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL "Close all open SEdit windows") (IL:SEDIT.RESET) (IL:MOVD (QUOTE IL:SEDIT.GET.WINDOW.REGION) (QUOTE OLD-GET-REGION)) (IL:MOVD (QUOTE IL:SEDIT.SAVE.WINDOW.REGION) (QUOTE OLD-SAVE-REGION)) (IL:MOVD (QUOTE GET-REGION) (QUOTE IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION))) (DEFUN USER::STOP-USING-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL "Close all open SEdit windows") (IL:SEDIT.RESET) (IL:MOVD (QUOTE OLD-GET-REGION) (QUOTE IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE OLD-SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION))) (DEFVAR *REGION-ALIST* NIL (IL:* IL:|;;;| "An AList mapping a region to the SEdit context that currently owns it. The associations of regions no longer in use should have a CDR of NIL. The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list. So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL. To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL." )) (DEFVAR USER::*L-S-REGION-ZERO* (IL:CREATEREGION 25 (- (TRUNCATE IL:SCREENHEIGHT 2) 19) (TRUNCATE IL:SCREENWIDTH 2) (TRUNCATE IL:SCREENHEIGHT 2)) (IL:* IL:|;;;| "The region to be used by the first SEdit window. This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window." )) (DEFVAR USER::*L-S-REGION-DELTA* (IL:CREATEREGION 11 -44 0 0)) (DEFVAR USER::*L-S-REUSE-EARLIER-REGIONS* NIL (IL:* IL:|;;;| "If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free. Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created." )) (DEFUN REGION-PLUS (ONE TWO) (IL:CREATEREGION (+ (IL:FETCH (IL:REGION IL:LEFT) IL:OF ONE) (IL:FETCH ( IL:REGION IL:LEFT) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF ONE) (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:WIDTH) IL:OF ONE) (IL:FETCH (IL:REGION IL:WIDTH) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF ONE) (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF TWO)))) (DEFUN GET-REGION (CONTEXT) (LET ((PAIR (AND USER::*L-S-REUSE-EARLIER-REGIONS* (FIND NIL *REGION-ALIST* :KEY (QUOTE CDR))))) (COND ((NULL PAIR) (COND ((NULL *REGION-ALIST*) (SETQ *REGION-ALIST* (LIST (CONS USER::*L-S-REGION-ZERO* CONTEXT))) USER::*L-S-REGION-ZERO*) (T (LET (( NEW-REGION (REGION-PLUS (CAR (FIRST *REGION-ALIST*)) USER::*L-S-REGION-DELTA*))) (PUSH (CONS NEW-REGION CONTEXT) *REGION-ALIST*) NEW-REGION)))) (T (SETF (CDR PAIR) CONTEXT) (CAR PAIR))))) (DEFUN SAVE-REGION (CONTEXT) (IL:* IL:|;;;| "The context is done with its region. Deallocate it.") ( LET ((PAIR (FIND CONTEXT *REGION-ALIST* :KEY (QUOTE CDR)))) (IF (NULL PAIR) (WARN "An SEdit context is trying to give up an unallocated region.") (SETF (CDR PAIR) NIL)) (SETQ *REGION-ALIST* (MEMBER-IF-NOT (QUOTE NULL) *REGION-ALIST* :KEY (QUOTE CDR))))) (USER::USE-L-S-REGIONS) (IL:PUTPROPS IL:LAYOUT-SEDIT IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:LAYOUT-SEDIT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "LAYOUT-SEDIT" (:NICKNAMES "L-S")))) (IL:PUTPROPS IL:LAYOUT-SEDIT IL:COPYRIGHT ("Pavel Curtis" 1986 1987)) NIL \ No newline at end of file +(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S")) READTABLE "XCL" BASE 10) + +(IL:FILECREATED "18-Feb-2026 16:39:44" ("compiled on " IL:|{WMEDLEY}LAYOUT-SEDIT.;2|) +"18-Feb-2026 16:37:55" IL:|bcompl'd| IL:|in| "FULL 18-Feb-2026 ..." IL:|dated| "18-Feb-2026 16:38:04") +(IL:FILECREATED "18-Feb-2026 16:36:18" IL:|{WMEDLEY}LAYOUT-SEDIT.;2| 5714 :EDIT-BY IL:|rmk| + :CHANGES-TO (IL:VARS IL:LAYOUT-SEDITCOMS) (IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* +USER::*L-S-REGION-DELTA* USER::*L-S-REUSE-EARLIER-REGIONS*) (IL:FUNCTIONS USER::USE-L-S-REGIONS +USER::STOP-USING-L-S-REGIONS REGION-PLUS GET-REGION SAVE-REGION) :PREVIOUS-DATE " 9-Jan-87 19:55:25" +IL:|{WMEDLEY}LAYOUT-SEDIT.;1|) +(IL:PRETTYCOMPRINT IL:LAYOUT-SEDITCOMS) +(IL:RPAQQ IL:LAYOUT-SEDITCOMS ((IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) ( +IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* +USER::*L-S-REUSE-EARLIER-REGIONS*) (IL:FUNCTIONS REGION-PLUS) (IL:FUNCTIONS GET-REGION SAVE-REGION) ( +IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY (IL:P (USER::USE-L-S-REGIONS))) (IL:* +IL:|;;| "Arrange to use the proper compiler and makefile environment ") (IL:PROP (IL:FILETYPE +IL:MAKEFILE-ENVIRONMENT) IL:LAYOUT-SEDIT))) +(DEFUN USER::USE-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL "Close all open SEdit windows") +(IL:SEDIT.RESET) (IL:MOVD (QUOTE IL:SEDIT.GET.WINDOW.REGION) (QUOTE OLD-GET-REGION)) (IL:MOVD (QUOTE +IL:SEDIT.SAVE.WINDOW.REGION) (QUOTE OLD-SAVE-REGION)) (IL:MOVD (QUOTE GET-REGION) (QUOTE +IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION))) +(DEFUN USER::STOP-USING-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL +"Close all open SEdit windows") (IL:SEDIT.RESET) (IL:MOVD (QUOTE OLD-GET-REGION) (QUOTE +IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE OLD-SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION))) +(DEFVAR *REGION-ALIST* NIL (IL:* IL:|;;;| +"An AList mapping a region to the SEdit context that currently owns it. The associations of regions no longer in use should have a CDR of NIL. The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list. So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL. To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL." +)) +(DEFVAR USER::*L-S-REGION-ZERO* (IL:CREATEREGION 25 (- (TRUNCATE IL:SCREENHEIGHT 2) 19) (TRUNCATE +IL:SCREENWIDTH 2) (TRUNCATE IL:SCREENHEIGHT 2)) (IL:* IL:|;;;| +"The region to be used by the first SEdit window. This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window." +)) +(DEFVAR USER::*L-S-REGION-DELTA* (IL:CREATEREGION 11 -44 0 0)) +(DEFVAR USER::*L-S-REUSE-EARLIER-REGIONS* NIL (IL:* IL:|;;;| +"If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free. Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created." +)) +(DEFUN REGION-PLUS (ONE TWO) (IL:CREATEREGION (+ (IL:FETCH (IL:REGION IL:LEFT) IL:OF ONE) (IL:FETCH ( +IL:REGION IL:LEFT) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF ONE) (IL:FETCH (IL:REGION +IL:BOTTOM) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:WIDTH) IL:OF ONE) (IL:FETCH (IL:REGION IL:WIDTH) IL:OF + TWO)) (+ (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF ONE) (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF TWO)))) +(DEFUN GET-REGION (CONTEXT) (LET ((PAIR (AND USER::*L-S-REUSE-EARLIER-REGIONS* (FIND NIL +*REGION-ALIST* :KEY (QUOTE CDR))))) (COND ((NULL PAIR) (COND ((NULL *REGION-ALIST*) (SETQ +*REGION-ALIST* (LIST (CONS USER::*L-S-REGION-ZERO* CONTEXT))) USER::*L-S-REGION-ZERO*) (T (LET (( +NEW-REGION (REGION-PLUS (CAR (FIRST *REGION-ALIST*)) USER::*L-S-REGION-DELTA*))) (PUSH (CONS +NEW-REGION CONTEXT) *REGION-ALIST*) NEW-REGION)))) (T (SETF (CDR PAIR) CONTEXT) (CAR PAIR))))) +(DEFUN SAVE-REGION (CONTEXT) (IL:* IL:|;;;| "The context is done with its region. Deallocate it.") ( +LET ((PAIR (FIND CONTEXT *REGION-ALIST* :KEY (QUOTE CDR)))) (IF (NULL PAIR) (WARN +"An SEdit context is trying to give up an unallocated region.") (SETF (CDR PAIR) NIL)) (SETQ +*REGION-ALIST* (MEMBER-IF-NOT (QUOTE NULL) *REGION-ALIST* :KEY (QUOTE CDR))))) +(USER::USE-L-S-REGIONS) +(IL:PUTPROPS IL:LAYOUT-SEDIT IL:FILETYPE COMPILE-FILE) +(IL:PUTPROPS IL:LAYOUT-SEDIT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE +"LAYOUT-SEDIT" (:NICKNAMES "L-S")))) +NIL diff --git a/lispusers/PHONE-DIRECTORY b/lispusers/PHONE-DIRECTORY index a2f4a9e3..5ab74fb8 100644 --- a/lispusers/PHONE-DIRECTORY +++ b/lispusers/PHONE-DIRECTORY @@ -1,32 +1,27 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED " 2-Feb-87 10:38:19" {ERIS}LYRIC>PHONE-DIRECTORY.;1 9029 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (VARS PHONE-DIRECTORYCOMS) +(FILECREATED "18-Feb-2026 16:27:33" {WMEDLEY}PHONE-DIRECTORY.;2 8485 - previous date%: " 9-Jan-87 19:45:25" {ERIS}KOTO>PHONE-DIRECTORY.;3) + :EDIT-BY rmk + :PREVIOUS-DATE " 2-Feb-87 10:38:19" {WMEDLEY}PHONE-DIRECTORY.;1) -(* " -Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT PHONE-DIRECTORYCOMS) -(RPAQQ PHONE-DIRECTORYCOMS ((FNS Cache-Phone-Directory-Files Let-your-fingers-do-the-walking - Phone-Directory-Kill-Proc Phone-Window-ButtonEventFn Lookup-Person - Phone-Window-WhenOpenedFn) - (VARS fingersIconMask fingersIconBM) - (INITVARS (*Cached-Phone-Directory-Files* NIL) - (*Phone-Directory-Pos* (create POSITION XCOORD _ 15 YCOORD _ - (DIFFERENCE SCREENHEIGHT 75))) - (*Phone-Directory-Region* (CREATEREGION 15 (DIFFERENCE - SCREENHEIGHT 258 - ) - 400 250))) - (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* - *Phone-Directory-Region* fingersIconMask fingersIconBM) - (FILES GREP) - (P (Let-your-fingers-do-the-walking)))) +(RPAQQ PHONE-DIRECTORYCOMS + ((FNS Cache-Phone-Directory-Files Let-your-fingers-do-the-walking Phone-Directory-Kill-Proc + Phone-Window-ButtonEventFn Lookup-Person Phone-Window-WhenOpenedFn) + (VARS fingersIconMask fingersIconBM) + (INITVARS (*Cached-Phone-Directory-Files* NIL) + (*Phone-Directory-Pos* (create POSITION XCOORD _ 15 YCOORD _ (DIFFERENCE SCREENHEIGHT + 75))) + (*Phone-Directory-Region* (CREATEREGION 15 (DIFFERENCE SCREENHEIGHT 258) + 400 250))) + (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* *Phone-Directory-Region* + fingersIconMask fingersIconBM) + (FILES GREP) + (P (Let-your-fingers-do-the-walking)))) (DEFINEQ (Cache-Phone-Directory-Files @@ -139,11 +134,12 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved. (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* *Phone-Directory-Region* fingersIconMask fingersIconBM) ) + (FILESLOAD GREP) -(Let-your-fingers-do-the-walking) -(PUTPROPS PHONE-DIRECTORY COPYRIGHT ("Xerox Corporation" 1986 1987)) + +(Let-your-fingers-do-the-walking) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1649 6373 (Cache-Phone-Directory-Files 1659 . 2954) (Let-your-fingers-do-the-walking -2956 . 4251) (Phone-Directory-Kill-Proc 4253 . 4684) (Phone-Window-ButtonEventFn 4686 . 5362) ( -Lookup-Person 5364 . 5976) (Phone-Window-WhenOpenedFn 5978 . 6371))))) + (FILEMAP (NIL (1168 5892 (Cache-Phone-Directory-Files 1178 . 2473) (Let-your-fingers-do-the-walking +2475 . 3770) (Phone-Directory-Kill-Proc 3772 . 4203) (Phone-Window-ButtonEventFn 4205 . 4881) ( +Lookup-Person 4883 . 5495) (Phone-Window-WhenOpenedFn 5497 . 5890))))) STOP diff --git a/lispusers/SKETCHCOLOR b/lispusers/SKETCHCOLOR index 499438c2..9a9e0b69 100644 --- a/lispusers/SKETCHCOLOR +++ b/lispusers/SKETCHCOLOR @@ -1,15 +1,11 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED " 9-Jan-87 16:47:16" {ERIS}LIBRARY>SKETCHCOLOR.;2 4779 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (VARS BLACKSHADE16 DARKGRAY16 MEDIUMGRAY16 LIGHTGRAY16 WHITESHADE16 REDTEXTURE - GREENTEXTURE BLUETEXTURE SKETCHCOLORCOMS) +(FILECREATED "18-Feb-2026 16:28:03" {WMEDLEY}SKETCHCOLOR.;2 4732 - previous date%: "29-Oct-85 14:44:30" {ERIS}LIBRARY>SKETCHCOLOR.;1) + :EDIT-BY rmk + :PREVIOUS-DATE " 9-Jan-87 16:47:16" {WMEDLEY}SKETCHCOLOR.;1) -(* " -Copyright (c) 1985, 1987 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT SKETCHCOLORCOMS) @@ -75,25 +71,30 @@ Copyright (c) 1985, 1987 by Xerox Corporation. All rights reserved. ) (RPAQQ SKETCHINCOLORFLG T) + (FILESLOAD COLOR STYLESHEET) -(PUTPROPS \FILLCIRCLE.DISPLAY READVICE [NIL (BEFORE NIL (COND ((LISTP TEXTURE) - (COND ((TEXTUREP (CAR TEXTURE)) - (SETQ TEXTURE (CAR TEXTURE))) - (T (SETQ TEXTURE - (TEXTUREOFCOLOR - (CADR TEXTURE]) +[XCL:REINSTALL-ADVICE '\FILLCIRCLE.DISPLAY :BEFORE '((:LAST (COND + ((LISTP TEXTURE) + (COND + ((TEXTUREP (CAR TEXTURE)) + (SETQ TEXTURE (CAR TEXTURE))) + (T (SETQ TEXTURE + (TEXTUREOFCOLOR (CADR TEXTURE] + +[XCL:REINSTALL-ADVICE '\POLYSHADE.DISPLAY :BEFORE '((:LAST (COND + ((LISTP FILL.SHADE) + (COND + ((TEXTUREP (CAR FILL.SHADE)) + (SETQ FILL.SHADE (CAR FILL.SHADE)) + ) + (T (SETQ FILL.SHADE + (TEXTUREOFCOLOR (CADR + FILL.SHADE + ] -(PUTPROPS \POLYSHADE.DISPLAY READVICE [NIL (BEFORE NIL (COND ((LISTP FILL.SHADE) - (COND ((TEXTUREP (CAR FILL.SHADE)) - (SETQ FILL.SHADE (CAR FILL.SHADE - ))) - (T (SETQ FILL.SHADE - (TEXTUREOFCOLOR - (CADR FILL.SHADE]) (READVISE \FILLCIRCLE.DISPLAY \POLYSHADE.DISPLAY) -(PUTPROPS SKETCHCOLOR COPYRIGHT ("Xerox Corporation" 1985 1987)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (771 3368 (COLORTEXTURETEST 781 . 2128) (LEVELTEXTURE 2130 . 2662) (PRIMARYTEXTURE 2664 - . 3366))))) + (FILEMAP (NIL (547 3144 (COLORTEXTURETEST 557 . 1904) (LEVELTEXTURE 1906 . 2438) (PRIMARYTEXTURE 2440 + . 3142))))) STOP diff --git a/lispusers/TRANSOR b/lispusers/TRANSOR index 2f9ea07c..f71957c0 100644 --- a/lispusers/TRANSOR +++ b/lispusers/TRANSOR @@ -1,16 +1,18 @@ -(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") -(FILECREATED "17-Mar-87 17:03:54" {DSK}TRANSOR.;16 44778 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (VARS TRANSORCOMS) - (FNS PRECH1 TRANSOUT) +(FILECREATED "18-Feb-2026 21:57:19" {WMEDLEY}TRANSOR.;2 43458 - previous date%: "17-Mar-87 17:00:04" {DSK}TRANSOR.;15) + :EDIT-BY rmk + + :CHANGES-TO (VARS TRANSORCOMS) + + :PREVIOUS-DATE "17-Mar-87 17:03:54" {WMEDLEY}TRANSOR.;1) (PRETTYCOMPRINT TRANSORCOMS) -(RPAQQ TRANSORCOMS - ((FNS TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM TRANSIT TRANXT TRANSEXIT +(RPAQQ TRANSORCOMS + [(FNS TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM TRANSIT TRANXT TRANSEXIT KEEPLIST TRANSERR TRANSOUT PPASS1 TRANSLIST TRANSLIST1 PREMTEXT WACHADOON PRECH PRECH1 PRECH2 RETAIL LNC PRESCAN) TRANSORMACROS TRANSOREMARKS TRANSORGLOBALS @@ -18,8 +20,10 @@ (TESTRAN) (USERMACROS (APPEND TRANSORMACROS USERMACROS)) (GLOBALVARS (APPEND TRANSORGLOBALS GLOBALVARS)) - (EDITCOMSA (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE) EDITCOMSA)) - (EDITCOMSL (UNION '(REMARK) EDITCOMSL)) + (EDITCOMSA (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE) + EDITCOMSA)) + (EDITCOMSL (UNION '(REMARK) + EDITCOMSL)) (TRANSITCONSES '(ORR NIL XFORMER)) (PRESCARRAY (ARRAY 127 127))) (INITVARS (NLISTPCOMS) @@ -36,10 +40,9 @@ (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) (NIL PRESCAN (GLOBALVARS PRESCARRAY))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) - (NLAML TRANSERR KEEPLIST + (NLAML TRANSERR KEEPLIST TRANSOR-PROCEED) - (LAMA))) - (EDITHIST TRANSOR))) + (LAMA]) (DEFINEQ (TRANSOR @@ -861,52 +864,49 @@ TRANSOR made a translation error: " T) (RETURN (CLOSEF OUTF))))) ) -(RPAQQ TRANSORMACROS ((REMARK (TXT) - (E (KEEPLIST TXT) - T)) - (NLAM NIL (E (SETQQ WHERETOGONEXT NLAMIT) - T)) - [NLAMIT NIL (ORR NX !NX ((E (TRANSEXIT] - (DOTHESE NIL (E (TRANSOR-PROCEED DOTHESE) - T) - NLAM) - (DOTHIS NIL (E (TRANSOR-PROCEED DOTHIS) - T) - NLAM) - (XFORMER NIL (E (TRANSERR TRANSFORMATIONERROR "FAULTY TRANSFORMATION" - (CURRENTFORM CURRENTCOMS)) - T)))) +(RPAQQ TRANSORMACROS + ((REMARK (TXT) + (E (KEEPLIST TXT) + T)) + (NLAM NIL (E (SETQQ WHERETOGONEXT NLAMIT) + T)) + [NLAMIT NIL (ORR NX !NX ((E (TRANSEXIT] + (DOTHESE NIL (E (TRANSOR-PROCEED DOTHESE) + T) + NLAM) + (DOTHIS NIL (E (TRANSOR-PROCEED DOTHIS) + T) + NLAM) + (XFORMER NIL (E (TRANSERR TRANSFORMATIONERROR "FAULTY TRANSFORMATION" (CURRENTFORM + CURRENTCOMS)) + T)))) -(RPAQQ TRANSOREMARKS ((TRANSFORMATIONERROR (* The TRANSFORMATIONS specified for this form failed to - work properly. The TTY message %'FAULTY TRANSFORMATION' - was printed, any commands remaining in the - transformation after the erroneous one were skipped, - and translation continued as if the transformation had - been normally completed. The user should treat the - translated form with caution and amend his - transformation to avoid future problems.)) - (TRANSERROR (* TRANSOR got confused at this point. The TTY message %'SHOW JIM - GOODWIN' was printed and translation continued with the next - form, but the user should treat the compromised area of code - with caution.)) - (BLAMBDA1 (* Non-atomic CAR of form, but not an open lambda. Either a - parenthesis error or computed CAR of form. Computed CAR of form is - no longer legal in BBN-LISP; APPLY* is used instead. If computed - CAR of form was intended, the translation to APPLY* will run ok. - See manual for discussion of APPLY*.)) - (BLAMBDA2 (* Open LAMBDA with wrong number of args. What can it mean?)) - (BLAMBDA3 (* Lambda-expression without forms. What can it mean?)) - (ILLCAR (* Illegal data-type encountered as CAR of form Expression treated as - list of forms.)) - (TAILP/DOTHIS (* When the transormacro DOTHIS is executed at a TAILP position, - TRANSOR does a 1 command first, assuming that the current - position is a list of forms and CAR of it is the form - intended. The user should make sure that this is what was - intended by the TRANSFORMATIONS which called DOTHIS, i.e. the - TRANSFORMATIONS for the form containing this one.)))) +(RPAQQ TRANSOREMARKS + ((TRANSFORMATIONERROR (* The TRANSFORMATIONS specified for this form failed to work properly. + The TTY message %'FAULTY TRANSFORMATION' was printed, any commands + remaining in the transformation after the erroneous one were skipped, + and translation continued as if the transformation had been normally + completed. The user should treat the translated form with caution and + amend his transformation to avoid future problems.)) + (TRANSERROR (* TRANSOR got confused at this point. The TTY message %'SHOW JIM GOODWIN' was + printed and translation continued with the next form, but the user should + treat the compromised area of code with caution.)) + (BLAMBDA1 (* Non-atomic CAR of form, but not an open lambda. Either a parenthesis error or + computed CAR of form. Computed CAR of form is no longer legal in BBN-LISP; + APPLY* is used instead. If computed CAR of form was intended, the translation to + APPLY* will run ok. See manual for discussion of APPLY*.)) + (BLAMBDA2 (* Open LAMBDA with wrong number of args. What can it mean?)) + (BLAMBDA3 (* Lambda-expression without forms. What can it mean?)) + (ILLCAR (* Illegal data-type encountered as CAR of form Expression treated as list of forms.) + ) + (TAILP/DOTHIS (* When the transormacro DOTHIS is executed at a TAILP position, TRANSOR does a + 1 command first, assuming that the current position is a list of forms and + CAR of it is the form intended. The user should make sure that this is what + was intended by the TRANSFORMATIONS which called DOTHIS, i.e. the + TRANSFORMATIONS for the form containing this one.)))) (RPAQQ TRANSORGLOBALS (USERNOTES USERNOTES TESTFORM TESTFORM TRANSFORMATIONS TRANSFORMATIONS - XFORMSFNS XFORMSVARS XFORMSVARS DUMPFILE TRANSFORMATIONS TRANSFORMATIONS + XFORMSFNS XFORMSVARS XFORMSVARS DUMPFILE TRANSFORMATIONS TRANSFORMATIONS TRANSFORMATIONS TRANSFORMATIONS)) (RPAQQ MAXLOOP 1530) @@ -917,9 +917,11 @@ TRANSOR made a translation error: " T) (RPAQ GLOBALVARS (APPEND TRANSORGLOBALS GLOBALVARS)) -(RPAQ EDITCOMSA (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE) EDITCOMSA)) +(RPAQ EDITCOMSA (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE) + EDITCOMSA)) -(RPAQ EDITCOMSL (UNION '(REMARK) EDITCOMSL)) +(RPAQ EDITCOMSL (UNION '(REMARK) + EDITCOMSL)) (RPAQQ TRANSITCONSES (ORR NIL XFORMER)) @@ -932,7 +934,7 @@ TRANSOR made a translation error: " T) (RPAQ? TRANSOUTREADTABLE FILERDTBL) (DECLARE%: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY -(PUTPROPS TAILP BLKLIBRARYDEF [LAMBDA (.BLKVAR.X .BLKVAR.Y) +(PUTPROPS TAILP BLKLIBRARYDEF [LAMBDA (.BLKVAR.X .BLKVAR.Y) (* True if .BLKVAR.X is A tail of .BLKVAR.Y .BLKVAR.X and .BLKVAR.Y non-null.) (* Included with editor for block compilation purposes.) @@ -944,15 +946,19 @@ TRANSOR made a translation error: " T) (GO LP]) ) -(PUTPROPS TRANSOR FILEGROUP (TRANSOR TSET)) +(PUTPROPS TRANSOR FILEGROUP (TRANSOR TSET)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY + (BLOCK%: PRECHBLOCK PRECH PRECH1 PRECH2 RETAIL LNC (ENTRIES PRECH) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) + (BLOCK%: TRANSITBLOCK TRANSIT WACHADOON (ENTRIES TRANSIT WACHADOON) (GLOBALVARS WACHADID WHENTODOIT TRANSITCONSES LAMBDACOMS NLISTPCOMS) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) + (BLOCK%: TRANXTBLOCK TRANXT (ENTRIES TRANXT) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) + (BLOCK%: NIL PRESCAN (GLOBALVARS PRESCARRAY)) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS @@ -963,23 +969,11 @@ TRANSOR made a translation error: " T) (ADDTOVAR LAMA ) ) -(DECLARE%: DONTCOPY - -(ADDTOVAR EDITHISTALIST (TRANSOR (" 5-Feb-87 16:18:06" DJVB {DSK}TRANSOR.;11 (TRANSOR) - (FIXED TO WORK WITH NEW FILE RULES IN LYRIC)) - (" 6-Feb-87 15:24:20" DJVB {DSK}TRANSOR.;12 (TRANSOR)) - (" 6-Mar-87 14:41:26" DJVB {DSK}TRANSOR.;13 - (TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM - RETAIL)) - ("17-Mar-87 17:01:53" DJVB {DSK}TRANSOR.;15 (PRECH1 TRANSOUT) - (ADDED SPLIT READ/WRITE READTABLES AND PP FOR DEFUN)))) -) -(PUTPROPS TRANSOR COPYRIGHT (NONE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2231 38324 (TRANSOR 2241 . 6284) (TRANSOR-PROCEED 6286 . 9093) (TRANSORFORM 9095 . 9527 -) (TRANSORFNS 9529 . 10225) (TRANSFORM 10227 . 11965) (TRANSIT 11967 . 14735) (TRANXT 14737 . 17950) ( -TRANSEXIT 17952 . 18262) (KEEPLIST 18264 . 19224) (TRANSERR 19226 . 19990) (TRANSOUT 19992 . 22436) ( -PPASS1 22438 . 22679) (TRANSLIST 22681 . 23700) (TRANSLIST1 23702 . 23934) (PREMTEXT 23936 . 24641) ( -WACHADOON 24643 . 25114) (PRECH 25116 . 25609) (PRECH1 25611 . 27779) (PRECH2 27781 . 28727) (RETAIL -28729 . 29976) (LNC 29978 . 30841) (PRESCAN 30843 . 38322))))) + (FILEMAP (NIL (2262 38355 (TRANSOR 2272 . 6315) (TRANSOR-PROCEED 6317 . 9124) (TRANSORFORM 9126 . 9558 +) (TRANSORFNS 9560 . 10256) (TRANSFORM 10258 . 11996) (TRANSIT 11998 . 14766) (TRANXT 14768 . 17981) ( +TRANSEXIT 17983 . 18293) (KEEPLIST 18295 . 19255) (TRANSERR 19257 . 20021) (TRANSOUT 20023 . 22467) ( +PPASS1 22469 . 22710) (TRANSLIST 22712 . 23731) (TRANSLIST1 23733 . 23965) (PREMTEXT 23967 . 24672) ( +WACHADOON 24674 . 25145) (PRECH 25147 . 25640) (PRECH1 25642 . 27810) (PRECH2 27812 . 28758) (RETAIL +28760 . 30007) (LNC 30009 . 30872) (PRESCAN 30874 . 38353))))) STOP diff --git a/lispusers/TRANSOR-LOADTRAN b/lispusers/TRANSOR-LOADTRAN index f8a7ed9c..af8a0b57 100644 --- a/lispusers/TRANSOR-LOADTRAN +++ b/lispusers/TRANSOR-LOADTRAN @@ -1,25 +1,19 @@ -(DEFINE-FILE-INFO §PACKAGE "XCL-USER" §READTABLE "XCL") -(IL:FILECREATED "13-Apr-87 17:38:17" IL:{DSK}LOADTRAN.\;9 2045 +(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL" BASE 10) - IL:|changes| IL:|to:| (IL:VARS IL:LOADTRANCOMS STOP) - (IL:FUNCTIONS MYLOAD I.S.OPR PRETTYCOMPRINT SETTEMPLATE DEFINE-FILE-INFO - ) - (IL:FNS PRETTYCOMPRINT SETTEMPLATE) +(IL:FILECREATED "18-Feb-2026 22:58:35" IL:|{WMEDLEY}TRANSOR-LOADTRAN.;2| 1561 - IL:|previous| IL:|date:| " 6-Apr-87 16:57:48" IL:{DSK}LOADTRAN.\;1) + :EDIT-BY IL:|rmk|) -; Copyright (c) 1987 by System Development Corp.. All rights reserved. +(IL:PRETTYCOMPRINT IL:TRANSOR-LOADTRANCOMS) -(IL:PRETTYCOMPRINT IL:LOADTRANCOMS) - -(IL:RPAQQ IL:LOADTRANCOMS ((IL:VARS STOP) - (IL:FNS PRETTYCOMPRINT SETTEMPLATE) - (IL:FUNCTIONS DEFINE-FILE-INFO I.S.OPR MYLOAD) - (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY - IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA PRETTYCOMPRINT) - (IL:NLAML) - (IL:LAMA SETTEMPLATE))))) +(IL:RPAQQ IL:TRANSOR-LOADTRANCOMS ((IL:VARS STOP) + (IL:FNS PRETTYCOMPRINT SETTEMPLATE) + (IL:FUNCTIONS DEFINE-FILE-INFO I.S.OPR MYLOAD) + (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY + IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA PRETTYCOMPRINT) + (IL:NLAML) + (IL:LAMA SETTEMPLATE))))) (IL:RPAQQ STOP STOP) (IL:DEFINEQ @@ -33,17 +27,17 @@ (BLOCK SETTEMPLATE (NILL)))) ) -(DEFUN DEFINE-FILE-INFO (&REST ARGS) (NILL)) +(DEFUN DEFINE-FILE-INFO (&REST ARGS) + (NILL)) +(DEFUN I.S.OPR (X) + (NILL)) -(DEFUN I.S.OPR (X) (NILL)) - - -(DEFUN MYLOAD (FILE) (LET ((FILE (OPEN FILE :DIRECTION :INPUT))) - (UNWIND-PROTECT (IL:\\CML-LOAD FILE T *TERMINAL-IO* (FIND-PACKAGE - "XCL-USER")) - (CLOSE FILE)))) - +(DEFUN MYLOAD (FILE) + (LET ((FILE (OPEN FILE :DIRECTION :INPUT))) + (UNWIND-PROTECT + (IL:\\CML-LOAD FILE T *TERMINAL-IO* (FIND-PACKAGE "XCL-USER")) + (CLOSE FILE)))) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDTOVAR IL:NLAMA PRETTYCOMPRINT) @@ -52,7 +46,7 @@ (IL:ADDTOVAR IL:LAMA SETTEMPLATE) ) -(IL:PUTPROPS IL:LOADTRAN IL:COPYRIGHT ("System Development Corp." 1987)) (IL:DECLARE\: IL:DONTCOPY - (IL:FILEMAP (NIL (1134 1357 (PRETTYCOMPRINT 1147 . 1283) (SETTEMPLATE 1285 . 1355))))) + (IL:FILEMAP (NIL (830 1053 (PRETTYCOMPRINT 843 . 979) (SETTEMPLATE 981 . 1051)) (1055 1106 ( +DEFINE-FILE-INFO 1055 . 1106)) (1108 1141 (I.S.OPR 1108 . 1141)) (1143 1341 (MYLOAD 1143 . 1341))))) IL:STOP diff --git a/lispusers/TRANSOR-LOADTRAN.LCOM b/lispusers/TRANSOR-LOADTRAN.LCOM index 0657438e0709e50ce54a7eaf808d62cec0c1e916..bd1a4f8ba6d1edc606c26f46ac3058c10969ab82 100644 GIT binary patch delta 462 zcmZutOG?8)7{;_hnFACRk)K&;gH26R6Vt&>+Ds)dY0_jw>O!!#g<>Bf?u@7>P{}=X z<;u%=6P+X$EV}s^_`m18qmRPuk+b`$!DMF; zXWH>B2HZYo41VX;YPFm^IKLSR<{vwYsQXy{uQXn6ZISv(%;-sPd) ziTqGuzU`!M;T7d=!@%x#)8z|F@+tW%C{YV%0-p+}VQ N6-NSJi;dMR^&5vFcEtby literal 1333 zcmaJ>U2obj6wTI$?IluwL3NdfEvXblXj;IVs(Fd&vKl9~O$QP$T^n^w6c8VksVh#sP=8c#Dx0-Dlj5v^YU>tU2RlqYm`n8&UQtg zq0=UcTQ3$Jxq(}ehtigr3krT6`auBBf#V#!`g!QEjJo>q19!iMJwOBl*nr+Rj`RAh z`g0B)KL&-P!4|FEtejf0)s7}F@YR(r_8-UnT{HH)SFTqW_as*P<5q3owaRwR=BFf~ zn3EyW3eucOa*gRH+gZI~UUgU12eeH|@?v0SWV6rB&}hLpO?PWXaTizg+B0>8+NH_a zFCtJs(-~`vF5XU`>#KTt?Ab7Z|Be$O0rLx?I86%_gH7HJr{8}T+KjKSZw3{lM1pT# zz|RZ9K<@)eGfvFB1Ik#@lS&=KNotft>@Xr7j>#9o)*jU0n+lZ98YHt?ub$fg5nw{a|cy{@jA${I%Dio<_WvX-;ttjHCAXGocA8-ckZrDe1~ z%I>PR&=iwA_R(d7G%y0#aN#6KiY!De;513MK$?dZXn_E2k)VADkQ4~gAlLv2iWVr) z@0>eB4p-~O^~>eVy?5?C_nhy1=iIaV!_O=4eNTB_Ef`Cssu5l)m5p$zx>OUtU)S^3 z^s9ylma0v|ESIc$@Qsbb!%Mx@a5NH4il~-Nq_VMi zP^iHhTN`)!>%Fen+7v>? zfA3* zP)BU=_ou~h>3NcS__#VpQa-Mp9bCQeD?BAX^?kJe{iz2S{8reYm47?`4qm=|(XZGZ zZIceLT14bqrfF26~i+0f0!){;ot2|>m)+D2Z))55Il4G~Mp-)KVqYEiLRYgG$%I72ex!H0v4L|j}D z@t9~80OFX&3s!4Q!xCCX&R&Ab^=7FC(4;1N?5c%TLjgw(rE0y^th060lF-DWC_x{( zSVBwQLjWw}O&h)G(9wd=@AK#OPwH>4P3QQ`hr|EObx$b6P&bx4d^6XW+dr%SS*|{} z|5R@3!4o;FWSvsA42FbYUh%ZC z(I8%QEFRusqc;*gF1@N)vYHUxeocAA=ZAfBI@|NX?Hn6Q=XSQ8lLs*8zM8Y<2F116 z_Zq{GZIMN}=}Y4l8~kyD&n{c;D00hlnsN%y;I-GLeX6Fx{wBQHtX06}2`QS@tbu#< za?22zw73Y12yn#3YQ9#@3lPv%113sEgxRX-<~5PTX-%_c!o@|tR$l=@$zR9#HB(v@ zYSpxe+(M+`M1%@kfE)M;!y=Is!PVZ)t?i!J-R^Ae;Ax|?+uz#U5jQ%UVznoBb}`ru zii9SDD_eKP#@(G=v2&+)qkr?B=!lzlH*e5<@mha(P3*4q#QB?>=LMp|MrX4NHg{xZ zS0fABU^ar76hZi&gJ%7}$g??*ejl99tl2ELNjM?^CfK-$ndBafApyTp)pET7 zW2>gYItqtFLN)NpDnkfshC(5c5vo0&;0mX?P>YJD(Qb-5#5AjV#lRD|K}QH9Ou-c@ zL=xqz5>#jtf+=HTYRczpDl^adi(UWJ@aY426qfy<*zYnP_LjST|JVJtvO)+OzEJeP z6>oHaq(&6y=k{j3j{PBAi8U)+&IG zNX5lPvtHKo1(8ewF;$!sXCQj00}o9Rg{R@c)?oKc#={wD&kJEf11175cD6SuiigE& zr@MYn5HJw4w|g6%?c0bmj=zGW4AWH~jLJ?*8X^yIjbl>CAa^3jcF-=pRGzV|Js&xqd@FvN|bf0NeZWhAr`|~ZsUNG zT&7koR1C}F-LOAVvv;%4`V^nPe*avZ70EjdpW^5GtE5Tpk+9P5pS5%Mv$^hg>Q^Sf zn!EpOjz5|kKEZS3n}f=+i6jCu!qTrB0AYi9%Y(*bn!%=tL_)GxEa{-tmT-loE*1dM z+I6^ejOP$8;enKsdcs#4$~n@NN6~OJUM)ZU$|M5 z1Ttkiw&WQS2Z#5cn8<2)=zeIt5HIgwYTWBxsL0*Sb45ZnG8&|r&E^VjH(;K~n5t}W zm6l0~icwia-~wxTV57xTlkbs?AR=BW8RY`vC4!=7cE)x4R7%uZO;SF>B)FS6Q6ysy z1Q9xL$$^^zt~Jv}Y<1lYayn7b;`=}p=;63zQMMfgN60rh2w6OXK#gZm19H8u2-@Sh zTG~M;Eo;Nw9rW=oS^`I`Eh3yDw8gw%#oe!Xdo31|$cD!WE$S{I$Dm;E?ue1>1T+<@ zCZsYl;UxvzeL?={>>Epur$pnP$N&W#aV8?lG>9_a*(9Fay3^YfH*v`XQzlXf8%ua5 zXX)PExPyDA3>0m{q^qk;0qhZFBBFZI?&K6v=G6XU7Q=X&TZP-1h(EXYWLLhtSK2>` ztn8&P6rcY#`1C)P0k;_Bl$&To*i5FBC@{N{wOIhkueh|4_sSkeCWypwe9=e#+GYID z-Jg|CAsLWefSUs^d%nrI=l_0qI=?x7E#BUBu%K0fO)dyS5Xr0X3HZq0|w7 z#T=0FIgaq2YgP|CKE!rpAkdc@4#T?5VyTK`g{~6w9KCQw0REi-#(|~AyoG);w1>L- zL|y%^)W07jHuV)gYEI$9?mf*)IwmvbS^U{CgZRjHE>%25Qq}=frbQqQZX%TWI_RyL zbWo8&w4)>!*J>H$5$#`*MUz5ZKygkkJedw9ozua48+^{r0Vy-kyCP&z?Uh%A{C=({@{DUbrwGHwctat9y~yuf{`rQ4M{ zVuTeo+8{{FLNpR6NGuwzSm%vGC>RjHK`_6yjrz(i=U$y%(cj5(;IWFe7hM}h0bI^k zDd(bW6}dvqH6w!3q>rt_$81GjOml08`;X-OGqCOcg0(ig>f1|Gvf^K6%N&&ce0j}@ zG0S6+@1Gp!00$h@D5?3oB7ZZ^Y%;iWQD&1)yG8{?qn3pP6!#A&Bc;#)^5e@5cwc6z z$P=XdCdLNDb(h(Vv7HoZb?fM5g~3hNRaYl5-E{itea!aOX#ReZ+mpPg|whUyl zWu)()D#}>Q!ELR`KQhqqIGz7*#wSlB*QJwtZfkKtsK!Z2K*JUZ_xc9j<-=2gBJ)2L zB+o|`$PGtljw2x_w(WJ1maeY%Wd32ao#P^D6uvW{E?KgWWs0#IQaHxd(YW5&FZqegDe)Lh>9-Up;JEu(D7p1O$ zIH#=aJ=OIqe9pr^Jt+D8Y{24lNih%KF-x=G=AmL~^6FHyiENIh8PEb7he(F*3S4hU z%4Y$-A#7?Qo{{$jnt`HJTrv+SF+Nd)L2gTGbSg4P6waL!AR5_cg9r%7h!MeN@AX}( z+2Q{F@YN#}7+>N>j7>K>a&rl84q7o{>d(k349?10fLE8KhTkqt=Zd#~)MjO1cvj}0 zD|H~r$TL%a zB)50DtE_$ZWhuuiU%SS(owfI#W?9PI&z6?vzIG(C|9~PpDrDY_4>^k`Xu^NSa*h-X z{Zi~7jgYcoD;1(sC_GUufGq}ZM&?i!d@s^LJF8LqISmEL!M!Wt!E`i=r+k#&D+|vI zeh^*8({yYF?Pp@t`@`7FXv1-8|0KSO_Lp&5qnhZV9VRYJ(H_4^(A<}kH2&AgPosS{ zl}39#MYFz>x`Fm=npVA+rkOuU)69IPhxY3k>Y2_``&yP}{wuc&m#F96OSIdgm+5)y z^6JSze{;9D*&V!{eq!*;%VqRtUbu?(3op=&pTE%gWI&}#V?$K*cDaVM1i2>ulHhbw zY@+ZFCV|*HS7P|+t5@P^|LsZ}ZDN6X`U~gLzOnG!dHLOfKwZvi)~Q73EVTggt1K3D z*){m_!YA;>|14ZU(j~707?3>g7PrSTfPd&SRB|Z!{-jeqKw+MyR`k4C!x*Q#D&Oke zu2z*}=y;N66eS-ufYaF={qe$MavS-br=z0R^SU{)-BPQXrz$FnKql%(SfFB7U6fCeV>KiU14Bvqh?6gK(U z=zK@!Bj~ClU8)izI0~@|Mo`IAb<3(@F*1Pc^)3b5HpUK(S)^*FqVX)235zu+FosTkN3z&mkRDxV44lJ-+ zcb4Mw0NDqbm{SCHim`HBmJTWLaWX!qq!MV_&V_MwOKY}?p)ie8UvyKZhabv-oD5|g zE3u4>Q=nj%-^S#is=S7j-4%hl$Rxa=+O)|*+%f8-F^1dZXWT`D0hQ&O9F-#TvV8rW z9Oe5b57JpC$80(ujd6*|GZw&UsgK5>HqQtKkPOf#PK=%$8)?MViA-c%?m9xDw&fij zeL@G~OB9C*$uS=K{4jhf4TM?{NL5B3TGnoii$|`A{};P{2yzX)54$qC+W${>B^MRP zlWX8uc0KCeuIoGGYO{}jaCU{+0}rz+p%Wt?f?V+@!uMm>z!7?tl=VB#^MT3Li8?m_ z@zSB!55TSuk*fnMmoh&X!@9FWA<9-zia;o~m|i8(HbEz&Zo)m-l?ZsEpGf$aZsO%* kx{0cf>9)r7{m=%)=*N6A`cIML1}T9WoXX9f;J+{YFa9h(Qvd(} delta 1101 zcmZ{jTWHf@6vt^r=PfYB8+bd5mL+bfz1pnmMr@NdYi><4*${=UjasR8u2%8J#1|g~ zL4tTeMV;V_h)@MZ#Ro+MMes?)2QLWX1;GcORP=o9Iu#MZFXubwf6n>0{d(h$=jj0t z!z4vX)7KVnMoyBssQg?@~bnvg;=IWa|nMg4Pgx%Y%P~+Q)?b;7!0WtZ5S?qRoe#VI5 z?jb*M*RXirFOq@pmXG4$aKP(vw}=ZcaY)P|-`AOuHewvLIQOL#!sx7Jx`os%jCQ9S zY4F~W_HLISPCORE>UNBOXEDOPS.;7 12906 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (OPTIMIZERS UFREMAINDER2 UFREMAINDER) - (FNS UFREMAINDER) - (VARS UNBOXEDOPSCOMS) +(FILECREATED "18-Feb-2026 16:17:02" {WMEDLEY}UNBOXEDOPS.;2 10856 - previous date%: " 3-Nov-86 20:30:24" {ERIS}LISPCORE>UNBOXEDOPS.;6) + :EDIT-BY rmk + :PREVIOUS-DATE " 7-Dec-86 17:26:23" {WMEDLEY}UNBOXEDOPS.;1) -(* " -Copyright (c) 1986 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT UNBOXEDOPSCOMS) -(RPAQQ UNBOXEDOPSCOMS +(RPAQQ UNBOXEDOPSCOMS [(FNS UFABS UFEQP UFGEQ UFGREATERP UFIX UFLEQ UFLESSP UFMAX UFMIN UFMINUS UFREMAINDER) (OPTIMIZERS UFABS UFABS1 UFEQP UFEQP2 UFGEQ UFGEQ2 UFGREATERP UFGREATERP2 UFIX UFIX1 UFLEQ UFLEQ2 UFLESSP UFLESSP2 UFMAX UFMAX2 UFMIN UFMIN2 UFMINUS UFMINUS1 UFREMAINDER) @@ -81,178 +76,168 @@ Copyright (c) 1986 by Xerox Corporation. All rights reserved. FY]) ) -(DEFOPTIMIZER UFABS (&OPTIONAL (ARG1 NIL ARG1GIVEN) - &REST RESTARGS &WHOLE ORIGINAL) (if (OR (NOT ARG1GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T - "Illegal args to UFABS" %, - %, ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFABS1 ARG1)) +(DEFOPTIMIZER UFABS (&OPTIONAL (ARG1 NIL ARG1GIVEN) + &REST RESTARGS &WHOLE ORIGINAL) + (if (OR (NOT ARG1GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFABS" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFABS1 ARG1)) +(DEFOPTIMIZER UFABS1 (X) + `[\FLOATBOX ((OPCODES UBFLOAT1 2) + (\FLOATUNBOX ,X]) -(DEFOPTIMIZER UFABS1 (X) `[\FLOATBOX ((OPCODES UBFLOAT1 2) - (\FLOATUNBOX ,X]) - - -(DEFOPTIMIZER UFEQP (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) +(DEFOPTIMIZER UFEQP (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - (NOT ARG2GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFEQP" %, %, - ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFEQP2 ARG1 ARG2)) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + (NOT ARG2GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFEQP" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFEQP2 ARG1 ARG2)) +(DEFOPTIMIZER UFEQP2 (X Y) + `(EQ (\FLOATUNBOX (FDIFFERENCE ,X ,Y)) + NIL)) -(DEFOPTIMIZER UFEQP2 (X Y) `(EQ (\FLOATUNBOX (FDIFFERENCE ,X ,Y)) - NIL)) - - -(DEFOPTIMIZER UFGEQ (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) +(DEFOPTIMIZER UFGEQ (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - (NOT ARG2GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFGEQ" %, %, - ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFGEQ2 ARG1 ARG2)) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + (NOT ARG2GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFGEQ" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFGEQ2 ARG1 ARG2)) +(DEFOPTIMIZER UFGEQ2 (X Y) + `[NOT ((OPCODES SWAP UBFLOAT2 5) + (\FLOATUNBOX ,X) + (\FLOATUNBOX ,Y]) -(DEFOPTIMIZER UFGEQ2 (X Y) `[NOT ((OPCODES SWAP UBFLOAT2 5) - (\FLOATUNBOX ,X) - (\FLOATUNBOX ,Y]) - - -(DEFOPTIMIZER UFGREATERP (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) +(DEFOPTIMIZER UFGREATERP (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - (NOT ARG2GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFGREATERP" %, - %, ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFGREATERP2 ARG1 ARG2)) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + (NOT ARG2GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFGREATERP" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFGREATERP2 ARG1 ARG2)) +(DEFOPTIMIZER UFGREATERP2 (X Y) + `((OPCODES UBFLOAT2 5) + (\FLOATUNBOX ,X) + (\FLOATUNBOX ,Y))) -(DEFOPTIMIZER UFGREATERP2 (X Y) `((OPCODES UBFLOAT2 5) - (\FLOATUNBOX ,X) - (\FLOATUNBOX ,Y))) +(DEFOPTIMIZER UFIX (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFIX" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFIX1 ARG1)) +(DEFOPTIMIZER UFIX1 (X) + `((OPCODES UBFLOAT1 4) + (\FLOATUNBOX ,X))) -(DEFOPTIMIZER UFIX (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFIX" %, %, ORIGINAL - T) - (PRINTOUT T "************" T)) - (LIST 'UFIX1 ARG1)) - - -(DEFOPTIMIZER UFIX1 (X) `((OPCODES UBFLOAT1 4) - (\FLOATUNBOX ,X))) - - -(DEFOPTIMIZER UFLEQ (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) +(DEFOPTIMIZER UFLEQ (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - (NOT ARG2GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFLEQ" %, %, - ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFLEQ2 ARG1 ARG2)) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + (NOT ARG2GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFLEQ" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFLEQ2 ARG1 ARG2)) +(DEFOPTIMIZER UFLEQ2 (X Y) + `[NOT ((OPCODES UBFLOAT2 5) + (\FLOATUNBOX ,X) + (\FLOATUNBOX ,Y]) -(DEFOPTIMIZER UFLEQ2 (X Y) `[NOT ((OPCODES UBFLOAT2 5) +(DEFOPTIMIZER UFLESSP (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) + (ARG2 NIL ARG2GIVEN) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + (NOT ARG2GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFLESSP" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFLESSP2 ARG1 ARG2)) + +(DEFOPTIMIZER UFLESSP2 (X Y) + `((OPCODES SWAP UBFLOAT2 5) + (\FLOATUNBOX ,X) + (\FLOATUNBOX ,Y))) + +(DEFOPTIMIZER UFMAX (&OPTIONAL (ARG1 NIL ARG1GIVEN) + (ARG2 NIL ARG2GIVEN) + &REST RESTARGS) + (if (NOT ARG1GIVEN) + then 'MIN.FLOAT + elseif (NOT ARG2GIVEN) + then `(FLOAT %, ARG1) + elseif RESTARGS + then `(UFMAX (UFMAX2 %, ARG1 %, ARG2) + ., RESTARGS) + else (LIST 'UFMAX2 ARG1 ARG2))) + +(DEFOPTIMIZER UFMAX2 (X Y) + `[\FLOATBOX ((OPCODES UBFLOAT2 6) (\FLOATUNBOX ,X) (\FLOATUNBOX ,Y]) - -(DEFOPTIMIZER UFLESSP (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) - (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - (NOT ARG2GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFLESSP" %, %, - ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFLESSP2 ARG1 ARG2)) - - -(DEFOPTIMIZER UFLESSP2 (X Y) `((OPCODES SWAP UBFLOAT2 5) - (\FLOATUNBOX ,X) - (\FLOATUNBOX ,Y))) - - -(DEFOPTIMIZER UFMAX (&OPTIONAL (ARG1 NIL ARG1GIVEN) +(DEFOPTIMIZER UFMIN (&OPTIONAL (ARG1 NIL ARG1GIVEN) (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (NOT ARG1GIVEN) - then 'MIN.FLOAT - elseif (NOT ARG2GIVEN) - then `(FLOAT %, ARG1) - elseif RESTARGS - then `(UFMAX (UFMAX2 %, ARG1 %, ARG2) - ., RESTARGS) - else (LIST 'UFMAX2 ARG1 ARG2))) + &REST RESTARGS) + (if (NOT ARG1GIVEN) + then 'MAX.FLOAT + elseif (NOT ARG2GIVEN) + then `(FLOAT %, ARG1) + elseif RESTARGS + then `(UFMIN (UFMIN2 %, ARG1 %, ARG2) + ., RESTARGS) + else (LIST 'UFMIN2 ARG1 ARG2))) +(DEFOPTIMIZER UFMIN2 (X Y) + `[\FLOATBOX ((OPCODES UBFLOAT2 7) + (\FLOATUNBOX ,X) + (\FLOATUNBOX ,Y]) -(DEFOPTIMIZER UFMAX2 (X Y) `[\FLOATBOX ((OPCODES UBFLOAT2 6) - (\FLOATUNBOX ,X) - (\FLOATUNBOX ,Y]) +(DEFOPTIMIZER UFMINUS (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) + &REST RESTARGS) + (if (OR (NOT ARG1GIVEN) + RESTARGS) + then (PRINTOUT T "************" T) + (PRINTOUT T "Illegal args to UFMINUS" %, %, ORIGINAL T) + (PRINTOUT T "************" T)) + (LIST 'UFMINUS1 ARG1)) +(DEFOPTIMIZER UFMINUS1 (X) + `[\FLOATBOX ((OPCODES UBFLOAT1 3) + (\FLOATUNBOX ,X]) -(DEFOPTIMIZER UFMIN (&OPTIONAL (ARG1 NIL ARG1GIVEN) - (ARG2 NIL ARG2GIVEN) - &REST RESTARGS) (if (NOT ARG1GIVEN) - then 'MAX.FLOAT - elseif (NOT ARG2GIVEN) - then `(FLOAT %, ARG1) - elseif RESTARGS - then `(UFMIN (UFMIN2 %, ARG1 %, ARG2) - ., RESTARGS) - else (LIST 'UFMIN2 ARG1 ARG2))) +(DEFOPTIMIZER UFREMAINDER (X Y) + (CL:IF (AND (OR (CL:CONSTANTP X) + (CL:SYMBOLP X)) + (OR (CL:CONSTANTP Y) + (CL:SYMBOLP Y))) + `(FDIFFERENCE ,X (FTIMES [FLOAT (UFIX (FQUOTIENT ,X ,Y] + ,Y)) + 'COMPILER:PASS)) - -(DEFOPTIMIZER UFMIN2 (X Y) `[\FLOATBOX ((OPCODES UBFLOAT2 7) - (\FLOATUNBOX ,X) - (\FLOATUNBOX ,Y]) - - -(DEFOPTIMIZER UFMINUS (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN) - &REST RESTARGS) (if (OR (NOT ARG1GIVEN) - RESTARGS) - then (PRINTOUT T "************" T) - (PRINTOUT T "Illegal args to UFMINUS" %, %, - ORIGINAL T) - (PRINTOUT T "************" T)) - (LIST 'UFMINUS1 ARG1)) - - -(DEFOPTIMIZER UFMINUS1 (X) `[\FLOATBOX ((OPCODES UBFLOAT1 3) - (\FLOATUNBOX ,X]) - - -(DEFOPTIMIZER UFREMAINDER (X Y) (CL:IF (AND (OR (CL:CONSTANTP X) - (CL:SYMBOLP X)) - (OR (CL:CONSTANTP Y) - (CL:SYMBOLP Y))) - `(FDIFFERENCE ,X (FTIMES [FLOAT (UFIX (FQUOTIENT ,X - ,Y] - ,Y)) - 'COMPILER:PASS)) - - -(PUTPROPS UNBOXEDOPS FILETYPE CL:COMPILE-FILE) +(PUTPROPS UNBOXEDOPS FILETYPE CL:COMPILE-FILE) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -267,9 +252,8 @@ Copyright (c) 1986 by Xerox Corporation. All rights reserved. (ADDTOVAR LAMA UFMIN UFMAX) ) -(PUTPROPS UNBOXEDOPS COPYRIGHT ("Xerox Corporation" 1986)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1185 3385 (UFABS 1195 . 1316) (UFEQP 1318 . 1441) (UFGEQ 1443 . 1565) (UFGREATERP 1567 - . 1700) (UFIX 1702 . 1821) (UFLEQ 1823 . 1945) (UFLESSP 1947 . 2074) (UFMAX 2076 . 2478) (UFMIN 2480 - . 2879) (UFMINUS 2881 . 3006) (UFREMAINDER 3008 . 3383))))) + (FILEMAP (NIL (983 3183 (UFABS 993 . 1114) (UFEQP 1116 . 1239) (UFGEQ 1241 . 1363) (UFGREATERP 1365 . +1498) (UFIX 1500 . 1619) (UFLEQ 1621 . 1743) (UFLESSP 1745 . 1872) (UFMAX 1874 . 2276) (UFMIN 2278 . +2677) (UFMINUS 2679 . 2804) (UFREMAINDER 2806 . 3181))))) STOP diff --git a/lispusers/UNBOXEDOPS.DFASL b/lispusers/UNBOXEDOPS.DFASL new file mode 100644 index 0000000000000000000000000000000000000000..9741584934fa5858cf487c235488663c2e4719d5 GIT binary patch literal 9512 zcmdT~-E$My72jRSvSkw^z<{waUOOa!LBXGw59U2@PnHbBBj_uFry+&3I8i`crJHFb~qTcz97%H4bS zb-%r@%U2sxQZY7ZsoUY)iJ#}jPV}AK1tVk_F*?yVdRE3^P($Nk*^PFF*T4>l{Bo|2uMQVv%IGxl~(kik_>t^J&{Rw6!M;K zd3<=pJCyrnZU}`wBf%7f&+|2*j2=j9hF+KxC#4pc&=XWcnyz|rUKk!SJTRlvNT|A0 z2LoJ2CJj@%py&>2NtFgmjfFX^sZJDc8JxH-6H2OaMbm?7vM{%yFq^M65@{{2 z9aWR5!VHL;Rg*^63yY5%x))J38)2M_R@QB9Vr5vI&un64Sf9^C*j$mBXOi~S%OQ zU|Hr{=3et{vj-Yh6^A6TtuW_=s%j+|WOt~_Dm|ve6|jR+IaXXKR-3ZfT8C}$kbHw3 zYrn|1J=X;YR{{Nbp~he2q1gzwC!+DeKMC04eiPMa=t``R7qdtJ&W0%w#dD%X!Jw<4 zx_QCvS8CCGJ%YIjE>dwOhZ&{edGUy;Pl<$f2y{&2nqXY5UwQJ~%z$SQ1~xr&AT+>p znxTJ{U-=fgHb1B9X6pLUL+H90x^ltTa$qTJ#um2n(gIqZGwT-U?t%s53bs6_Z!7d| z&)o{&K7Ho{eAwNH_TA^djr2voosIO}jhz1bog4p&!aS``LHhV9{1IZ4xHPdE;B|wI zc80*#(kQwNv%PMe?RPNSlZEO2jnm1`oKDFuOxFg}EvUW?mRF7tDcQyN4IQomTVM@- z7YcJrq08-oJK?bQuW!U}oOG}K^B+fH4egF+8Gzs*nv+-ww|PM_FTl(oZT;}b_~4nr zU*){aQOyg#_Dk8>usAtzJ3KQu2@jI)`oD_I3``EbKNFvf-b|4*9VDZ>KS);0{A;o5 zwB;ImcGu!)a@pEIQxk~rF$g&YGC9Z{BPsILTelt#8|eP4wr*ARLv#(Kv+f~SzY79I zBB|w|SOr(T`v^@joutdf2zE(9U{O=ORC8$`Yv^R%wy`^L)ZFGcUdXTNSoHUkLVmqA zG?Y8lHzfCso*ILoArnY#mW~v7d<%hxN`I36%p&l%TXY|8nF)W&N=+1$JVGJA7Q!WW z)@*VS03g{X#a-q)*Bi9Jsb+R*0PkMU2cR!cqld34`L#N;(M3IHMf5AE;MGeN+zqxQ zgNDW1v=-7Ol@NdSuc(E~5acV+f*^U|DRu9WX;CDk2+8gt^%22kqW7sb5&D4 z{%I_JLdA<`Sn2Wg2`s#4t-b>-Y zjtV&dSpIMvfXQvueUGX89#?l0S2tvORt{jY5Blz0%7LYUff#{YDAJ)AA|6!AgBE7@ zY(ZrH4&6wLt04!c7F?4vby%UzKruS_s#cB}D5EV@4;WMrI8-}0R67_{>lVe&(q8Bl zqQ}FRLXQqRdNh?MQzbxGjw2f_c|qw3w%UKlwEvK6znNJB}8;c*6%rIiR~nvgM_A zya4MHsj^&0tRsA`h_0n(d(F9gp{+?Dtk+iRCrs)mTYe3MrY;MP8_WGYp}BH&Xt20^ zn%-9FGE=(DmA-{59ZpM;5NoVT|DH*V=&g_nHc3n|#V1nym406&m053xiai&+3>Ghk z#miywmWKs=!!j=%gJ8Jy^z+zk6wZ7gmw_{%dr|4@$W34T<{SFW4U3KmVz@8TAr+xI zjc$u&jHFb{(iE|$y0Um$l`(%2g>!-`Ix2hD?Cdf-cbcuj%0*KU*w&hQ7;HTpwpI=s zJl^VF@lDS%-D{vio3eGUUzWL7*YcsUx>pp+7MlRWCcv@jh^uiT`@ zDZ>@_ziaO9GI#GZ<(0H2O}E8NXPD_6Gnr!sk1w+)cw4wkd&;h?JyoxuJ%LcR*klCx7DgPYaQh{B*!GJ(`b&E2LN!+$9EvUuMHho& z@qx<1XAAQ}KR-~>=#}EJndon{6MOuR{}3tNe;UF2$$^{fRhvdp)$+p+>>=!y&hD4S z-*e82;;+<SnO;b(+@XURBdw`=`e)|m9zinternal>library>whocalls.\;2 4500 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) - |changes| |to:| (fns distribute.callinfo distribute-call-info-for-symbol) - (vars whocallscoms) +(FILECREATED "18-Feb-2026 16:08:45" |{WMEDLEY}WHOCALLS.;2| 4272 - |previous| |date:| " 7-Nov-86 02:47:11" {eris}lispcore>whocalls.\;2) + :EDIT-BY |rmk| + + :PREVIOUS-DATE "18-Dec-86 19:03:25" |{WMEDLEY}WHOCALLS.;1|) -; Copyright (c) 1986 by Xerox Corporation. All rights reserved. +(PRETTYCOMPRINT WHOCALLSCOMS) -(prettycomprint whocallscoms) - -(rpaqq whocallscoms ((fns whocalls whocalls1 distribute.callinfo distribute-call-info-for-symbol) - (prop proptype calledby usedfreeby usedglobalby boundby))) -(defineq +(RPAQQ WHOCALLSCOMS ((FNS WHOCALLS WHOCALLS1 DISTRIBUTE.CALLINFO DISTRIBUTE-CALL-INFO-FOR-SYMBOL) + (PROP PROPTYPE CALLEDBY USEDFREEBY USEDGLOBALBY BOUNDBY))) +(DEFINEQ (WHOCALLS (LAMBDA (CALLEE USAGE) @@ -78,15 +76,14 @@ x)))))) ) -(putprops calledby proptype ignore) +(PUTPROPS CALLEDBY PROPTYPE IGNORE) -(putprops usedfreeby proptype ignore) +(PUTPROPS USEDFREEBY PROPTYPE IGNORE) -(putprops usedglobalby proptype ignore) +(PUTPROPS USEDGLOBALBY PROPTYPE IGNORE) -(putprops boundby proptype ignore) -(putprops whocalls copyright ("Xerox Corporation" 1986)) -(declare\: dontcopy - (filemap (nil (653 4251 (whocalls 663 . 2057) (whocalls1 2059 . 3191) (distribute.callinfo 3193 . 3419 -) (distribute-call-info-for-symbol 3421 . 4249))))) -stop +(PUTPROPS BOUNDBY PROPTYPE IGNORE) +(DECLARE\: DONTCOPY + (FILEMAP (NIL (466 4064 (WHOCALLS 476 . 1870) (WHOCALLS1 1872 . 3004) (DISTRIBUTE.CALLINFO 3006 . 3232 +) (DISTRIBUTE-CALL-INFO-FOR-SYMBOL 3234 . 4062))))) +STOP diff --git a/lispusers/WHOCALLS.LCOM b/lispusers/WHOCALLS.LCOM index c867c896aaee8dadeee199f4643b4bfef4149e7d..a04c53ad05ccad7f9635a597b259443d94874994 100644 GIT binary patch delta 464 zcmdlbyj^I5V?7s_hMT94t8FYKlUBo`RA>O?9}htBa3oWUWn3W^qAjacWVqUATw8v!jnsu%5M1jiv&ZlA#%r zQASoKhE~Q#K&?qdsW8K86zXeID+-E=t!fl%^72bEGV{`btjxR`1tqsoA0MC#5Ju?f z=>c`8B$lM6)L=E;#6U@tuy0IJTwjmf`3fdR=0*xut}dP-x=xV_HAT7EKs&7hf?UHq z{X>IwU4VfF4l9?`WL*njNLgAL7+V>knvKn9!x~L4SU4$IxmYlAZRTXsXJX`x0-BM}F z9=%F??>F$&gWyrTdho@#aghVv>Fde#gwG_}T#y<%Xg6Y4kCnml$fXQc>v{13Q=u*^ewvF#<8D}`A7L11 zkvMHg8qxtVjDJWDnNOJ{_{+2kYzS1eIsqBksFOesj@%Fuu)w?d+Io1Wg|2?w{U-Ix z+B>OX`$G%e{A{=7;8ICtCsT$}ua!qqKPwwjzbl(k@883Y3_KhsG)`{U0549CX|T6H dmS6mWSKa%yTit@-6MYs-h?e(JxlMo5uhE diff --git a/lispusers/compilebang b/lispusers/compilebang index 53128e12..943b97f0 100644 --- a/lispusers/compilebang +++ b/lispusers/compilebang @@ -1,14 +1,11 @@ -(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) -(FILECREATED "22-Dec-86 18:42:34" {ERIS}LISPCORE>COMPILEBANG.;3 3465 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (FNS COMPILE!) +(FILECREATED "18-Feb-2026 16:23:37" {WMEDLEY}compilebang.;2 3232 - previous date%: "18-Nov-86 22:23:43" {ERIS}LISPCORE>COMPILEBANG.;2) + :EDIT-BY rmk + :PREVIOUS-DATE "22-Dec-86 18:42:34" {WMEDLEY}compilebang.;1) -(* " -Copyright (c) 1982, 1983, 1984, 1986 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT COMPILEBANGCOMS) @@ -63,23 +60,22 @@ Copyright (c) 1982, 1983, 1984, 1986 by Xerox Corporation. All rights reserved. NIL NIL T)) (T C)))) -(ADDTOVAR USERMACROS [C NIL (ORR (UP 1) - NIL) - (ORR ((E (COMPILE! (OR (LISTP (%##)) - (%## !0)) - T T T))) - ((E 'C?]) +(ADDTOVAR USERMACROS + [C NIL (ORR (UP 1) + NIL) + (ORR ((E (COMPILE! (OR (LISTP (%##)) + (%## !0)) + T T T))) + ((E 'C?]) (ADDTOVAR EDITCOMSA C) -(DEFCOMMAND (C :EVAL) (&REST LISPXLINE) (COND - (LISPXLINE (COMPILE! (CAR LISPXLINE) +(DEFCOMMAND (C :EVAL) (&REST LISPXLINE) (COND + (LISPXLINE (COMPILE! (CAR LISPXLINE) NIL NIL T)) (T C))) - -(PUTPROPS COMPILEBANG FILETYPE CL:COMPILE-FILE) -(PUTPROPS COMPILEBANG COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1986)) +(PUTPROPS COMPILEBANG FILETYPE CL:COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (622 2567 (COMPILE! 632 . 2565))))) + (FILEMAP (NIL (506 2451 (COMPILE! 516 . 2449))))) STOP