diff --git a/library/VTCHAT b/library/VTCHAT index 0107b106e..f1c909d9d 100644 --- a/library/VTCHAT +++ b/library/VTCHAT @@ -1,10 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Feb-2022 11:10:55" {DSK}larry>medley>library>VTCHAT.;2 21881 +(FILECREATED " 3-Aug-2022 11:30:53"  +{DSK}kaplan>Local>medley3.5>working-medley>library>VTCHAT.;3 21940 - :CHANGES-TO (VARS VTCHATCOMS) + :CHANGES-TO (RECORDS VT100SAVE) - :PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}larry>medley>library>VTCHAT.;1) + :PREVIOUS-DATE "20-Feb-2022 11:10:55" +{DSK}kaplan>Local>medley3.5>working-medley>library>VTCHAT.;2) (* ; " @@ -151,7 +153,7 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE -(RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET)) +(RECORD VT100SAVE (CURSORPOS CHARATTR VTSCHARSET)) (DATATYPE VT100.STATE ((DINGED FLAG) (EATLF FLAG) @@ -261,10 +263,10 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation. ) (PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1675 9741 (VTCHAT.STATE 1685 . 2195) (VTCHAT.HANDLECHARACTER 2197 . 4771) ( -VTCHAT.SEQUENCE 4773 . 6316) (VTCHAT.DOCOMMAND 6318 . 9739)) (9742 17253 (VTCHAT.ADDRESS 9752 . 10270) - (VTCHAT.REVERSE.INDEX 10272 . 10841) (VTCHAT.ATTRIBUTES 10843 . 11229) (VTCHAT.DECLFONT 11231 . 11500 -) (VTCHAT.CLEARMODES 11502 . 12005) (VTCHAT.SAVE 12007 . 12746) (VTCHAT.RESTORE 12748 . 13455) ( -VTCHAT.SETMODE 13457 . 14529) (VTCHAT.SETMARGINS 14531 . 15122) (VTCHAT.REPORT 15124 . 15884) ( -VTCHAT.STATUS 15886 . 17251))))) + (FILEMAP (NIL (1731 9797 (VTCHAT.STATE 1741 . 2251) (VTCHAT.HANDLECHARACTER 2253 . 4827) ( +VTCHAT.SEQUENCE 4829 . 6372) (VTCHAT.DOCOMMAND 6374 . 9795)) (9798 17309 (VTCHAT.ADDRESS 9808 . 10326) + (VTCHAT.REVERSE.INDEX 10328 . 10897) (VTCHAT.ATTRIBUTES 10899 . 11285) (VTCHAT.DECLFONT 11287 . 11556 +) (VTCHAT.CLEARMODES 11558 . 12061) (VTCHAT.SAVE 12063 . 12802) (VTCHAT.RESTORE 12804 . 13511) ( +VTCHAT.SETMODE 13513 . 14585) (VTCHAT.SETMARGINS 14587 . 15178) (VTCHAT.REPORT 15180 . 15940) ( +VTCHAT.STATUS 15942 . 17307))))) STOP diff --git a/library/VTCHAT.LCOM b/library/VTCHAT.LCOM index ea1ed75dd..46b82296d 100644 Binary files a/library/VTCHAT.LCOM and b/library/VTCHAT.LCOM differ diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES index 911e9218c..70f74eb4d 100644 --- a/lispusers/COMPAREDIRECTORIES +++ b/lispusers/COMPAREDIRECTORIES @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Jul-2022 15:31:50"  -{DSK}kaplan>Local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;248 128327 +(FILECREATED "11-Aug-2022 21:10:25"  +{DSK}kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;249 128449 :CHANGES-TO (FNS CDBROWSER.STRINGS) - :PREVIOUS-DATE "20-Jul-2022 21:20:33" -{DSK}kaplan>Local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;247) + :PREVIOUS-DATE "25-Jul-2022 15:31:50" +{DSK}kaplan>Local>medley3.5>release-medley>lispusers>COMPAREDIRECTORIES.;1) (* ; " @@ -1707,7 +1707,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp BROWSER)]) (CDBROWSER.STRINGS - [LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS) (* ; "Edited 25-Jul-2022 15:31 by rmk") + [LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS) (* ; "Edited 11-Aug-2022 20:23 by rmk") + (* ; "Edited 25-Jul-2022 15:31 by rmk") (* ; "Edited 20-Jul-2022 21:14 by rmk") (* ; "Edited 22-Feb-2022 18:30 by rmk") (* ; "Edited 14-Dec-2021 21:03 by rmk") @@ -1758,8 +1759,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (* ;; "Stick a blank object between") (SETQ PAIRS (NCONC (DREVERSE L2R) - `(("") - ("")) + [APPEND '(("") + (""] (DREVERSE R2L))))) (CL:WHEN COLHEADERS (PUSH PAIRS (LIST COLHEADERS))) @@ -2153,25 +2154,25 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp (PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1994 1998 2018 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2634 22191 (COMPAREDIRECTORIES 2644 . 7477) (COMPAREDIRECTORIES.INFOS 7479 . 10353) ( -COMPAREDIRECTORIES.CANDIDATES 10355 . 13740) (CDENTRIES.SELECT 13742 . 18517) ( -COMPAREDIRECTORIES.INFOS.TYPE 18519 . 19425) (MATCHNAME 19427 . 20107) (CD.INSURECDVALUE 20109 . 21723 -) (CD.UPDATEWIDTHS 21725 . 22189)) (22192 31861 (CDFILES 22202 . 27955) (CDFILES.MATCH 27957 . 29582) -(CDFILES.PATS 29584 . 31859)) (31862 49683 (CDPRINT 31872 . 34389) (CDPRINT.HEADER 34391 . 35288) ( -CDPRINT.LINE 35290 . 38522) (CDPRINT.MAXWIDTHS 38524 . 42639) (CDPRINT.COLHEADERS 42641 . 43926) ( -CDPRINT.COLUMNS 43928 . 49048) (CDTEDIT 49050 . 49681)) (49684 58053 (CDMAP 49694 . 51126) (CDENTRY -51128 . 51437) (CDSUBSET 51439 . 52878) (CDMERGE 52880 . 56734) (CDMERGE.COMMON 56736 . 58051)) (58054 - 65592 (BINCOMP 58064 . 62353) (EOLTYPE 62355 . 64917) (EOLTYPE.SHOW 64919 . 65590)) (66120 78647 ( -FIND-UNCOMPILED-FILES 66130 . 69773) (FIND-UNSOURCED-FILES 69775 . 72159) (FIND-SOURCE-FILES 72161 . -73899) (FIND-COMPILED-FILES 73901 . 75778) (FIND-UNLOADED-FILES 75780 . 76633) (FIND-LOADED-FILES -76635 . 77063) (FIND-MULTICOMPILED-FILES 77065 . 78645)) (78648 87079 (CREATED-AS 78658 . 83455) ( -SOURCE-FOR-COMPILED-P 83457 . 86384) (COMPILE-SOURCE-DATE-DIFF 86386 . 87077)) (87080 97386 ( -FIX-DIRECTORY-DATES 87090 . 90083) (FIX-EQUIV-DATES 90085 . 91610) (COPY-COMPARED-FILES 91612 . 93433) - (COPY-MISSING-FILES 93435 . 95592) (COMPILED-ON-SAME-SOURCE 95594 . 97384)) (97580 105189 (CDBROWSER -97590 . 101517) (CDBROWSER.STRINGS 101519 . 105187)) (105351 107087 (CD.TABLEITEM 105361 . 105581) ( -CD.TABLEITEM.PRINTFN 105583 . 105782) (CD.TABLEITEM.COPYFN 105784 . 106842) ( -CDTABLEBROWSER.HEADING.REPAINTFN 106844 . 107085)) (107088 127743 (CDTABLEBROWSER.WHENSELECTEDFN -107098 . 107566) (CD.COMMANDSELECTEDFN 107568 . 112669) (CD-MENUFN 112671 . 116982) (CD-COMPARE-FILES -116984 . 120336) (CDBROWSER-COPY 120338 . 124007) (CDBROWSER-DELETE-FILE 124009 . 127222) (CD-SWAPDIRS - 127224 . 127741))))) + (FILEMAP (NIL (2632 22189 (COMPAREDIRECTORIES 2642 . 7475) (COMPAREDIRECTORIES.INFOS 7477 . 10351) ( +COMPAREDIRECTORIES.CANDIDATES 10353 . 13738) (CDENTRIES.SELECT 13740 . 18515) ( +COMPAREDIRECTORIES.INFOS.TYPE 18517 . 19423) (MATCHNAME 19425 . 20105) (CD.INSURECDVALUE 20107 . 21721 +) (CD.UPDATEWIDTHS 21723 . 22187)) (22190 31859 (CDFILES 22200 . 27953) (CDFILES.MATCH 27955 . 29580) +(CDFILES.PATS 29582 . 31857)) (31860 49681 (CDPRINT 31870 . 34387) (CDPRINT.HEADER 34389 . 35286) ( +CDPRINT.LINE 35288 . 38520) (CDPRINT.MAXWIDTHS 38522 . 42637) (CDPRINT.COLHEADERS 42639 . 43924) ( +CDPRINT.COLUMNS 43926 . 49046) (CDTEDIT 49048 . 49679)) (49682 58051 (CDMAP 49692 . 51124) (CDENTRY +51126 . 51435) (CDSUBSET 51437 . 52876) (CDMERGE 52878 . 56732) (CDMERGE.COMMON 56734 . 58049)) (58052 + 65590 (BINCOMP 58062 . 62351) (EOLTYPE 62353 . 64915) (EOLTYPE.SHOW 64917 . 65588)) (66118 78645 ( +FIND-UNCOMPILED-FILES 66128 . 69771) (FIND-UNSOURCED-FILES 69773 . 72157) (FIND-SOURCE-FILES 72159 . +73897) (FIND-COMPILED-FILES 73899 . 75776) (FIND-UNLOADED-FILES 75778 . 76631) (FIND-LOADED-FILES +76633 . 77061) (FIND-MULTICOMPILED-FILES 77063 . 78643)) (78646 87077 (CREATED-AS 78656 . 83453) ( +SOURCE-FOR-COMPILED-P 83455 . 86382) (COMPILE-SOURCE-DATE-DIFF 86384 . 87075)) (87078 97384 ( +FIX-DIRECTORY-DATES 87088 . 90081) (FIX-EQUIV-DATES 90083 . 91608) (COPY-COMPARED-FILES 91610 . 93431) + (COPY-MISSING-FILES 93433 . 95590) (COMPILED-ON-SAME-SOURCE 95592 . 97382)) (97578 105311 (CDBROWSER +97588 . 101515) (CDBROWSER.STRINGS 101517 . 105309)) (105473 107209 (CD.TABLEITEM 105483 . 105703) ( +CD.TABLEITEM.PRINTFN 105705 . 105904) (CD.TABLEITEM.COPYFN 105906 . 106964) ( +CDTABLEBROWSER.HEADING.REPAINTFN 106966 . 107207)) (107210 127865 (CDTABLEBROWSER.WHENSELECTEDFN +107220 . 107688) (CD.COMMANDSELECTEDFN 107690 . 112791) (CD-MENUFN 112793 . 117104) (CD-COMPARE-FILES +117106 . 120458) (CDBROWSER-COPY 120460 . 124129) (CDBROWSER-DELETE-FILE 124131 . 127344) (CD-SWAPDIRS + 127346 . 127863))))) STOP diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM index 558cb081c..c2f1db4b6 100644 Binary files a/lispusers/COMPAREDIRECTORIES.LCOM and b/lispusers/COMPAREDIRECTORIES.LCOM differ diff --git a/lispusers/GITFNS b/lispusers/GITFNS index bd379b57b..1a38c6e75 100644 --- a/lispusers/GITFNS +++ b/lispusers/GITFNS @@ -1,11 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 9-Aug-2022 09:35:32" {DSK}larry>medley>lispusers>GITFNS.;5 115355 +(FILECREATED "11-Aug-2022 17:54:59"  +{DSK}kaplan>local>medley3.5>working-medley>lispusers>GITFNS.;444 115395 - :CHANGES-TO (VARS GITFNSCOMS) - (FNS GIT-MAKE-PROJECT GIT-INIT GIT-INIT-MEDLEY) + :CHANGES-TO (FNS GIT-MAKE-PROJECT GIT-INIT) + (VARS GITFNSCOMS) - :PREVIOUS-DATE "25-Jul-2022 15:14:26" {DSK}larry>medley>lispusers>GITFNS.;1) + :PREVIOUS-DATE "25-Jul-2022 15:14:26" +{DSK}kaplan>Local>medley3.5>release-medley>lispusers>GITFNS.;1) (PRETTYCOMPRINT GITFNSCOMS) @@ -161,7 +163,7 @@ (GIT-MAKE-PROJECT [LAMBDA (PROJECTNAME PROJECTPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS) - (* ; "Edited 8-Aug-2022 22:03 by lmm") + (* ; "Edited 11-Aug-2022 17:54 by rmk") (* ; "Edited 13-Jul-2022 13:47 by rmk") (* ; "Edited 6-Jul-2022 19:34 by rmk") (* ; "Edited 17-May-2022 17:08 by rmk") @@ -2158,31 +2160,31 @@ (PUTPROPS GITFNS FILETYPE :TCOMPL) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3965 19213 (GIT-CLONEP 3975 . 5238) (GIT-INIT 5240 . 5667) (GIT-MAKE-PROJECT 5669 . -14054) (GIT-GET-PROJECT 14056 . 15981) (GIT-PROJECT-PATH 15983 . 17027) (FIND-ANCESTOR-DIRECTORY 17029 - . 17378) (GIT-FIND-CLONE 17380 . 18461) (GIT-MAINBRANCH 18463 . 18858) (GIT-MAINBRANCH? 18860 . 19211 -)) (25594 28382 (ALLSUBDIRS 25604 . 26890) (MEDLEYSUBDIRS 26892 . 27585) (GITSUBDIRS 27587 . 28380)) ( -28383 33173 (TOGIT 28393 . 29799) (FROMGIT 29801 . 30782) (GIT-DELETE-FILE 30784 . 31630) ( -MYMEDLEY-DELETE-FILES 31632 . 33171)) (33174 35706 (MYMEDLEYSUBDIR 33184 . 33640) (GITSUBDIR 33642 . -34085) (STRIPDIR 34087 . 34458) (STRIPHOST 34460 . 34700) (STRIPNAME 34702 . 35455) (STRIPWHERE 35457 - . 35704)) (35707 37609 (GFILE4MFILE 35717 . 36080) (MFILE4GFILE 36082 . 36651) (GIT-REPO-FILENAME -36653 . 37607)) (37658 47480 (GIT-COMMIT 37668 . 38494) (GIT-PUSH 38496 . 39140) (GIT-PULL 39142 . -39754) (GIT-APPROVAL 39756 . 40105) (GIT-GET-FILE 40107 . 42072) (GIT-FILE-EXISTS? 42074 . 42348) ( -GIT-REMOTE-UPDATE 42350 . 43074) (GIT-REMOTE-ADD 43076 . 43383) (GIT-FILE-DATE 43385 . 44316) ( -GIT-FILE-HISTORY 44318 . 46252) (GIT-PRINT-FILE-HISTORY 46254 . 47304) (GIT-FETCH 47306 . 47478)) ( -47510 58242 (GIT-BRANCH-DIFF 47520 . 54304) (GIT-COMMIT-DIFFS 54306 . 54859) (GIT-BRANCH-RELATIONS -54861 . 58240)) (58287 69089 (GIT-BRANCH-NUM 58297 . 58870) (GIT-CHECKOUT 58872 . 59931) ( -GIT-WHICH-BRANCH 59933 . 60231) (GIT-MAKE-BRANCH 60233 . 62446) (GIT-BRANCHES 62448 . 64421) ( -GIT-BRANCH-EXISTS? 64423 . 65127) (GIT-PICK-BRANCH 65129 . 65457) (GIT-PRC-MENU 65459 . 67207) ( -GIT-PULL-REQUESTS 67209 . 68475) (GIT-SHORT-BRANCH-NAME 68477 . 68768) (GIT-LONG-NAME 68770 . 69087)) -(69119 72454 (GIT-MY-CURRENT-BRANCH 69129 . 69499) (GIT-MY-BRANCHP 69501 . 70006) (GIT-MY-NEXT-BRANCH -70008 . 70502) (GIT-MY-BRANCHES 70504 . 72452)) (72500 76452 (GIT-ADD-WORKTREE 72510 . 73994) ( -GIT-REMOVE-WORKTREE 73996 . 74926) (GIT-LIST-WORKTREES 74928 . 75732) (WORKTREEDIR 75734 . 76450)) ( -76500 106701 (GIT-GET-DIFFERENT-FILES 76510 . 82335) (GIT-BRANCHES-COMPARE-DIRECTORIES 82337 . 88318) -(GIT-WORKING-COMPARE-DIRECTORIES 88320 . 93146) (GIT-COMPARE-WORKTREE 93148 . 97126) (GITCDOBJBUTTONFN - 97128 . 101618) (GIT-CD-LABELFN 101620 . 102702) (GIT-CD-MENUFN 102704 . 104911) ( -GIT-WORKING-COMPARE-FILES 104913 . 105533) (GIT-BRANCHES-COMPARE-FILES 105535 . 106699)) (106771 -115288 (CDGITDIR 106781 . 107341) (GIT-COMMAND 107343 . 108901) (GITORIGIN 108903 . 109600) ( -GIT-INITIALS 109602 . 109906) (GIT-COMMAND-TO-FILE 109908 . 113397) (PROCESS-COMMAND 113399 . 114012) -(GIT-RESULT-TO-LINES 114014 . 114621) (STRIPLOCAL 114623 . 115286))))) + (FILEMAP (NIL (4005 19253 (GIT-CLONEP 4015 . 5278) (GIT-INIT 5280 . 5707) (GIT-MAKE-PROJECT 5709 . +14094) (GIT-GET-PROJECT 14096 . 16021) (GIT-PROJECT-PATH 16023 . 17067) (FIND-ANCESTOR-DIRECTORY 17069 + . 17418) (GIT-FIND-CLONE 17420 . 18501) (GIT-MAINBRANCH 18503 . 18898) (GIT-MAINBRANCH? 18900 . 19251 +)) (25634 28422 (ALLSUBDIRS 25644 . 26930) (MEDLEYSUBDIRS 26932 . 27625) (GITSUBDIRS 27627 . 28420)) ( +28423 33213 (TOGIT 28433 . 29839) (FROMGIT 29841 . 30822) (GIT-DELETE-FILE 30824 . 31670) ( +MYMEDLEY-DELETE-FILES 31672 . 33211)) (33214 35746 (MYMEDLEYSUBDIR 33224 . 33680) (GITSUBDIR 33682 . +34125) (STRIPDIR 34127 . 34498) (STRIPHOST 34500 . 34740) (STRIPNAME 34742 . 35495) (STRIPWHERE 35497 + . 35744)) (35747 37649 (GFILE4MFILE 35757 . 36120) (MFILE4GFILE 36122 . 36691) (GIT-REPO-FILENAME +36693 . 37647)) (37698 47520 (GIT-COMMIT 37708 . 38534) (GIT-PUSH 38536 . 39180) (GIT-PULL 39182 . +39794) (GIT-APPROVAL 39796 . 40145) (GIT-GET-FILE 40147 . 42112) (GIT-FILE-EXISTS? 42114 . 42388) ( +GIT-REMOTE-UPDATE 42390 . 43114) (GIT-REMOTE-ADD 43116 . 43423) (GIT-FILE-DATE 43425 . 44356) ( +GIT-FILE-HISTORY 44358 . 46292) (GIT-PRINT-FILE-HISTORY 46294 . 47344) (GIT-FETCH 47346 . 47518)) ( +47550 58282 (GIT-BRANCH-DIFF 47560 . 54344) (GIT-COMMIT-DIFFS 54346 . 54899) (GIT-BRANCH-RELATIONS +54901 . 58280)) (58327 69129 (GIT-BRANCH-NUM 58337 . 58910) (GIT-CHECKOUT 58912 . 59971) ( +GIT-WHICH-BRANCH 59973 . 60271) (GIT-MAKE-BRANCH 60273 . 62486) (GIT-BRANCHES 62488 . 64461) ( +GIT-BRANCH-EXISTS? 64463 . 65167) (GIT-PICK-BRANCH 65169 . 65497) (GIT-PRC-MENU 65499 . 67247) ( +GIT-PULL-REQUESTS 67249 . 68515) (GIT-SHORT-BRANCH-NAME 68517 . 68808) (GIT-LONG-NAME 68810 . 69127)) +(69159 72494 (GIT-MY-CURRENT-BRANCH 69169 . 69539) (GIT-MY-BRANCHP 69541 . 70046) (GIT-MY-NEXT-BRANCH +70048 . 70542) (GIT-MY-BRANCHES 70544 . 72492)) (72540 76492 (GIT-ADD-WORKTREE 72550 . 74034) ( +GIT-REMOVE-WORKTREE 74036 . 74966) (GIT-LIST-WORKTREES 74968 . 75772) (WORKTREEDIR 75774 . 76490)) ( +76540 106741 (GIT-GET-DIFFERENT-FILES 76550 . 82375) (GIT-BRANCHES-COMPARE-DIRECTORIES 82377 . 88358) +(GIT-WORKING-COMPARE-DIRECTORIES 88360 . 93186) (GIT-COMPARE-WORKTREE 93188 . 97166) (GITCDOBJBUTTONFN + 97168 . 101658) (GIT-CD-LABELFN 101660 . 102742) (GIT-CD-MENUFN 102744 . 104951) ( +GIT-WORKING-COMPARE-FILES 104953 . 105573) (GIT-BRANCHES-COMPARE-FILES 105575 . 106739)) (106811 +115328 (CDGITDIR 106821 . 107381) (GIT-COMMAND 107383 . 108941) (GITORIGIN 108943 . 109640) ( +GIT-INITIALS 109642 . 109946) (GIT-COMMAND-TO-FILE 109948 . 113437) (PROCESS-COMMAND 113439 . 114052) +(GIT-RESULT-TO-LINES 114054 . 114661) (STRIPLOCAL 114663 . 115326))))) STOP diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM index cef0ccb77..d94fa3620 100644 Binary files a/lispusers/GITFNS.LCOM and b/lispusers/GITFNS.LCOM differ diff --git a/sources/INSPECT b/sources/INSPECT index 22ef397e7..aab054927 100644 --- a/sources/INSPECT +++ b/sources/INSPECT @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Oct-2021 14:04:22"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.;11 119118 +(FILECREATED " 9-Aug-2022 08:56:54"  +{DSK}kaplan>local>medley3.5>working-medley>sources>INSPECT.;12 119048 - changes to%: (FNS \TEDIT.INSPECTCODE) + :CHANGES-TO (FNS INSPECT/DATATYPE) - previous date%: "10-Jul-2021 20:31:23" -{DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.;10) + :PREVIOUS-DATE "11-Oct-2021 14:04:22" +{DSK}kaplan>local>medley3.5>working-medley>sources>INSPECT.;11) (* ; " @@ -1160,10 +1160,11 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero NIL]) (INSPECT/DATATYPE - [LAMBDA (DATUM TYPE WHERE) (* ; "Edited 1-Dec-96 20:15 by rmk:") - (* ; "Edited 7-Aug-87 10:21 by jop") + [LAMBDA (DATUM TYPE WHERE) (* ; "Edited 9-Aug-2022 08:56 by rmk") + (* ; "Edited 1-Dec-96 20:15 by rmk:") + (* ; "Edited 7-Aug-87 10:21 by jop") - (* ;; "creates an inspector window for datatype or record instance DATUM") + (* ;; "creates an inspector window for datatype or record instance DATUM") (LET (SYSREC DEC) (COND @@ -1174,31 +1175,29 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero ((SETQ DEC (FINDSYSRECDECL DATUM)) (SETQ SYSREC T))) (COND - (DEC (* ; - "The fetchfn and storefn would be more attractive if we had lexical closures") - (INSPECTW.CREATE DATUM (INSPECTABLEFIELDNAMES DEC (NULL INSPECTALLFIELDSFLG) - ) + (DEC (* ; + "The fetchfn and storefn would be more attractive if we had lexical closures") + (INSPECTW.CREATE DATUM (INSPECTABLEFIELDNAMES DEC (NULL INSPECTALLFIELDSFLG)) `[LAMBDA (INSTANCE FIELD) (RECORDACCESS FIELD INSTANCE ',DEC] [if SYSREC then `[LAMBDA (INSTANCE FIELD NEWVALUE) - (AND (CONFIRM-SET) - (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE] + (AND (CONFIRM-SET) + (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE] else `(LAMBDA (INSTANCE FIELD NEWVALUE) - (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE] + (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE] NIL NIL (if (EQ (CAR DEC) - 'BLOCKRECORD) + 'BLOCKRECORD) then + (* ;; + "To this by hand to avoid being fooled by invalid lisp pointers") - (* ;; - "To this by hand to avoid being fooled by invalid lisp pointers") - - (CL:FORMAT NIL "<~a @ ~o,~o>" TYPE (\HILOC DATUM) - (\LOLOC DATUM))) - NIL WHERE)) + (CL:FORMAT NIL "<~a @ ~o,~o>" TYPE (\HILOC DATUM) + (\LOLOC DATUM))) + NIL NIL WHERE)) ([SETQ DEC (fetch DTDDESCRS of (\GETDTD (NTYPX DATUM] - (* ; - "No user-level declaration, but we can at least fetch raw fields out of it") + (* ; + "No user-level declaration, but we can at least fetch raw fields out of it") (INSPECTW.CREATE DATUM (for I to (LENGTH DEC) collect I) `[LAMBDA (FIELD INSTANCE) (\INSPECT.DATATYPE.RAW.FETCH FIELD INSTANCE ',DEC] @@ -1532,22 +1531,19 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero (DECLARE%: EVAL@COMPILE -(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO - [ARGS (LET ((PROFILE (CAR ARGS)) - (FORM (CADR ARGS))) - `(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE (LIST 'QUOTE ,PROFILE) - ,FORM]) +(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO [ARGS (LET ((PROFILE (CAR ARGS)) + (FORM (CADR ARGS))) + `(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE + (LIST 'QUOTE + ,PROFILE) + ,FORM]) (PUTPROPS WITH-INSPECTOR-ENV MACRO [ARGS (LET ((PROFILE (CAR ARGS)) - (FORMS (CDR ARGS))) - `(XCL:WITH-PROFILE ,PROFILE - (LET ((*PRINT-LEVEL* (CAR - INSPECTPRINTLEVEL - )) - (*PRINT-LENGTH* (CDR - INSPECTPRINTLEVEL - ))) - ,@FORMS]) + (FORMS (CDR ARGS))) + `(XCL:WITH-PROFILE ,PROFILE + (LET ((*PRINT-LEVEL* (CAR INSPECTPRINTLEVEL)) + (*PRINT-LENGTH* (CDR INSPECTPRINTLEVEL))) + ,@FORMS]) ) @@ -2147,40 +2143,40 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero (PUTPROPS INSPECT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991 1993 1995 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6986 42714 (INSPECTW.CREATE 6996 . 11751) (INSPECTW.REPAINTFN 11753 . 17289) ( -INSPECTW.REDISPLAY 17291 . 26163) (\INSPECTW.VALUE.MARGIN 26165 . 26568) (INSPECTW.REPLACE 26570 . -27278) (INSPECTW.SELECTITEM 27280 . 28270) (\INSPECTW.REDISPLAYPROP 28272 . 30702) (INSPECTW.FETCH -30704 . 31127) (INSPECTW.PROPERTIES 31129 . 31770) (DECODE.WINDOW.ARG 31772 . 33500) ( -DEFAULT.INSPECTW.PROPCOMMANDFN 33502 . 35520) (DEFAULT.INSPECTW.VALUECOMMANDFN 35522 . 36780) ( -DEFAULT.INSPECTW.TITLECOMMANDFN 36782 . 38472) (\SELITEM.FROM.PROPERTY 38474 . 38916) ( -\INSPECT.COMPUTE.TITLE 38918 . 40044) (LEVELEDFORM 40046 . 40765) (MAKEWITHINREGION 40767 . 42712)) ( -42715 60016 (ITEMW.REPAINTFN 42725 . 43945) (\ITEM.WINDOW.BUTTON.HANDLER 43947 . 44362) ( -\ITEM.WINDOW.SELECTION.HANDLER 44364 . 47031) (\INSPECTW.COMMAND.HANDLER 47033 . 51034) ( -ITEM.WINDOW.SET.STACK.ARG 51036 . 53240) (REPLACESTKARG 53242 . 54341) (IN/ITEM? 54343 . 55225) ( -\ITEMW.DESELECTITEM 55227 . 55491) (\ITEMW.SELECTITEM 55493 . 55755) (\ITEMW.CLEARSELECTION 55757 . -56112) (\ITEMW.FLIPITEM 56114 . 56587) (PRINTANDBOX 56589 . 59098) (PRINTATBOX 59100 . 59617) ( -ITEMOFPROPERTYVALUE 59619 . 60014)) (60017 63622 (\ITEM.WINDOW.COPY.HANDLER 60027 . 61748) ( -\ITEMW.FLIPCOPY 61750 . 62209) (BKSYSBUF.GENERAL 62211 . 63620)) (64014 86489 (INSPECT 64024 . 68287) -(\APPLYINSPECTMACRO 68289 . 69271) (INSPECT/BITMAP 69273 . 70308) (INSPECT/DATATYPE 70310 . 73553) ( -INSPECTABLEFIELDNAMES 73555 . 74076) (REMOVEDUPS 74078 . 74283) (INSPECT/ARRAY 74285 . 75322) ( -INSPECT/TOP/LEVEL/LIST 75324 . 76283) (INSPECT/PROPLIST 76285 . 77260) (NONSYSPROPNAMES 77262 . 77558) - (INSPECT/LISTP 77560 . 77882) (ALISTP 77884 . 78093) (PROPLISTP 78095 . 78735) (INSPECT/ALIST 78737 - . 79092) (ASSOCGET 79094 . 79305) (/ASSOCPUT 79307 . 79572) (INSPECT/PLIST 79574 . 79937) ( -INSPECT/TYPERECORD 79939 . 80179) (INSPECT/AS/RECORD 80181 . 81305) (SELECT.LIST.INSPECTOR 81307 . -83352) (STANDARDEDITE 83354 . 83637) (NTHTOPLEVELELT 83639 . 83955) (SETNTHTOPLEVELELT 83957 . 84717) -(DEDITE 84719 . 84926) (FINDRECDECL 84928 . 85511) (FINDSYSRECDECL 85513 . 85914) ( -MAKE-INSPECTOR-PROFILE 85916 . 86301) (CONFIRM-SET 86303 . 86487)) (88383 96472 (INSPECT/ATOM 88393 . -92373) (SELECT.ATOM.ASPECT 92375 . 93519) (INSPECT/AS/FUNCTION 93521 . 95807) (SELECT.FNS.EDITOR 95809 - . 96470)) (96513 101932 (INSPECTCODE 96523 . 97669) (\TEDIT.INSPECTCODE 97671 . 99649) ( -\INSPECT/CODE/RESHAPEFN 99651 . 101190) (\INSPECT/CODE/REPAINTFN 101192 . 101930)) (101970 103455 ( -INSPECT/HARRAYP 101980 . 102607) (HARRAYKEYS 102609 . 102988) (INSPECTW.GETHASH 102990 . 103217) ( -INSPECTW.PUTHASH 103219 . 103453)) (103504 109713 (RDTBL\NONOTHERCODES 103514 . 104534) (GETSYNTAXPROP - 104536 . 106034) (SETSYNTAXPROP 106036 . 107763) (GETTTBLPROP 107765 . 108683) (SETTTBLPROP 108685 . -109711)) (110192 118575 (INSPECT/AS/BLOCKRECORD 110202 . 111085) (INSPECT/TYPELESS 111087 . 112333) ( -LIST-ALL-BLOCKRECORDS 112335 . 112610) (INSPECT/HUNK 112612 . 115218) (\INSPECT.DATATYPE.RAW.FETCH -115220 . 115546) (\INSPECT.FETCH.8 115548 . 115697) (\INSPECT.FETCH.32 115699 . 115870) ( -\INSPECT.FETCH.CHAR 115872 . 116035) (\INSPECT.FETCH.FATCHAR 116037 . 116199) (\INSPECT.FETCH.PTR -116201 . 116372) (\INSPECT.STORE.8 116374 . 116680) (\INSPECT.STORE.16 116682 . 116982) ( -\INSPECT.STORE.32 116984 . 117419) (\INSPECT.STORE.CHAR 117421 . 117747) (\INSPECT.STORE.FATCHAR -117749 . 118071) (\INSPECT.STORE.PTR 118073 . 118420) (INSPECT/MAKE/CCODEP 118422 . 118573))))) + (FILEMAP (NIL (6989 42717 (INSPECTW.CREATE 6999 . 11754) (INSPECTW.REPAINTFN 11756 . 17292) ( +INSPECTW.REDISPLAY 17294 . 26166) (\INSPECTW.VALUE.MARGIN 26168 . 26571) (INSPECTW.REPLACE 26573 . +27281) (INSPECTW.SELECTITEM 27283 . 28273) (\INSPECTW.REDISPLAYPROP 28275 . 30705) (INSPECTW.FETCH +30707 . 31130) (INSPECTW.PROPERTIES 31132 . 31773) (DECODE.WINDOW.ARG 31775 . 33503) ( +DEFAULT.INSPECTW.PROPCOMMANDFN 33505 . 35523) (DEFAULT.INSPECTW.VALUECOMMANDFN 35525 . 36783) ( +DEFAULT.INSPECTW.TITLECOMMANDFN 36785 . 38475) (\SELITEM.FROM.PROPERTY 38477 . 38919) ( +\INSPECT.COMPUTE.TITLE 38921 . 40047) (LEVELEDFORM 40049 . 40768) (MAKEWITHINREGION 40770 . 42715)) ( +42718 60019 (ITEMW.REPAINTFN 42728 . 43948) (\ITEM.WINDOW.BUTTON.HANDLER 43950 . 44365) ( +\ITEM.WINDOW.SELECTION.HANDLER 44367 . 47034) (\INSPECTW.COMMAND.HANDLER 47036 . 51037) ( +ITEM.WINDOW.SET.STACK.ARG 51039 . 53243) (REPLACESTKARG 53245 . 54344) (IN/ITEM? 54346 . 55228) ( +\ITEMW.DESELECTITEM 55230 . 55494) (\ITEMW.SELECTITEM 55496 . 55758) (\ITEMW.CLEARSELECTION 55760 . +56115) (\ITEMW.FLIPITEM 56117 . 56590) (PRINTANDBOX 56592 . 59101) (PRINTATBOX 59103 . 59620) ( +ITEMOFPROPERTYVALUE 59622 . 60017)) (60020 63625 (\ITEM.WINDOW.COPY.HANDLER 60030 . 61751) ( +\ITEMW.FLIPCOPY 61753 . 62212) (BKSYSBUF.GENERAL 62214 . 63623)) (64017 86547 (INSPECT 64027 . 68290) +(\APPLYINSPECTMACRO 68292 . 69274) (INSPECT/BITMAP 69276 . 70311) (INSPECT/DATATYPE 70313 . 73611) ( +INSPECTABLEFIELDNAMES 73613 . 74134) (REMOVEDUPS 74136 . 74341) (INSPECT/ARRAY 74343 . 75380) ( +INSPECT/TOP/LEVEL/LIST 75382 . 76341) (INSPECT/PROPLIST 76343 . 77318) (NONSYSPROPNAMES 77320 . 77616) + (INSPECT/LISTP 77618 . 77940) (ALISTP 77942 . 78151) (PROPLISTP 78153 . 78793) (INSPECT/ALIST 78795 + . 79150) (ASSOCGET 79152 . 79363) (/ASSOCPUT 79365 . 79630) (INSPECT/PLIST 79632 . 79995) ( +INSPECT/TYPERECORD 79997 . 80237) (INSPECT/AS/RECORD 80239 . 81363) (SELECT.LIST.INSPECTOR 81365 . +83410) (STANDARDEDITE 83412 . 83695) (NTHTOPLEVELELT 83697 . 84013) (SETNTHTOPLEVELELT 84015 . 84775) +(DEDITE 84777 . 84984) (FINDRECDECL 84986 . 85569) (FINDSYSRECDECL 85571 . 85972) ( +MAKE-INSPECTOR-PROFILE 85974 . 86359) (CONFIRM-SET 86361 . 86545)) (88313 96402 (INSPECT/ATOM 88323 . +92303) (SELECT.ATOM.ASPECT 92305 . 93449) (INSPECT/AS/FUNCTION 93451 . 95737) (SELECT.FNS.EDITOR 95739 + . 96400)) (96443 101862 (INSPECTCODE 96453 . 97599) (\TEDIT.INSPECTCODE 97601 . 99579) ( +\INSPECT/CODE/RESHAPEFN 99581 . 101120) (\INSPECT/CODE/REPAINTFN 101122 . 101860)) (101900 103385 ( +INSPECT/HARRAYP 101910 . 102537) (HARRAYKEYS 102539 . 102918) (INSPECTW.GETHASH 102920 . 103147) ( +INSPECTW.PUTHASH 103149 . 103383)) (103434 109643 (RDTBL\NONOTHERCODES 103444 . 104464) (GETSYNTAXPROP + 104466 . 105964) (SETSYNTAXPROP 105966 . 107693) (GETTTBLPROP 107695 . 108613) (SETTTBLPROP 108615 . +109641)) (110122 118505 (INSPECT/AS/BLOCKRECORD 110132 . 111015) (INSPECT/TYPELESS 111017 . 112263) ( +LIST-ALL-BLOCKRECORDS 112265 . 112540) (INSPECT/HUNK 112542 . 115148) (\INSPECT.DATATYPE.RAW.FETCH +115150 . 115476) (\INSPECT.FETCH.8 115478 . 115627) (\INSPECT.FETCH.32 115629 . 115800) ( +\INSPECT.FETCH.CHAR 115802 . 115965) (\INSPECT.FETCH.FATCHAR 115967 . 116129) (\INSPECT.FETCH.PTR +116131 . 116302) (\INSPECT.STORE.8 116304 . 116610) (\INSPECT.STORE.16 116612 . 116912) ( +\INSPECT.STORE.32 116914 . 117349) (\INSPECT.STORE.CHAR 117351 . 117677) (\INSPECT.STORE.FATCHAR +117679 . 118001) (\INSPECT.STORE.PTR 118003 . 118350) (INSPECT/MAKE/CCODEP 118352 . 118503))))) STOP diff --git a/sources/INSPECT.LCOM b/sources/INSPECT.LCOM index 0207bbf86..009dd871e 100644 Binary files a/sources/INSPECT.LCOM and b/sources/INSPECT.LCOM differ