From de0120ac30195cd3cf8513d3c29319984d771d56 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 11 Sep 2025 23:49:27 -0700 Subject: [PATCH] Compatibility with new underscore/circumflex assignments --- library/UNIXCOMM | 35 +- library/UNIXCOMM.LCOM | Bin 6812 -> 6828 bytes lispusers/GITFNS | 296 +++--- lispusers/GITFNS.LCOM | Bin 51443 -> 51441 bytes lispusers/GITFNS.TEDIT | Bin 19574 -> 19802 bytes lispusers/HELPSYS | 1994 ++++++++++++++++++++-------------------- lispusers/HELPSYS.LCOM | Bin 62220 -> 62147 bytes 7 files changed, 1166 insertions(+), 1159 deletions(-) diff --git a/library/UNIXCOMM b/library/UNIXCOMM index a21d8458..02c27436 100644 --- a/library/UNIXCOMM +++ b/library/UNIXCOMM @@ -1,16 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "18-Dec-2022 11:55:01" {WMEDLEY}UNIXCOMM.;11 14599 +(FILECREATED " 2-Sep-2025 12:06:52"  +{DSK}kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;14 14825 - :CHANGES-TO (FNS INITIALIZE-SHELL-DEVICE UNIX-BACKFILEPTR UNIX-STREAM-EOFP) - (VARS UNIXCOMMCOMS) + :EDIT-BY rmk - :PREVIOUS-DATE "25-Oct-2022 21:56:00" {WMEDLEY}UNIXCOMM.;9) + :CHANGES-TO (FNS FORK-UNIX) + :PREVIOUS-DATE "29-Apr-2025 22:45:47" +{DSK}kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;13) -(* ; " -Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. -") (PRETTYCOMPRINT UNIXCOMMCOMS) @@ -75,8 +74,13 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. else (SUBRCALL UNIX-HANDLECOMM 4]) (FORK-UNIX - [LAMBDA (STR) (* ; "Edited 25-May-88 15:47 by drc:") - (SUBRCALL UNIX-HANDLECOMM 0 (\DTEST STR 'ONED-ARRAY]) + [LAMBDA (STR) (* ; "Edited 2-Sep-2025 12:03 by rmk") + (* ; "Edited 29-Apr-2025 22:45 by rmk") + (* ; "Edited 25-May-88 15:47 by drc:") + + (* ;; "MTOUBYTES converts MCCS codes to Unicodes, and then lays out the bytes of the UTF-8 encoding of those characters. ") + + (SUBRCALL UNIX-HANDLECOMM 0 (MTOUTF8STRING (\DTEST STR 'ONED-ARRAY]) (UNIX-KILL [LAMBDA (CONN) (* ; "Edited 25-May-88 16:04 by drc:") @@ -316,12 +320,11 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. ) (PUTPROPS UNIXCOMM FILETYPE COMPILE-FILE) -(PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1963 7028 (FORK-SHELL 1973 . 3170) (FORK-UNIX 3172 . 3348) (UNIX-KILL 3350 . 3539) ( -UNIX-WRITE 3541 . 4252) (CREATE-SHELL-STREAM 4254 . 5138) (CREATE-PROCESS-STREAM 5140 . 5979) ( -UNIXCOMM-AROUNDEXITFN 5981 . 7026)) (7076 12267 (INITIALIZE-SHELL-DEVICE 7086 . 8514) ( -UNIX-GET-NEXT-BUFFER 8516 . 10716) (UNIX-BACKFILEPTR 10718 . 11130) (UNIX-STREAM-EOFP 11132 . 11613) ( -UNIX-STREAM-OUT 11615 . 11871) (UNIX-STREAM-CLOSE 11873 . 12265)) (12515 14221 ( -CREATE-UNIX-SOCKET-STREAM 12525 . 13331) (ACCEPT-UNIX-SOCKET-STREAM 13333 . 14219))))) + (FILEMAP (NIL (1903 7339 (FORK-SHELL 1913 . 3110) (FORK-UNIX 3112 . 3659) (UNIX-KILL 3661 . 3850) ( +UNIX-WRITE 3852 . 4563) (CREATE-SHELL-STREAM 4565 . 5449) (CREATE-PROCESS-STREAM 5451 . 6290) ( +UNIXCOMM-AROUNDEXITFN 6292 . 7337)) (7387 12578 (INITIALIZE-SHELL-DEVICE 7397 . 8825) ( +UNIX-GET-NEXT-BUFFER 8827 . 11027) (UNIX-BACKFILEPTR 11029 . 11441) (UNIX-STREAM-EOFP 11443 . 11924) ( +UNIX-STREAM-OUT 11926 . 12182) (UNIX-STREAM-CLOSE 12184 . 12576)) (12826 14532 ( +CREATE-UNIX-SOCKET-STREAM 12836 . 13642) (ACCEPT-UNIX-SOCKET-STREAM 13644 . 14530))))) STOP diff --git a/library/UNIXCOMM.LCOM b/library/UNIXCOMM.LCOM index 0e9e8dfa67e897e14c2c6571b847fe15bfa14974..22c08221e4b2919760463eea22a9902fde7a9fd6 100644 GIT binary patch delta 1527 zcmb`Gy>Ht_6u>FRmTe`2jiip08tn_)!7@OBcO=D+27(#sBom=Xf}|X~G2ke%kSLZv zASVcdAQ0fOL($}bF6~-$$r3oT|ArRm)B;_y80pxK9dgu%LDNQ;bRogx-Fxr%d+&Z! zUMt_-?g18p)}DYxtN_A>STq#O!vcSQcYCkhX>G#p4)Bn9UI}i!xY5{eb@xkK&Am=@ zr)2NmZ+1%Ct<6sBnN(0pPj|ap?VSh0V5QV)-|IHJ&q@u)S}nWvdf_W1=Yf}yU_N;; z%vUseSnnsy@NAD~*+i(a$0iSLmbTikZHONz6bd|SHXpOHl7S@A5D}lxEJWwaJ~2a5 zVTGSd7o+KY3=SY!W7-T-u|nbI8g#d}z$h=9PK^XY=mIOo383oww}i+-9t_VXE0)^` zgbJ$qHgRg0PTYX_zUzac z!n)&Hb+blXFQC6nx3hWR-Z9A3Qs2i3<8QQ?SsXF`JQF1&p;<1IAONHyTE2L_r$Mzs zRsbUj7K3GC+XDNv%489+s1E;$IQb9h^3VuwQNAEq8M!vZwyW&<|@I6v?y)^3d7xbI#K@W@KDI*$-c-Dv{52>-9 zr2cPPquT*USB6G395b?^4qYQQSqURZJO^KA_{qD_uX!~0surIL`bX~JxMSIw54shU Ap#T5? delta 1511 zcmaJ>y>HV%6nC1^(x?MSsFaVQhe0SQvhiKw#1076B$vd(u`SyP4OB>_jYLpss;EUE z1eKUz;X}9bC%}NpAHjme#0U&b48Xv|0?%mz!HHPT_MP9|@9W(Q^||`=(p92K#pa4c z6-t4SysG9EB0^GJY2Vyvtu2 zQFR^ig^FR9*|;wS4u29q$=}3}UQR)>Zg@WQ;Ufh<1$ozFbe)s@0=N{j~|#81R-`~VFDk*y{)l*f^AwmFDLfJQcwaFmTbqY8fE6Vcxp`8 z6BEW3j70eJeiE;|jz4%MeCO{cPsVEe*W_E7f*+s~Ro8P|py}-3C(#Hj`7AIB1?Kxe zvKs%n_xM;Q$LFRFZet}2il*;cMk8pr468|(wCppx=%c>Ob`8&{`amh}J2XjDC>2>9 zC{bYEuQ1D!@Y5`?d7w&Wca5ORku{=|5M&EM1IcCKf)i8_TN?63Rx)Z<07UIoYZ`=B zTc*t{W|#3lO+iLo!m{lIvg0xvav{seT$aKTbA0A`j>k_YTFGH;g^#FhY+>pjY2We3 zv&Z>)@K*SvGycjUgHms84RgC~m!a#Ze zC#iq(H$o)-WiP~$Jl~vJDG#}(k8rJ<&4_Ec0oOp~QsNl@aj-Lk*pSL#UkKkOVtj4( z$mIKOLxh0lV|8qZ6a3TcgKeUR)c<;>rK6sOKBbjjeyJMuf)c%-?aa`c(r+>dqr4m6 zoHh_&H`}Wwn1F~;L>ZA*9eGFH>tgOFc;WE%M$)YXVVD2CnV{gf4bLoB0=$ju&GoG& qoPxz>r+pg=?aoHKv%J}AuZsv18wm#;2eg7JM8kp7R4RdYPvSRoS&3W# diff --git a/lispusers/GITFNS b/lispusers/GITFNS index b6ef0429..ba121bb7 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,29 +1,28 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Apr-2025 15:17:37" {WMEDLEY}GITFNS.;541 134267 +(FILECREATED " 9-May-2025 11:39:55" {WMEDLEY}GITFNS.;545 134412 :EDIT-BY rmk - :CHANGES-TO (VARS GITFNSCOMS) - (FNS GIT-WORKING-COMPARE-DIRECTORIES) + :CHANGES-TO (FNS GIT-PULL-REQUESTS) - :PREVIOUS-DATE "31-Mar-2025 21:25:00" {WMEDLEY}GITFNS.;539) + :PREVIOUS-DATE " 5-May-2025 22:04:15" {WMEDLEY}GITFNS.;544) (PRETTYCOMPRINT GITFNSCOMS) -(RPAQQ GITFNSCOMS +(RPAQQ GITFNSCOMS ( - (* ;; "Set up") + (* ;; "Set up") (FILES (SYSLOAD FROM LISPUSERS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS REGIONMANAGER ) - (* ;; "") + (* ;; "") - (* ;; "GIT projects") + (* ;; "GIT projects") (COMS (FNS GIT-CLONEP GIT-INIT GIT-MAKE-PROJECT GIT-GET-PROJECT GIT-PUT-PROJECT-FIELD GIT-PROJECT-PATH FIND-ANCESTOR-DIRECTORY GIT-FIND-CLONE GIT-MAINBRANCH @@ -44,94 +43,94 @@ (P (GIT-INIT)) (ADDVARS (AROUNDEXITFNS GIT-INIT)) - (* ;; "") + (* ;; "") - (* ;; "Lisp exec commands") + (* ;; "Lisp exec commands") (INITVARS (GIT-MERGE-COMPARES T) (GIT-CDBROWSER-SEPARATE-DIRECTIONS T)) (COMMANDS gwc bbc prc cob b? cdg cdw) (FNS PRC-COMMAND) - (* ;; "") + (* ;; "") - (* ;; "File correspondents") + (* ;; "File correspondents") (FNS ALLSUBDIRS MEDLEYSUBDIRS GITSUBDIRS) (FNS TOGIT FROMGIT GIT-DELETE-FILE MYMEDLEY-DELETE-FILES) (FNS MYMEDLEYSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE) (FNS GFILE4MFILE MFILE4GFILE GIT-REPO-FILENAME) - (* ;; "") + (* ;; "") - (* ;; "Git commands") + (* ;; "Git commands") (FNS GIT-COMMIT GIT-PUSH GIT-PULL GIT-APPROVAL GIT-GET-FILE GIT-FILE-EXISTS? GIT-REMOTE-UPDATE GIT-REMOTE-ADD GIT-FILE-DATE GIT-FILE-HISTORY GIT-PRINT-FILE-HISTORY GIT-FETCH) - (* ;; "Differences") + (* ;; "Differences") (FNS GIT-BRANCH-DIFF GIT-COMMIT-DIFFS GIT-BRANCH-RELATIONS) - (* ;; "") + (* ;; "") - (* ;; "Branches") + (* ;; "Branches") (FNS GIT-BRANCH-NUM GIT-CHECKOUT GIT-WHICH-BRANCH GIT-MAKE-BRANCH GIT-BRANCHES GIT-BRANCH-EXISTS? GIT-PICK-BRANCH GIT-BRANCH-MENU GIT-BRANCH-WHENSELECTEDFN GIT-PULL-REQUESTS GIT-SHORT-BRANCH-NAME GIT-LONG-NAME GIT-PRC-BRANCHES) - (* ;; "My branches") + (* ;; "My branches") (FNS GIT-MY-CURRENT-BRANCH GIT-MY-BRANCHP GIT-MY-NEXT-BRANCH GIT-MY-BRANCHES) - (* ;; "") + (* ;; "") - (* ;; "Worktrees") + (* ;; "Worktrees") (FNS GIT-ADD-WORKTREE GIT-REMOVE-WORKTREE GIT-LIST-WORKTREES WORKTREEDIR) - (* ;; "") + (* ;; "") - (* ;; "Comparisons") + (* ;; "Comparisons") (FNS GIT-GET-DIFFERENT-FILES GIT-BRANCHES-COMPARE-DIRECTORIES GIT-WORKING-COMPARE-DIRECTORIES GIT-COMPARE-WORKTREE GITCDOBJBUTTONFN GIT-CD-LABELFN GIT-CD-MENUFN GIT-WORKING-COMPARE-FILES GIT-BRANCHES-COMPARE-FILES GIT-PR-COMPARE) (INITVARS (FROMGITN 0)) - (* ;; "") + (* ;; "") - (* ;; "Utilities") + (* ;; "Utilities") (FNS CDGITDIR GIT-COMMAND GITORIGIN GIT-INITIALS GIT-COMMAND-TO-FILE GIT-RESULT-TO-LINES STRIPLOCAL) - (PROPS (GITFNS FILETYPE)))) + (PROPS (GITFNS FILETYPE)))) -(* ;; "Set up") +(* ;; "Set up") -(FILESLOAD (SYSLOAD FROM LISPUSERS) +(FILESLOAD (SYSLOAD FROM LISPUSERS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS JSON UNIXUTILS REGIONMANAGER) -(* ;; "") +(* ;; "") -(* ;; "GIT projects") +(* ;; "GIT projects") (DEFINEQ @@ -402,15 +401,15 @@ (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(TYPERECORD GIT-PROJECT (PROJECTNAME GITHOST WHOST EXCLUSIONS DEFAULTSUBDIRS CLONEPATH MAINBRANCH)) +(TYPERECORD GIT-PROJECT (PROJECTNAME GITHOST WHOST EXCLUSIONS DEFAULTSUBDIRS CLONEPATH MAINBRANCH)) -(RECORD PULLREQUEST (PRNUMBER PRDESCRIPTION PRNAME PRSTATUS PRPROJECT PRURL PRLOGIN)) +(RECORD PULLREQUEST (PRNUMBER PRDESCRIPTION PRNAME PRSTATUS PRPROJECT PRURL PRLOGIN)) ) ) -(RPAQ? GIT-DEFAULT-PROJECT 'MEDLEY) +(RPAQ? GIT-DEFAULT-PROJECT 'MEDLEY) -(RPAQ? GIT-DEFAULT-PROJECTS +(RPAQ? GIT-DEFAULT-PROJECTS '((MEDLEY NIL NIL (EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/ fontsold/ clos/ cltl2/) (greetfiles scripts sources library lispusers internal doctools rooms)) (NOTECARDS) @@ -418,120 +417,120 @@ (TEST) (MAIKO))) -(RPAQ? GIT-PROJECTS NIL) +(RPAQ? GIT-PROJECTS NIL) -(RPAQ? GIT-PRC-MENUS NIL) +(RPAQ? GIT-PRC-MENUS NIL) -(GIT-INIT) +(GIT-INIT) -(ADDTOVAR AROUNDEXITFNS GIT-INIT) +(ADDTOVAR AROUNDEXITFNS GIT-INIT) -(* ;; "") +(* ;; "") -(* ;; "Lisp exec commands") +(* ;; "Lisp exec commands") -(RPAQ? GIT-MERGE-COMPARES T) +(RPAQ? GIT-MERGE-COMPARES T) -(RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T) +(RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T) (DEFCOMMAND gwc (SUBDIR . OTHERS) - (* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project") + (* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project") - (LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS))) + (LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS))) PROJECT) - (SETQ SUBDIRS (FOR STAIL ON SUBDIRS COLLECT (IF (GIT-GET-PROJECT (CAR STAIL) + (SETQ SUBDIRS (FOR STAIL ON SUBDIRS COLLECT (IF (GIT-GET-PROJECT (CAR STAIL) NIL T) - THEN (SETQ PROJECT (CAR STAIL)) - (GO $$OUT)) - (CAR STAIL))) - (GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL NIL NIL T PROJECT))) + THEN (SETQ PROJECT (CAR STAIL)) + (GO $$OUT)) + (CAR STAIL))) + (GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL NIL NIL T PROJECT))) (DEFCOMMAND bbc (BRANCH1 BRANCH2 LOCAL PROJECT) - (* ;; "Compares 2 git branches. Defaults to local/ if LOCAL, otherwise defaults to origin/. BRANCH2 defaults to the main branch (origin/ or local/ depending on LOCAL)") + (* ;; "Compares 2 git branches. Defaults to local/ if LOCAL, otherwise defaults to origin/. BRANCH2 defaults to the main branch (origin/ or local/ depending on LOCAL)") - (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) - (GIT-FETCH PROJECT) - (SETQ BRANCH1 (SELECTQ (U-CASE BRANCH1) + (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) + (GIT-FETCH PROJECT) + (SETQ BRANCH1 (SELECTQ (U-CASE BRANCH1) ((NIL T) - (GIT-MY-CURRENT-BRANCH PROJECT)) + (GIT-MY-CURRENT-BRANCH PROJECT)) ((LOCAL REMOTE ORIGIN) - (GIT-PICK-BRANCH (GIT-BRANCHES BRANCH1 PROJECT T))) - (OR (GIT-LONG-NAME BRANCH1 NIL PROJECT) + (GIT-PICK-BRANCH (GIT-BRANCHES BRANCH1 PROJECT T))) + (OR (GIT-LONG-NAME BRANCH1 NIL PROJECT) BRANCH1))) - (SETQ BRANCH2 (SELECTQ (U-CASE BRANCH2) + (SETQ BRANCH2 (SELECTQ (U-CASE BRANCH2) ((NIL T) - (GIT-MAINBRANCH PROJECT LOCAL)) + (GIT-MAINBRANCH PROJECT LOCAL)) ((LOCAL REMOTE ORIGIN) - (GIT-PICK-BRANCH (GIT-BRANCHES BRANCH2 PROJECT T))) - (OR (GIT-LONG-NAME BRANCH2 NIL PROJECT) + (GIT-PICK-BRANCH (GIT-BRANCHES BRANCH2 PROJECT T))) + (OR (GIT-LONG-NAME BRANCH2 NIL PROJECT) BRANCH2))) - (GIT-BRANCHES-COMPARE-DIRECTORIES BRANCH1 (OR BRANCH2 (GIT-MAINBRANCH PROJECT LOCAL)) + (GIT-BRANCHES-COMPARE-DIRECTORIES BRANCH1 (OR BRANCH2 (GIT-MAINBRANCH PROJECT LOCAL)) LOCAL PROJECT)) (DEFCOMMAND prc (REMOTEBRANCH DRAFTS PROJECT) - (* ;; "Compares REMOTEBRANCH against the main orign branch, for pull-request assessment") + (* ;; "Compares REMOTEBRANCH against the main orign branch, for pull-request assessment") - (PRC-COMMAND REMOTEBRANCH DRAFTS PROJECT)) + (PRC-COMMAND REMOTEBRANCH DRAFTS PROJECT)) (DEFCOMMAND cob (BRANCH NEXTTITLESTRING PROJECT) - (* ;; "Switches to BRANCH. T means my current branch, NEW/NEXT means my next branch (under wherever we are now), and NEXTTITLESTRING if given will be attached to the branch-name. Default is to bring up a menu of locally available branches.") + (* ;; "Switches to BRANCH. T means my current branch, NEW/NEXT means my next branch (under wherever we are now), and NEXTTITLESTRING if given will be attached to the branch-name. Default is to bring up a menu of locally available branches.") - (CL:UNLESS (STRINGP NEXTTITLESTRING) - (SETQ PROJECT NEXTTITLESTRING)) + (CL:UNLESS (STRINGP NEXTTITLESTRING) + (SETQ PROJECT NEXTTITLESTRING)) (CL:UNLESS PROJECT - (CL:WHEN (GIT-GET-PROJECT BRANCH NIL T) - (SETQ PROJECT BRANCH) - (SETQ BRANCH NIL))) - (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) - (GIT-FETCH PROJECT) - (SELECTQ (U-CASE BRANCH) - (T (GIT-CHECKOUT (GIT-MY-CURRENT-BRANCH PROJECT) + (CL:WHEN (GIT-GET-PROJECT BRANCH NIL T) + (SETQ PROJECT BRANCH) + (SETQ BRANCH NIL))) + (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) + (GIT-FETCH PROJECT) + (SELECTQ (U-CASE BRANCH) + (T (GIT-CHECKOUT (GIT-MY-CURRENT-BRANCH PROJECT) PROJECT)) ((NEW NEXT) - (GIT-MAKE-BRANCH NIL NEXTTITLESTRING PROJECT)) - (CL:WHEN [SETQ BRANCH (IF BRANCH - THEN (GIT-LONG-NAME BRANCH NIL PROJECT) - ELSE (GIT-PICK-BRANCH (GIT-BRANCHES 'LOCAL PROJECT T) - (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT 'PROJECTNAME) + (GIT-MAKE-BRANCH NIL NEXTTITLESTRING PROJECT)) + (CL:WHEN [SETQ BRANCH (IF BRANCH + THEN (GIT-LONG-NAME BRANCH NIL PROJECT) + ELSE (GIT-PICK-BRANCH (GIT-BRANCHES 'LOCAL PROJECT T) + (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT 'PROJECTNAME) T) " branches"] - (GIT-CHECKOUT BRANCH PROJECT)))) + (GIT-CHECKOUT BRANCH PROJECT)))) -(DEFCOMMAND b? (PROJECT) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) - (GIT-FETCH PROJECT) - (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT 'PROJECTNAME) +(DEFCOMMAND b? (PROJECT) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) + (GIT-FETCH PROJECT) + (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT 'PROJECTNAME) T) " " - (GIT-WHICH-BRANCH PROJECT))) + (GIT-WHICH-BRANCH PROJECT))) -(DEFCOMMAND cdg (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) - (SETQ SUBDIR PROJECT) - (SETQ PROJECT GIT-DEFAULT-PROJECT)) - (CL:WHEN [AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) - (CHARCODE (> /] - (SETQ SUBDIR (CONCAT SUBDIR "/"))) - (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT 'GITHOST) - (OR SUBDIR ""))) +(DEFCOMMAND cdg (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) + (SETQ SUBDIR PROJECT) + (SETQ PROJECT GIT-DEFAULT-PROJECT)) + (CL:WHEN [AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) + (CHARCODE (> /] + (SETQ SUBDIR (CONCAT SUBDIR "/"))) + (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT 'GITHOST) + (OR SUBDIR ""))) T)) -(DEFCOMMAND cdw (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) - (SETQ SUBDIR PROJECT) - (SETQ PROJECT GIT-DEFAULT-PROJECT)) - (CL:WHEN [AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) - (CHARCODE (> /] - (SETQ SUBDIR (CONCAT SUBDIR "/"))) - (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT 'WHOST) - (OR SUBDIR ""))) +(DEFCOMMAND cdw (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) + (SETQ SUBDIR PROJECT) + (SETQ PROJECT GIT-DEFAULT-PROJECT)) + (CL:WHEN [AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) + (CHARCODE (> /] + (SETQ SUBDIR (CONCAT SUBDIR "/"))) + (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT 'WHOST) + (OR SUBDIR ""))) T)) (DEFINEQ @@ -617,12 +616,12 @@ -(* ;; "") +(* ;; "") -(* ;; "File correspondents") +(* ;; "File correspondents") (DEFINEQ @@ -865,12 +864,12 @@ -(* ;; "") +(* ;; "") -(* ;; "Git commands") +(* ;; "Git commands") (DEFINEQ @@ -1074,7 +1073,7 @@ -(* ;; "Differences") +(* ;; "Differences") (DEFINEQ @@ -1187,14 +1186,16 @@ T]) (GIT-COMMIT-DIFFS - [LAMBDA (BRANCH1 BUTNOTBRANCH2 PROJECT) (* ; "Edited 2-May-2024 11:24 by mth") + [LAMBDA (BRANCH1 BUTNOTBRANCH2 PROJECT) (* ; "Edited 5-May-2025 21:59 by rmk") + (* ; "Edited 29-Apr-2025 22:08 by rmk") + (* ; "Edited 2-May-2024 11:24 by mth") (* ; "Edited 26-Jun-2022 13:32 by rmk") (* ; "Edited 7-May-2022 23:48 by rmk") (* ; "Edited 2-May-2022 13:45 by rmk") (* ;; "Returns the identifiers for commits in BRANCH1 but not in BUTNOTBRANCH2") - (GIT-COMMAND (CONCAT "git log --format=%"%%h%" %"" BRANCH1 "%" %"^" BUTNOTBRANCH2 "%"") + (GIT-COMMAND (CONCAT "git log --format=%"%%h%" %"" BRANCH1 "%" %"­" BUTNOTBRANCH2 "%"") NIL NIL PROJECT]) (GIT-BRANCH-RELATIONS @@ -1262,12 +1263,12 @@ -(* ;; "") +(* ;; "") -(* ;; "Branches") +(* ;; "Branches") (DEFINEQ @@ -1466,7 +1467,8 @@ '(PROGN (DSPFONT OLDVALUE T])]) (GIT-PULL-REQUESTS - [LAMBDA (INCLUDEDRAFTS PROJECT) (* ; "Edited 20-May-2024 22:12 by rmk") + [LAMBDA (INCLUDEDRAFTS PROJECT) (* ; "Edited 9-May-2025 11:39 by rmk") + (* ; "Edited 20-May-2024 22:12 by rmk") (* ; "Edited 13-May-2024 18:59 by rmk") (* ; "Edited 11-May-2024 10:51 by rmk") (* ; "Edited 1-May-2024 09:23 by rmk") @@ -1493,7 +1495,7 @@ PRDESCRIPTION _ (JSON-GET JSOBJ 'title) PRSTATUS _ (CL:IF DRAFT 'D - (CL:IF (STREQUAL "REVIEW_REQUIRED" + (CL:IF (STREQUAL "REVIEW¬REQUIRED" (JSON-GET JSOBJ 'reviewDecision)) " " 'A)) @@ -1575,7 +1577,7 @@ -(* ;; "My branches") +(* ;; "My branches") (DEFINEQ @@ -1642,12 +1644,12 @@ -(* ;; "") +(* ;; "") -(* ;; "Worktrees") +(* ;; "Worktrees") (DEFINEQ @@ -1718,12 +1720,12 @@ -(* ;; "") +(* ;; "") -(* ;; "Comparisons") +(* ;; "Comparisons") (DEFINEQ @@ -2273,16 +2275,16 @@ RB NIL PROJECT]) ) -(RPAQ? FROMGITN 0) +(RPAQ? FROMGITN 0) -(* ;; "") +(* ;; "") -(* ;; "Utilities") +(* ;; "Utilities") (DEFINEQ @@ -2430,35 +2432,35 @@ STRING]) ) -(PUTPROPS GITFNS FILETYPE :TCOMPL) +(PUTPROPS GITFNS FILETYPE :TCOMPL) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4225 20804 (GIT-CLONEP 4235 . 5563) (GIT-INIT 5565 . 6195) (GIT-MAKE-PROJECT 6197 . -13862) (GIT-GET-PROJECT 13864 . 15789) (GIT-PUT-PROJECT-FIELD 15791 . 17432) (GIT-PROJECT-PATH 17434 - . 18478) (FIND-ANCESTOR-DIRECTORY 18480 . 18829) (GIT-FIND-CLONE 18831 . 19912) (GIT-MAINBRANCH 19914 - . 20309) (GIT-MAINBRANCH? 20311 . 20802)) (26471 31400 (PRC-COMMAND 26481 . 31398)) (31448 34236 ( -ALLSUBDIRS 31458 . 32744) (MEDLEYSUBDIRS 32746 . 33439) (GITSUBDIRS 33441 . 34234)) (34237 39027 ( -TOGIT 34247 . 35653) (FROMGIT 35655 . 36636) (GIT-DELETE-FILE 36638 . 37484) (MYMEDLEY-DELETE-FILES -37486 . 39025)) (39028 42031 (MYMEDLEYSUBDIR 39038 . 39494) (GITSUBDIR 39496 . 39939) (STRIPDIR 39941 - . 40312) (STRIPHOST 40314 . 40554) (STRIPNAME 40556 . 41309) (STRIPWHERE 41311 . 42029)) (42032 43934 - (GFILE4MFILE 42042 . 42405) (MFILE4GFILE 42407 . 42976) (GIT-REPO-FILENAME 42978 . 43932)) (43975 -54230 (GIT-COMMIT 43985 . 44811) (GIT-PUSH 44813 . 45573) (GIT-PULL 45575 . 46327) (GIT-APPROVAL 46329 - . 46678) (GIT-GET-FILE 46680 . 48595) (GIT-FILE-EXISTS? 48597 . 48871) (GIT-REMOTE-UPDATE 48873 . -49708) (GIT-REMOTE-ADD 49710 . 50017) (GIT-FILE-DATE 50019 . 51066) (GIT-FILE-HISTORY 51068 . 53002) ( -GIT-PRINT-FILE-HISTORY 53004 . 54054) (GIT-FETCH 54056 . 54228)) (54256 65376 (GIT-BRANCH-DIFF 54266 - . 61013) (GIT-COMMIT-DIFFS 61015 . 61688) (GIT-BRANCH-RELATIONS 61690 . 65374)) (65413 84799 ( -GIT-BRANCH-NUM 65423 . 65996) (GIT-CHECKOUT 65998 . 67284) (GIT-WHICH-BRANCH 67286 . 67693) ( -GIT-MAKE-BRANCH 67695 . 70274) (GIT-BRANCHES 70276 . 72871) (GIT-BRANCH-EXISTS? 72873 . 73744) ( -GIT-PICK-BRANCH 73746 . 74236) (GIT-BRANCH-MENU 74238 . 75119) (GIT-BRANCH-WHENSELECTEDFN 75121 . -77660) (GIT-PULL-REQUESTS 77662 . 81180) (GIT-SHORT-BRANCH-NAME 81182 . 81473) (GIT-LONG-NAME 81475 . -81792) (GIT-PRC-BRANCHES 81794 . 84797)) (84825 88273 (GIT-MY-CURRENT-BRANCH 84835 . 85205) ( -GIT-MY-BRANCHP 85207 . 85825) (GIT-MY-NEXT-BRANCH 85827 . 86321) (GIT-MY-BRANCHES 86323 . 88271)) ( -88311 92386 (GIT-ADD-WORKTREE 88321 . 89928) (GIT-REMOVE-WORKTREE 89930 . 90860) (GIT-LIST-WORKTREES -90862 . 91666) (WORKTREEDIR 91668 . 92384)) (92426 125819 (GIT-GET-DIFFERENT-FILES 92436 . 98860) ( -GIT-BRANCHES-COMPARE-DIRECTORIES 98862 . 106093) (GIT-WORKING-COMPARE-DIRECTORIES 106095 . 111802) ( -GIT-COMPARE-WORKTREE 111804 . 115782) (GITCDOBJBUTTONFN 115784 . 120274) (GIT-CD-LABELFN 120276 . -121358) (GIT-CD-MENUFN 121360 . 123800) (GIT-WORKING-COMPARE-FILES 123802 . 124422) ( -GIT-BRANCHES-COMPARE-FILES 124424 . 125588) (GIT-PR-COMPARE 125590 . 125817)) (125881 134204 (CDGITDIR - 125891 . 126578) (GIT-COMMAND 126580 . 128138) (GITORIGIN 128140 . 128837) (GIT-INITIALS 128839 . -129143) (GIT-COMMAND-TO-FILE 129145 . 132630) (GIT-RESULT-TO-LINES 132632 . 133537) (STRIPLOCAL 133539 - . 134202))))) + (FILEMAP (NIL (4187 20766 (GIT-CLONEP 4197 . 5525) (GIT-INIT 5527 . 6157) (GIT-MAKE-PROJECT 6159 . +13824) (GIT-GET-PROJECT 13826 . 15751) (GIT-PUT-PROJECT-FIELD 15753 . 17394) (GIT-PROJECT-PATH 17396 + . 18440) (FIND-ANCESTOR-DIRECTORY 18442 . 18791) (GIT-FIND-CLONE 18793 . 19874) (GIT-MAINBRANCH 19876 + . 20271) (GIT-MAINBRANCH? 20273 . 20764)) (26229 31158 (PRC-COMMAND 26239 . 31156)) (31214 34002 ( +ALLSUBDIRS 31224 . 32510) (MEDLEYSUBDIRS 32512 . 33205) (GITSUBDIRS 33207 . 34000)) (34003 38793 ( +TOGIT 34013 . 35419) (FROMGIT 35421 . 36402) (GIT-DELETE-FILE 36404 . 37250) (MYMEDLEY-DELETE-FILES +37252 . 38791)) (38794 41797 (MYMEDLEYSUBDIR 38804 . 39260) (GITSUBDIR 39262 . 39705) (STRIPDIR 39707 + . 40078) (STRIPHOST 40080 . 40320) (STRIPNAME 40322 . 41075) (STRIPWHERE 41077 . 41795)) (41798 43700 + (GFILE4MFILE 41808 . 42171) (MFILE4GFILE 42173 . 42742) (GIT-REPO-FILENAME 42744 . 43698)) (43749 +54004 (GIT-COMMIT 43759 . 44585) (GIT-PUSH 44587 . 45347) (GIT-PULL 45349 . 46101) (GIT-APPROVAL 46103 + . 46452) (GIT-GET-FILE 46454 . 48369) (GIT-FILE-EXISTS? 48371 . 48645) (GIT-REMOTE-UPDATE 48647 . +49482) (GIT-REMOTE-ADD 49484 . 49791) (GIT-FILE-DATE 49793 . 50840) (GIT-FILE-HISTORY 50842 . 52776) ( +GIT-PRINT-FILE-HISTORY 52778 . 53828) (GIT-FETCH 53830 . 54002)) (54034 65372 (GIT-BRANCH-DIFF 54044 + . 60791) (GIT-COMMIT-DIFFS 60793 . 61684) (GIT-BRANCH-RELATIONS 61686 . 65370)) (65417 84912 ( +GIT-BRANCH-NUM 65427 . 66000) (GIT-CHECKOUT 66002 . 67288) (GIT-WHICH-BRANCH 67290 . 67697) ( +GIT-MAKE-BRANCH 67699 . 70278) (GIT-BRANCHES 70280 . 72875) (GIT-BRANCH-EXISTS? 72877 . 73748) ( +GIT-PICK-BRANCH 73750 . 74240) (GIT-BRANCH-MENU 74242 . 75123) (GIT-BRANCH-WHENSELECTEDFN 75125 . +77664) (GIT-PULL-REQUESTS 77666 . 81293) (GIT-SHORT-BRANCH-NAME 81295 . 81586) (GIT-LONG-NAME 81588 . +81905) (GIT-PRC-BRANCHES 81907 . 84910)) (84942 88390 (GIT-MY-CURRENT-BRANCH 84952 . 85322) ( +GIT-MY-BRANCHP 85324 . 85942) (GIT-MY-NEXT-BRANCH 85944 . 86438) (GIT-MY-BRANCHES 86440 . 88388)) ( +88436 92511 (GIT-ADD-WORKTREE 88446 . 90053) (GIT-REMOVE-WORKTREE 90055 . 90985) (GIT-LIST-WORKTREES +90987 . 91791) (WORKTREEDIR 91793 . 92509)) (92559 125952 (GIT-GET-DIFFERENT-FILES 92569 . 98993) ( +GIT-BRANCHES-COMPARE-DIRECTORIES 98995 . 106226) (GIT-WORKING-COMPARE-DIRECTORIES 106228 . 111935) ( +GIT-COMPARE-WORKTREE 111937 . 115915) (GITCDOBJBUTTONFN 115917 . 120407) (GIT-CD-LABELFN 120409 . +121491) (GIT-CD-MENUFN 121493 . 123933) (GIT-WORKING-COMPARE-FILES 123935 . 124555) ( +GIT-BRANCHES-COMPARE-FILES 124557 . 125721) (GIT-PR-COMPARE 125723 . 125950)) (126022 134345 (CDGITDIR + 126032 . 126719) (GIT-COMMAND 126721 . 128279) (GITORIGIN 128281 . 128978) (GIT-INITIALS 128980 . +129284) (GIT-COMMAND-TO-FILE 129286 . 132771) (GIT-RESULT-TO-LINES 132773 . 133678) (STRIPLOCAL 133680 + . 134343))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index 41362e26693d7f283f6fa3b03a2b81caf290b6a8..def8564d224b249022c4da7bf3de957b74348f24 100644 GIT binary patch delta 334 zcmex7k@@39<_X~<3YNOQiIuuW21cd|hK5$gmR6>w6SEEKO*Iv`loZSml19c>rp8vr zCQ1rLsmb}d1(`XiDGI3-1x3ZGRtf<@&brS2zP^rrE(-3RA-YaMj(*M_y1uS{pll2Mo*A?^z`(U6jBmPfEHnKiiv@e zCYOerr;n?1kgH>es|!#OHqTTmZ~(n#Y+_<)G&zS+#@fv<7}HIf3RVF@u3?`3p~1Q? sK*NA$nIie!$jZRP%FuLTwF0BbW>%&$cgD4wYdoimGp^Yzl6XHI04B>=c>n+a delta 285 zcmex3k@@pP<_X~21cd|hNf1A=2ph$6SEEU3^f(Flu#rMtc;AUObwJ2 zic*vFa|<$aQd1OCD+-E=Rjm{zAE;J{&dgI#atrnGQ9#zFr>Cc+z?G6%0#uF7JaZ*Y zE)6$NA6MrfSH}=n7c@mM7gZ~87%CVVn;4myPwr-v5est+3RZCU3~}=dcJ}uT)>O~{ zvOvy|*VI(73J7uy^Yjl5)^!0Isi0(RsOy^u^`nuYm655H0ni&<6KiFej4d}aGnKhB S#%-?hoG#87zgZ~pemVeKGfO4_ diff --git a/lispusers/GITFNS.TEDIT b/lispusers/GITFNS.TEDIT index 2e1a9c12b7936936ee8da3593c5695411446b790..0aa747b426239c9b51923c5ceddf09df726eb5b1 100644 GIT binary patch delta 3648 zcmb7GJ8&CC7~V6oBZUOw7{@t05a%XwEIT*>lLTTru_Q~D&@0F;fY3n&oZwp_V%+b$K;`zyV?Ez?|=Whr@z05{`e~T{z@?_ z*=n)o-k%jOy7%2;!@Y~8PE^|4DSdK&__8VP)Cb*GuhKC^gWv2ztyvjd8}zSj&n?vY zo&I2Md9K>2)Y|2;6Q4H+YMsjVcB^I%J`Vq!ndtU6>x16^(uXlIObQ(!JSsOzCGx7D?M}SQ7Tb+@1x7*C@R=5SCgrNqu+zdQ|_6-qF{en z?GpbH+Yx+uEgphDZp@g$Vi^Q1A}siF5|;reUNt9yl+>rOfO3Mxz8kj@rvwo=0U3JB zfEaA>d0>QNq&4qQTFyj)nPXvrD$wV_&E=A@>mokmIq!mukWXMCEg;^N-Cg&!;&vYg z-6fMT%aMbPw;%*p2y66kZB8JxKMvXv4mMjerYi{nl%`vU7T0gQ<_(Dhzje+)=pLz-Q~Gf^%1@u_!??XEWB&*IgUX1xkCjsP-&sQrp-TB{CKKxdiOQL1G;VjY9Q$)Uc?nGSIr9#D=A%fczdy8gvJtzXUuwin=y5y{ z1s*1)W)MLruRz3I+WsW~&`z_w(}?FX;qnFr!WKa_vbWZc9VI_C;y<|denWpnyc4y8 zIYU={mNnUb$B7x5+Qn)@ONEdfrhuqU1}$IurrQFhA(>VkWQd|nK=ca4YuS5S$t74~ zmw~IdnkykX+deEi-(2Ahd%^y`HO+r#p>bkLS821L@Oa8Sj9-(|3y4ai_?3|gA+0nc zxA!FbPcvDC13YxV1zz6-WD*M?w{u9vo@-3o-B!ts+|5=p3l{$qG3j&?{CTo_tcSc5Fn?bJYh3xw#pX4>$k+eJ+l zvX-@sKVrO9p{7A+4tUX7#v;8&w%lH1>5^a$5rVh?pkQyb{U^)@xju{hI|3#iHc8$Z vfvi8NUSxl3C#O+Pl~mUF6^12`*qP3XYizr7;?M^>6Q8@A;>Otcr$7A%+Ofju delta 3426 zcmaJ@O>bL86rJa~sS{d0RHx)oN*ybtNkD<}k@6ATIEkG&_&LJqf)*r@fCcJ;NFWwS zm62G&idleIv4Slq5)xf>%L*j6An^m}iUmlB4fmXRbL^oKmfq8ybI-kVzut_0`6B!4 z^X!{et=h1kzg*kO8vdi&T3Ft!bt{Hu)BSA8-m^z0i{rqy4W&Zkl^K@p=kARQaGX){@U#=I#zsGWnfBHf`0{ysi6$fDzdI)%26))3R zD4+z(J2cRedKUz!n-Ipk*g~9XsKANHD0l|MSmT~2COA%3i-yv35(O&D0>M~;J^(Iw z2{-X;5nl-US3yR|=OM@nNHF)UR;U%1V;po#CUMISg7-3%;0j@l{@QSZ2ux@aShcOGGIbLf}L9b3d8WEDgiF-MQkw!YQ-O;zRumX|0!<6wP=7<#B zWqZgy2Z7s^8ujN))F_!a9HyA`g8Ug4+=#4*Bl!{d1IjePJp}~0$O!!+at{QMg^;XV zCM)3I+Gwmo!(oGl`QW8w=nty$%ll(vaqekbat|p(9R6ryaiowQ0t=Q3>E4Klqwx{K zd7TW>Y(mX8qBY$hY(@*N`oHKd+7gf)iUbQreHsEdp)&r5cGHfU-`mZHlUjs?jn<3& zu#LaCnHONP&tpG^bRtu>nmWa^8aX)x_^J4py0bkig znu*ywaHNTc%BLW3RZiw}QB#^8?$ig$Kx`cXswPVSM`~_xV8|PA2^Ek3%)irVjzHHK z$y+RpzTpR93P=1*;e#q5x=R#-+`MmUZa4=49sLan5vT#o8m8*F+-t*Yre@q~ z5@!ikVHix1AE1nE9s*Wj@ODkoc*(VjAV*Xs0qH9WR#w;0OSX2rf%#W2HS7A6Ls)*M z_oSUftzIZctddx=Q_8F{UJLdx9nHxgA}WhwS2ikwtjcU`9Z3GSUPwp9p@1#FjvLsZ zhnjwzBL31IE{bb>-`LAd{%mji71*k1x|`H9by_>ZfISlu%4O(vsK)K^YcDqWhxR`g zt&xT)(^hJb&UhiZfteco>l{%Ng{-HZ@h6LCBg{0&%mMLpv&18Jt@=~_6^7o7?hqk} zO8{tJ0+%C0rScKcJ;?tfu*O4cMbM38{V9zq|6RYqJ6(mAKVH7@6%hYVACvl6asK4n QKfQa~xhLMM9Q)wrzat5ZwEzGB diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS index f51a86fe..4ff064d9 100644 --- a/lispusers/HELPSYS +++ b/lispusers/HELPSYS @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Nov-2023 09:31:38" {DSK}larry>il>medley>lispusers>HELPSYS.;2 87772 +(FILECREATED " 5-May-2025 22:04:32" {WMEDLEY}HELPSYS.;15 87966 - :EDIT-BY "lmm" + :EDIT-BY rmk - :CHANGES-TO (VARS HELPSYSCOMS) - (FNS CLHS.LOOKUP) + :CHANGES-TO (FNS CLHS.INDEX) - :PREVIOUS-DATE "16-Jun-2023 14:38:33" {DSK}larry>il>medley>lispusers>HELPSYS.;1) + :PREVIOUS-DATE " 4-May-2025 13:30:47" {WMEDLEY}HELPSYS.;12) (PRETTYCOMPRINT HELPSYSCOMS) @@ -230,7 +229,9 @@ (DEFINEQ (CLHS.INDEX - [LAMBDA (ENTRY) (* ; "Edited 9-Oct-2022 16:34 by lmm") + [LAMBDA (ENTRY) (* ; "Edited 5-May-2025 22:04 by rmk") + (* ; "Edited 4-May-2025 13:30 by rmk") + (* ; "Edited 9-Oct-2022 16:34 by lmm") (* ; "Edited 16-Aug-2022 09:34 by lmm") (* ; "Edited 14-Aug-2022 15:54 by lmm") (OR CLHS.INDEX @@ -240,8 +241,9 @@ (PROGN (PRINTOUT PROMPTWINDOW "Fetching Hyperspec Index from web" T) (ShellCommand (CONCAT "cd $MEDLEYDIR && " " mkdir -p tmp/clhs && " "curl --output tmp/clhs/clindex.html -s " - CLHS.ROOT.URL "Front/X_AllSym.htm"))) - (MEDLEYDIR "tmp/clhs" "clindex.html"))) + CLHS.ROOT.URL "Front/X¬AllSym.htm")) + (MEDLEYDIR "tmp/clhs" "clindex.html"))) + :EXTERNAL-FORMAT :UTF-8) (LET (LINE POSLINK POSFRAG POSENDLINK POSENDTERM POSTERM LINK) (while (SETQ LINE (CL:READ-LINE STREAM NIL)) when [AND (SETQ POSLINK (STRPOS "
  • 6bztjvQr?) zjx2&))`%=3i-5Arrt;|<9Y<#zhnZ1l-pu$$XMF!(_udXLe&4WE|MyhYsXC`lopY-0 zUHZFb=YQL5<>-1PA#%92E;2SIHbIGvO^u09jZZWweM~k_RkhRQuqz(7Vp5(TJ=`)l z-!gV~y36USuJJj%z5zol`9&pTOQO=u2@y)L=^;ku)cBOtxD=CO$}SvUl$URb%t2u{ zDNb<98JVB2=*{cpz)?|ACdF>`W4K@7g9$|h_aTGqVoPSJW$+`7*ELGx@lu}D^ zQE{FU9|H;U3d~AuQe#i7pt(MQ6EL)^n9(pbGpn$eGl+knhBJu83{X9?G$%3{b4b9l zjRF6H%>2ll!s6i=Ffm!{Qe0SA8a1*wUwM!PhEq}!6qC*6blV*>qbmJXE>nb(5~G;> zRn^fpSEbLSB*noPy&ktedW@Rsa+TCov7Jdtj1%$Q`iCSWW5KJY*_~b`vRW~^DPdu> zzqp1Mx^)d|nv@_m_T0svW?f>1-_!}PVYw-#X%kgk>J_1=cB{tIlsVj5GZTi4y%kpG zvDaa5#KfuM>E6B3G^uwlloNWJP}cW0Wjxr;>+tz8b#$w(^tc>aKf7IH8w|c0nJxOF z(yEHjdUxopsy@HZuj+%Bl$MlA9)0_=%?!O(bPkJXsg`*i)@iE93rh=9ZB^B(SR9tE zqgw&m)8X+tZD@E*OV#cutEo`M-0*&w@&52^l;4ME1?Z`L`hw!<6NmEEK1t10mt7Ti z`0q_=AIIo*aTtTvBN zjzCZ;XMoyDReWPsf>f&=>(VxsdN#-QK{+lqp#`W@YgDl|HUWgIu~-nRtGd#vil8_e za!g!UhzfV7iw~snuda3gQUk&tM~>^_dZIiL7lHE2xNwxM;yK3I`0ipve5gdBVtqVo z&c<`FzsL7&u3BNWlM_0NjD!&5Aq8{ts+j7Q1ehZme3+1|fu|D(XrLr90~7VC5M8WG z#8zRm_Yz^21V1F|?cr z>V;%Z{Iz6i;(BuUz=xIXx4JcD06d^J)owPmQuT)ue%gsi7M9$f)|!sOp)f_sUDt z`D{yTCl;h(pK+LNX<-_;lBQtz`)Qm+tMr~hY8f|xIURN*(Wn4zR(fxpwmZF#j_#!Q z($P=pCLM)l7-(pQQR~YH)oV8fXcsaJet!Yompl&*?NoMzY+0JI{dz%$|%PWn6&?`3vIq5A-8kNQX^o!L-Z~HIQ z2cwsyYYgmGd%s`e0eT~s#s=b2rZMwxGDCD3T4x!w$gD0pEkCPo3&`by`<;~)W56R> zkp}#27S=*4sBJd(i%lAGWOiq$H8;D5L2zXote0gQYCIUA-OPSic_tgC4V6gI0Dnn& z8rf*kC|N+ejgpfUQu6W#*M~zG15l0q{&RWkjp_w_U=Cv4U_*uzgAKVp3DABDpb(3p z#tcg*T}$IE^w_nQaHs~EqbhboV-j~buTM*Kb=Z(h{W^~U>fd=3 zz3b3kpu4O-pDJ>O!uJuY!aWo_*XD9ik_|)2=G~!;759g7|F#(xhK7(=6)D3=7(a{x zEgr^%;>0jG2AQgTH7p*@khG~HBtJ<)#EkLzNT)yrT$j%r>}q}*#zM0ytGJclUYLe+ zdV_{@)XL#TG;r2+HRQd&!27b!Q<}cDa!9{iTqeDWnKt%7!6|ir{+*o-0BEMsTnQ zNgBcLix3+LI*fpGBFG+r^pC(lB3uJoM<^MLS&dFc5B?9we#4xY5Xdd$sd4+IDT$v( zaBe+|8Qyvpw-?spjzD$Aq;4th5sL6?D>v-X?y!|h1^_Or6A>-gRE6a(resf)u#7E1 zhKOoaSWDt`^lAweb)|$B_rE37Y0pyXbaZKY3$!hFB26w$GvFts0}L24GTDF=Mj|KB z+HM?47MDhHxbH`jY1dJ-j=WLCzENC>4Wq(C+1ziWj>L7<4t@6JHExKHsed(!tJh*Q zf~Xgd{YOL91Y<|XaPru%%SU5{NIGuR{dRPuUe|F9XEJyUb9SG^+s0rg+8sW~e`gHM zspVMax6TSDqEF^n*c!1as>X7bYsNAKes3(d-@hb|9v9I=wR`YSUo*Q$o3e)|mnv3? z+HnZy1Y5_!R0!^kL&i11xVpC?n!UQ;;D8CI;=uqhmQ+7ynoYzm^CcCwn%1)w^D5@t+cBXR`&kXiUljjMG)4p3?5vA@num4tSm!})Tmp^ zDCw25ID^p41|4d3v9@RfR@ed!w%IuGi#GTPG{eNdwLz2RII^pvqg_%7Gwtx=8r5eH zG}velHK-Tta+YlSon4Me*uxQk1&wgFgEGGEpo}*irc5xN>8{aF{wD1~s=eIhpoj3O z1jhcCL^_aim&eL#EArX$aDAIkE|>cProSqH&IfA0EvMkw9< zt7~0J7oT29^-rp#hh9+0&HZL2C;nL_Lrrrh%f3$57CX6gb+X*%lnQmS@7I#jb}G&V zfj ziX-2zlDW5=rWxhtuAJhAu~p*C1#jW*L+HaX2vr<<0|t8+R%;=vC==1B|h)`|}myHLxauvTu z6)4yg!6uizOjd~%GjJ%!lj_&61y~j7H?Fc=c4v9H*7EiYq%Bn*+*OH~x{g9!_Kav< z_oQgGy!GR_vS_SmwY-&>T?;SLNcwhWE3xvqPU67KcB^N$eWYeJDreXB5L0G8`EX5Z z(f#>WVlw_8m&0-92&BBS4Zb__~ zg*;oL1GA#rsJxz6o!YX9Gqbvg=Ci?3Qbpu!uJGj9-6a8i=gr1;LLK0t*@)U2{BkzU zrsWItArUVyksI;?F1UDux9|mv25!E<-SJP^rdvIYEv25GXHvcNSM{`dRhGA9`9nR! z;?z0aMb;d)m^z0xy=x9fx-82-$@1yBq$JEGuW@t9WsaomoEsj9)wk#N58$AA0|I#H zywm_*GLQb_z&y(C@gQIPcpj1f{g~YHMQpz+s}24lfuCQ(-6AO&^KoNCP(NR2Z9~X2NNeiE4 zuEGFXv=HeVd(B?hUjzFW>eKp-0Xi?&0btF8Tmb&4=CO12Q5lJPHk(2;; zNc1R=*6UYGvW0fweV~OL1m|$+lZ5N#V6G(ii&-zzjc<6FVo1Wdm%AD8OO5J-1i?#s z1fju9#F-^bjPjP?2Byk^JlD4b=TV8aEunlDmh{C6IJ^~b*ne9>tL(azv18cMLE!7~ z!;n@jrSHDJw4cuMUrWid(=r-z#xfe?lx2uK+SXQD{brAKd zg2dic92YcawRj4&FIV9V?Y34yT}@Y01L3RbE=H`TGHX^tK(}Ki*zQ!92Egj(n-pBYzAHG=*Mjcl$u%sK)^MpNu8Gpq zk(FzZdN7p{@2^P&^5epx>DmMxrLV<#N7AORW$50pma{#*mOQ>%%LM6}SIDUh`@-@H z)>)#OR}k7I+V@I$Z`JLu)I%bWG)(+PA}6omy+sx4Rq>BkXb)Z1G37{GM+ZA@9p_#z z%bn{u;+1t&%^ziLtMza;9$Yo6B5^$ho3x%?>(_@ECzKuQ`)FCm2kWWm|633Ht)2$) z!d}H&8;K?d(E3*)sH9zgHC;z-HyEgJ1Hv(Dk>_ln)F(G^Zl74OBZE*tJtOQ}(%=8FRL5=B3;5&CD3@ZN@RD+JkxgxEc3z67|~B zUq>UiAa|?9MN9n_s)lcg)GbI(CHi&?UVKRuy%p;!(d4b{%62QaQiVj91E}dXqh0Ja z+{DP*i2>TOZMb9RU~g?h)B^CsgumK`BP)rmw>J_~x9h~R?MNHtXxou)0|bmcSRC5k zRs3UnJFWi7*YGlp4TrvlcS_Y>PZ<_u{%bVVy{{n?0R_u`>osgZ4Sx3;HPvPZwH77I z!W}g4nX=rzgQj?42YO;-U>E&y2mMydom6SKEOU3V$<&>+$E7==J^AwM#7>-aB)Y$o z>GCtXXtl|^xLW1AIKYZsoK(Xu8sx8bAzAlY{W$iw-HnC!B9z7KhB*+F?1s7sX6=S8 z0lM=2+BXIWeLYg6l)erPuxiEY2t@?fUYGrN1OD^toJ`mrCeFM|kr9 zxqNbfX(#I}>(b;7|6X-;qlOn**_gifNlN7Ah|#-G{1pvo@ibJ0|wEl2Ap3d z`k{fckrwwR-keMH{F@~KWDr+sY)jJS9gon_q2t&OKCH&Cj+-^`%n4e5>IsA> zpS*dSbb^kh?gWiz(+Qqyub<$W{dfYeOte$0auNxL);i}T^*`+-2k>Kyzj~6x6J0wg z!!%Hnw|UP%+Q7Hrz$L1Go9jf{(YLvxpT14^6LbnUkUqc13tu_#6os{(l3cJ&UpXav z09`x9^uQ0)>>Wfyi3Y#JJkS3Q`@HgwoCDnJ<#%Mu3U&2qs@h+{H|7bak*4do;y#$BcK`W23~UCH*(=(hIabPxEGuH1IqZk7)b(_F~?7ycp7-*zWpy^7{Tf z{qi#xh!Za$M)>M@^H6bt_Obo~5@wBXqp|MiMi_GuuYa@#Q!a8k^DlDnI_!_{E_M{x zFCrt*pCY=dM)IiLVfd{T`bRjJVElU&Y4m$N9)6QxyxIQ67u$jN+I|O9J-Lw@B%hDo z>rt=zD~)>(Ai3fEl}@krtw6aGF5P%*r;&LM@>jxR^L>I3y#e(dtC3{`XO)&k`T>ku z(qyIAYSU}IR^fji$4fr~;=cFsoeROY?;{%ey$-Bn=q2hqSC-Q*L1q40Bq+bS)KN5C zf)CK2h6Ye4F=JxeHgXWYKah8xlP}}c>xZ9Oa2fHA;Miq+{6g@L%N!dZ>I%0_(G`y7 zze0bo=?ae+cdy_&uEt%4K|5TH2VvM%uJ^2~3{^X>awRWa#o?{Ck}2=ESCO35xEbg> zUgII&Ej@JZHSX`KYdD$JxbZ~9;Rve}~U+*R+UVlpLxQ=s1 zO?3s7aqT)AwY!1W;`*Jym>Y2QlFj@Z$mk?Gbi<4e_|_3y@CJFe`v6B5B=azttPeQN z3Ry1w0AXVWFYJy7&{rS814vruo3wY!OSO~$YVHv_`$zlqD8S|^Y8AK#2>rox3j zek)o2X5Yf=iCWdhd(S1e21?rXTR6tm;+PH1-ArfkhtGwO*&6i(D?V)vxa0Ljk6(Pu#@| zH-dNrOumb21X5Pqg$WRxy$fdtzS<$`&9gXh-%}TDNG^=n-u_ZUJ zut33AmD*>MMM^@fQj(XNT5Kt?l#VPQm7gdYpFGCLiW?tysgG4kOUDk*D=Es)9IJhb z$?p{LDQsTx@F+Q6ZgFPO5GC3CC?zpTn~zqX82e~_T+)9GZ%%x4G*Nr6SI3w{#f0I& z&Ry0;Ol2;-Y O{b5YQ-~Q0?@&5;wrz$G| delta 11571 zcma)C33yaRwibjSVNnFx12@ff&3o!|dH-Mc-cDfVec$BESN-2pRi~;>ojT{# zx%Zu~A71+BhgXcRH=Cmh+%uwLV`Af!n3U8wb81|&NeMGmxSbxm!)8_7F2$tG$tf8% zFTL9Bv}HIfUTVwKd~oV?Pgp%bwPhtp|NQnN>76%5ZUi7G8r!p3D4mniy5 zv6hl>C2UwhiISZ^q9i)MuyEAaqHra(s5p0AUg6l1s2ofWvrCK`S?khdY>tP3Q{&=H zN-(Dv@$XC3eB@ZOlTS2Hh&@u0weiG|%e2~YR#k00&O*j(1N7CXDg zc2B@UQ?v66OL7%+T%7Xc=yCaZC8dfvHd%b%y<=LuQdpE*pqOJ)l+n34`MDEw@`{y| zSf!-e=5S=Yolc9(3Lz`mg$3DJrAk7AQkq*_RGg>8$BWD!UF*pna?C5p$(?`!Qk2xJ zp@qfdAJ?QND<&o;R!K_KNX3PPrO{)H^Ob}crKlL%RXQI13&$(ye&2I^6Bf`P%ragv zRXFS}t8G?vwcqJ5g)1p3iplTv461Nc`%Fr*8M^6pyZnPDs96q2Nu87JOiGej{MsY3 zd19i7?Ag6}qWQ>(o;_MNPlyw?(4G8gYZ{54BNI$1&6}xWW#4d=r~39n`B~q7D4X@` zi?V+|6UsbUI{NhnUfQomy6W?5gP2N6F`+Qiz=1e5GgQ!hel<`PsBBs*{@5?Pm0Iq# zS!z_#v42_zwZiF9EA3jZU~m-oMm-_?{Y@=pjo8pXO-G;gkJnMB0WqyqtF64YN)@99 zL||Go2V|o>Ibdjj-Xd%uD1*Y{P*#K`wNM>aRcsD3Yv85<9tn@tC>i02L8{X>%cF|f z;nC={JDiMfg-5hdJziC`7#OXA#DP&7s2Uiffeiz}m2IvM1T%u52pxDLI*Fo)o*LB? zp?BC3k)Tn&h!~=Q(8yE`sF6CaRgrNT<#J?-1|Eru53DXbYG6y%>%x+}QJ9w(U`G^$ z31GEVHWB98sBWTlbZ4zepJ+^gZO2Cs!rGpVZe(~aIxfKc=V&u(qX#uost1|sRgXj8 z+M;~9>k$!h*F6r@cmh>{%KxWUua81si)tuKlqr~cG)NMC#yBO~ID<%@(L(h(RM9S` zy9Od+AXM9Q?0-zR!KxXPFdNLw`VeN0QTae!l$?5hhd)hLlEb!`9vZ7NFnq4^R^UY2qkLyUu8T?nLbIhG2y3w6P$6drT0k*dXKcNw!pWuTR> zT5>>bb<^rS9<+S;$-Ec)@WwBxdZ<~2A|JNLbvTtlc5UA5?RiVZvfUr6iJ7;lt zsx7Lx7RzJsQ*3{fp>aJ?X2h|pB`y@@;y9lBeQ^U&-ijl$%=i$|BfgJBBW2k~EQoK} zUarUMwbWszepQ@_AJ{^*K-2#gkE5l5ZenPHf`PrNRW*z6<2#G`1Z)y3w1V*Als-e%a(k7lR=3I~?Lkhj-0qis@vAc?g>3N~1urD0UJhX&O@Sl` zzDVh(fuK~K5}g{VQA$!x8mLR{qk*kP)p?`pJEK>}G@Va+8n%&~r=|7Rz^XI_A~~8y z(cVf6ZK;;yV2S@tQ*@-H8?<5R{dAfqJxoWN();S@LOKk%?0YwWIt?~z2M_L}*V+QK zhQS8EV*%Qo!Tt4iZ8MC%2>~=UgF3t*qhBkv*5k23Lte|^=3bNZ?=xt>Lozc^KA8z^ zE3dUXu+*)YJPYq-QgC&u_-iKR1<-LwxCVv{2_2wTK;bI%eW|eE&nvfv(CU>t!xrMX zAtCTdM0u4~V-_mXO&$i`!J8k+s=Lu^N*LNE=i`+FAqJ>LyzzdFb0= zwdOR6y9o!Q`d?M*bv8Sq!7AOUWaSRPmLP6bg)5hPCgJ8>n)3^}IFuFDh>-p>w-2hS zsiZxJg%~h%7&}O+dl+|C!tKN85Uvc1Liy9MNP`?XoaVAd<+-kpk1c9IeTJjk=uFf~2&s+KNcn%)T@nT2I zG011?Xf|6pI*Wsn@agDC5Yh{}ie3d=N_s(VJ5;$URI_#*L|H+I*jvyRb;k-g!QT~7 zAk7N{pDLuO`=$`yvjS7-UIb%KkW++U zlAx{#0Vl!XA{cyvuZm#p2-=N7I7^T*W`G9lV_@tVsfdO#U4w|KVOhs?!w?t7aM16@ z&~0`u=0dZJNvSUG9i-Y_6$o^e6?5zM6mwoTW%+Y4VpXfHLKP7uaXP9fp$A`8LM?i$ zgp9r`p)Q4%rUx;CwIgURO>3vYcwKM{N_&V4r9F)X-;^dBu>aT;1KP%t+sd&V|KwQm z|9UJHpyN2=!Q&`v>o}=3<0$?8vb;VH?$hg3#ea{3TnPG%kKtT#v?h#)I7wPGUavba zK1#2c+orJ*{qOJFRYBqnxY~S(D)Y3G9=wuLRpCA+jgX7Fmg{Qy6QU znZkMhbxKl8)y8X0*i>%L$f?w{+Nqgf=kg)IJux*4grBEUd!p1XU_ITqEda?0+osoA z9NKg(DubCtDuaTZDvi=5l_L3@%305_U~``+H4D;Yk*%*pQv zx2h{z231q+Vbwg#Mb$jx^Q$@GSF7n%K9J>q$=aTFZdtZ0r`e?-?d*FY5B#Ng!CsnjD?@4-#3e ziWEl*>?vE$bY$q&CrFdMe{jU=Xpj@iFKIPSihPw*hT={ciaRO(ADpxn16@$5YFrRt zK3rjhJ{ahwt_TC3)*6udy$gp@YY^cc+FpZk+Gz|Hqun85ox6+C;;0)6sx|)3&AsU1 zphLdnfh!J8mVWX24dj)^m1N*q@7 zm^*{}w{Zqy45u6EF_Af|i?}xfXT0$-eP(Loqe*PO?{VcU_%@^Mlt$P`ESuF5gfz4jA$2emjijk{X5;ZrT^CVb*G~L0qm5`kyS2Dl*S@i8Oe5?f3TNlu z|JY{btj_4uNrcR4+nNbKZ2)pCoZSXgi2Z)jf;rHrM$*;$AMeg-CkD)I5Ah_yllj<_xjF4MXrvCsjkzJB=e)LH7d{VRF4{rb`SWl>G&p-6 zJhKM(&Et08m=~%@f|0#qrAOONw?(^ui^u1uX$itH^K&(@em=GT-T9%tREN7t*DD~s zW0i4r7Z2Cd)D+cs66y6FC8EO5sAsuRmgnl}PyeGnN0uSNGrvPS6Ij{ZxB|$$k$VAW zDrEVlEI*UwZwtt~??Un#xsYvK3kL*z`NoBj0eo#?MmydAYjYKM7lw$WMO^|d#xA09 znY9Q`!r^v9xZ4&XWYDkFHx}V6IxQ72CJ!%$;n85y;sDjYcu*@+y*PPW7Q=aHNz@M- z;V+Ak5z&rS*i*P|I}zs>K84Vf;HjswG;rxDq(Dh&^)zxs1bI*ERSi!g7fQ{%`*|0NR3SNZhD3%3K&U~XBghg+idq|5x|kp@Mj}6F!Ncx^J@mU zV^no`jz_jeMXX)$91MU4*F2Y~^}PNZQoQ69^gOas1liBiSkykx&3Nf~oPVbUvOM)X zLSrD9t2@tkH(;|DdJfm9x-B-biGHCcbi1TEksWmv)5*LO0Mbrt7RUMmq8ZsxEO`OZ zu?F|O5Sk0OlhFTCgFF|6)X+r=! zcnR*55=~peRW>Xc2#MRgRWQ_VFQF=ay@Y<_iKRm@4dg80_?OaVuU#6UU@}d{(Q|Z8 zyQ`MB8(PjkETu}fT1I6YxGZ2e%9ahmAT*sGVOjQsIJFEXTC*u-%Q~-Yh-|Mt>DQ}Z z(Y~RF7~23#9%v-08rq4i4SjSzX7SkaC&cd?Z~@kuJi2`FgG>f3?=IRjv=;N0cfGII z)j1u+x#hj?qg`L#PPAUp1=9{)k%V&Miovq%DUPgAFh(uYPM@wwK_^19P*-#ogI+Z0 z&$05^^&;2(;)}@Tx-3oz^va7A$M-MN*z{OQac8c?%3Zcu;O1P(_+|M@99hj39+NFT zUy1YK!a;mgKurnq1i82bo%d3S4+#cLpUSe?DsI|L_j=?uJQgn!UE=n7m{lD= zvH{MB7!mIVUMng$z&3dh9ElBlIRtQJ179KmG~Wm#MUb?SFOUFgHu7Z@z$SxoV zZ6k!>vDsja25#c|M{VjkRrTmD(&VvAp?Vy~nbVG+ZeKJqPrt`46An%lz^DXCtMb|X zcHKI8+?f9PO~}kj^tVlsI_kX{;owZFxbb^g zcG$sw@jIyP<95IX%Qt_Eci?s<(a{}@%0J)1Gtqn}6(MFPN1eEnGo81SCS=!6+z-4K zKRo8`oxQZzfIsc*t$~nNAT=*86vJMDS^~gZ)x81}LfR1n+Jjq~kyxmUMtW?x6(R?(LV&U7le#QW#$37wldwpY63F`ls(A2uxhR z5s+rVT|?e4{Cja*^fDmbx|eTmiLUL1(n|E(UYd%&uW@I2`55yWML0{ATV8{bxILM9cnW?&lk_$@|%U{(iRKv7Z6zjs3j7{jwhiT{?&U2L>ag#7vDX6%VspF{Q8Cis_pUF>^NVkhG(R z8spl-hY)M(xvXyvAuiDIpu_0_>^;nhuR9EZ`>L>!?;a-ezZ`~eeN51HK0;qalz)Vt zjp&&pxOz);?g*z&+Al}4b+qYqlc;*#=(Xu}T;gSmuU?0plBmN`dQkT2aI~|SbQITF z`84+^JtpagjzUu<`Z|ERz0o&PCR&YG0LGh3{8l+^QASS1Z!B}$8y&^mHxPX2%ii_| zzIO=VPU6=$aPQIbwV`h^Uz_$OO~#Zr5y1HvggpBuR8FEd-{g!*`!;|=jzN7SE&o`! zj%FXj5%OV6b{#Wo;PYbxh9G%n^VS8Xjc=}`O8Sswl;?rKux^qF*AZ;;c`Ox7B;vSc zAE%C09_O`w?Qw4N`QwO_ZN_Q#DLXCa0K+d%%a%azpJpP}U&ZeUemjkOh>p!~N&aY2`4&}IYq9Yy zUe7dq?Jal~9S6TH=O?-3ylwEF^R}EBcpQ408^oaOtGBt4M30@}@z8i>oWTnd9ow7W zRcDYt)9I(qAPm;=pPS&v&T>cM&QjhJ&dL=c-@4?ioCVOiv-sx5=dWXa^T)HaDz}D|@_lT0-;UOTZd53M*zQgt>-=VksoOtECa8kZH zW?IbeQa8%q#XUeHtZS^h)Chli7g4;{VBmSqr0_h)t;4}zaGu9oLtUbx*vPH<6u${! zpG7rHwwA&1TdK<4R({`r`TcsHYYV;5d+>b+)c7#qUw#)5_$d~AeV62_QUv`z0^rqFLl!%7G6p>sJKQ zi>~9|t*vk7b)?&7+WCpuw(HRktFV_JUQd?4?QUeX!*d1FwfY8`Z*&v>8;Y!5dm|ei zWm5F38;O$C?Za4-n1>njVG?3k)m;lSz5K&8VtN0#@nJHtbSID9)W*xYnJ8(rdGl`~ zy}@{Q|4n@5KydRWUhWb6YJl*M^fnVeLL|hh7e0c80${{^<|E{8>r^+$cR#|NLW5mz zK~avR-l}ib3mY$pFW;GCSJ+OD;QRYuV(Shr2GnYJU(bl zP=@E04lSHeoI5!r6eykwK%sVw{&a)sY-%5@cm|dq9X3z>e@Uu zQJndtvn@r*D;^y!2N+(QRWw3LPI!=#WY#92)h8xCSRZfxr}1LV_kE8kB5o&jF~=w- zj0Ikl6xy1Ef!3h zR^1(ck3AG7)Gvodr*Lv5Mfq71mE<^OSYbhFPHstdab8hrVKF}5e1LLf@0X9aX;voQ k`b&eD@@-*9e%D$&wxA%dV0bh>AkEG#DLJy|+is8iA0@w+%m4rY