From ee57eabe217a7a06321b61099578ea402b379ccf Mon Sep 17 00:00:00 2001 From: Matt Heffron Date: Fri, 24 May 2024 21:28:15 -0700 Subject: [PATCH] In PRINT-ALL-DOCUMENTATION only one of two places was checked for the documentation string. (Also, MAKEFILE updated the LAMA variable in the CMLEXECCOMS.) --- sources/CMLEXEC | 67 ++++++++++++++++++++++++------------------- sources/CMLEXEC.LCOM | Bin 47349 -> 47501 bytes 2 files changed, 37 insertions(+), 30 deletions(-) diff --git a/sources/CMLEXEC b/sources/CMLEXEC index 58857f642..5c1ab20b9 100644 --- a/sources/CMLEXEC +++ b/sources/CMLEXEC @@ -1,15 +1,17 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Dec-2021 09:48:29" {DSK}kaplan>Local>medley3.5>my-medley>sources>CMLEXEC.;5 91886 +(FILECREATED "24-May-2024 20:54:49" {MEDLEY}CMLEXEC.;3 92134 - :CHANGES-TO (VARS CMLEXECCOMS) + :EDIT-BY "mth" - :PREVIOUS-DATE " 8-Oct-2021 10:51:35" -{DSK}kaplan>Local>medley3.5>my-medley>sources>CMLEXEC.;3) + :CHANGES-TO (FUNCTIONS PRINT-ALL-DOCUMENTATION) + (VARS CMLEXECCOMS) + + :PREVIOUS-DATE "20-May-2024 21:28:00" {MEDLEY}CMLEXEC.;2) (* ; " -Copyright (c) 1985-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. +Copyright (c) 1985-1988, 1990-1991, 1993, 2021, 2024 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT CMLEXECCOMS) @@ -58,9 +60,11 @@ Copyright (c) 1985-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (* ;; "Arrange to use the correct compiler") (PROP FILETYPE CMLEXEC) - (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DIR) - (NLAML) - (LAMA]) + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS + (ADDVARS (NLAMA DIR) + (NLAML) + (LAMA PROCESS-EXEC-ID PRINT-EVENT PRINT-HISTORY EXEC-PRIN1 EVENTS-INPUT + EVAL-INPUT EXEC-READ]) (FILESLOAD CMLUNDO PROFILE) @@ -422,12 +426,13 @@ Copyright (c) 1985-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. IT))) (CL:VALUES-LIST VALUES))) -(CL:DEFUN PRINT-ALL-DOCUMENTATION (NAME) +(CL:DEFUN PRINT-ALL-DOCUMENTATION (NAME) (* ; "Edited 24-May-2024 20:52 by mth") "Print all documentation strings for NAME (as symbol and string)." (LET ((FOUND NIL)) (CL:DOLIST (TYPE FILEPKGTYPES) (CL:WHEN (AND (CL:SYMBOLP TYPE) - (GET TYPE 'DEFINED-BY) + (OR (GET TYPE :DEFINED-BY) + (GET TYPE 'DEFINED-BY)) (HASH-TABLE-FOR-DOC-TYPE TYPE)) (SETQ FOUND (OR (PRINT-DOCUMENTATION NAME TYPE) FOUND)) @@ -1737,26 +1742,28 @@ Copyright (c) 1985-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (ADDTOVAR NLAML ) -(ADDTOVAR LAMA ) +(ADDTOVAR LAMA PROCESS-EXEC-ID PRINT-EVENT PRINT-HISTORY EXEC-PRIN1 EVENTS-INPUT EVAL-INPUT EXEC-READ) +) +(PUTPROPS CMLEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 1993 2021 2024) ) -(PUTPROPS CMLEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4002 4407 (XCL::EXEC-CLOSEFN 4002 . 4407)) (4409 4745 (XCL::EXEC-SHRINKFN 4409 . 4745)) - (4747 4987 (XCL::SETUP-EXEC-WINDOW 4747 . 4987)) (4989 5235 (XCL::EXEC-TITLE-FUNCTION 4989 . 5235)) ( -5237 8404 (FIX-FORM 5237 . 8404)) (8406 8526 (XCL::GET-PROCESS-PROFILE 8406 . 8526)) (8528 8809 ( -XCL::SAVE-CURRENT-EXEC-PROFILE 8528 . 8809)) (8811 9097 (XCL::SETF-GET-PROCESS-PROFILE 8811 . 9097)) ( -9099 9666 (XCL:SET-EXEC-TYPE 9099 . 9666)) (9668 9750 (XCL:SET-DEFAULT-EXEC-TYPE 9668 . 9750)) (9752 -10159 (XCL::ENTER-EXEC-FUNCTION 9752 . 10159)) (10234 16465 (DO-EVENT 10234 . 16465)) (16467 23064 ( -EXEC 16467 . 23064)) (23066 24317 (EXEC-EVAL 23066 . 24317)) (24319 25050 (PRINT-ALL-DOCUMENTATION -24319 . 25050)) (25052 25494 (PRINT-DOCUMENTATION 25052 . 25494)) (25577 26652 (ADD-EXEC 25577 . 26652 -)) (26654 30264 (EXEC-READ-LINE 26654 . 30264)) (30335 30821 (FIND-EXEC-COMMAND 30335 . 30821)) (30823 - 32709 (CIRCLAR-COPYER 30823 . 32709)) (32710 33664 (COPY-CIRCLE 32720 . 33662)) (33742 37047 ( -EXEC-READ 33752 . 36913) (DIR 36915 . 37045)) (39301 66435 (DO-APPLY-EVENT 39311 . 39873) ( -DO-HISTORY-SEARCH 39875 . 41332) (EVAL-INPUT 41334 . 46763) (EVENTS-INPUT 46765 . 48143) (EXEC-PRIN1 -48145 . 48321) (EXEC-VALUE-OF 48323 . 48662) (GET-NEXT-HISTORY-EVENT 48664 . 50159) ( -HISTORY-ADD-TO-SPELLING-LISTS 50161 . 51149) (HISTORY-NTH 51151 . 51901) (PRINT-HISTORY 51903 . 52524) - (FIND-HISTORY-EVENTS 52526 . 57587) (PRINT-EVENT 57589 . 61810) (PRINT-EVENT-PROMPT 61812 . 63016) ( -PROCESS-EXEC-ID 63018 . 63963) (SEARCH-FOR-EVENT-NUMBER 63965 . 64593) (\PICK.EVALQT 64595 . 65106) ( -LISPXREPRINT 65108 . 66433)) (67615 67714 (EXEC-PRINT 67615 . 67714)) (67716 67981 (EXEC-FORMAT 67716 - . 67981))))) + (FILEMAP (NIL (4032 4437 (XCL::EXEC-CLOSEFN 4032 . 4437)) (4439 4775 (XCL::EXEC-SHRINKFN 4439 . 4775)) + (4777 5017 (XCL::SETUP-EXEC-WINDOW 4777 . 5017)) (5019 5265 (XCL::EXEC-TITLE-FUNCTION 5019 . 5265)) ( +5267 8434 (FIX-FORM 5267 . 8434)) (8436 8556 (XCL::GET-PROCESS-PROFILE 8436 . 8556)) (8558 8839 ( +XCL::SAVE-CURRENT-EXEC-PROFILE 8558 . 8839)) (8841 9127 (XCL::SETF-GET-PROCESS-PROFILE 8841 . 9127)) ( +9129 9696 (XCL:SET-EXEC-TYPE 9129 . 9696)) (9698 9780 (XCL:SET-DEFAULT-EXEC-TYPE 9698 . 9780)) (9782 +10189 (XCL::ENTER-EXEC-FUNCTION 9782 . 10189)) (10264 16495 (DO-EVENT 10264 . 16495)) (16497 23094 ( +EXEC 16497 . 23094)) (23096 24347 (EXEC-EVAL 23096 . 24347)) (24349 25206 (PRINT-ALL-DOCUMENTATION +24349 . 25206)) (25208 25650 (PRINT-DOCUMENTATION 25208 . 25650)) (25652 25731 (VALUE-OF 25652 . 25731 +)) (25733 26808 (ADD-EXEC 25733 . 26808)) (26810 30420 (EXEC-READ-LINE 26810 . 30420)) (30422 30489 ( +EXEC-EVENT-ID-PROMPT 30422 . 30489)) (30491 30977 (FIND-EXEC-COMMAND 30491 . 30977)) (30979 32865 ( +CIRCLAR-COPYER 30979 . 32865)) (32866 33820 (COPY-CIRCLE 32876 . 33818)) (33898 37203 (EXEC-READ 33908 + . 37069) (DIR 37071 . 37201)) (39457 66591 (DO-APPLY-EVENT 39467 . 40029) (DO-HISTORY-SEARCH 40031 . +41488) (EVAL-INPUT 41490 . 46919) (EVENTS-INPUT 46921 . 48299) (EXEC-PRIN1 48301 . 48477) ( +EXEC-VALUE-OF 48479 . 48818) (GET-NEXT-HISTORY-EVENT 48820 . 50315) (HISTORY-ADD-TO-SPELLING-LISTS +50317 . 51305) (HISTORY-NTH 51307 . 52057) (PRINT-HISTORY 52059 . 52680) (FIND-HISTORY-EVENTS 52682 . +57743) (PRINT-EVENT 57745 . 61966) (PRINT-EVENT-PROMPT 61968 . 63172) (PROCESS-EXEC-ID 63174 . 64119) +(SEARCH-FOR-EVENT-NUMBER 64121 . 64749) (\PICK.EVALQT 64751 . 65262) (LISPXREPRINT 65264 . 66589)) ( +66723 67717 (CASE-EQUALP 66723 . 67717)) (67719 67769 (EXEC-EVENT-PROPS 67719 . 67769)) (67771 67870 ( +EXEC-PRINT 67771 . 67870)) (67872 68137 (EXEC-FORMAT 67872 . 68137))))) STOP diff --git a/sources/CMLEXEC.LCOM b/sources/CMLEXEC.LCOM index cac3ebca18193d30d6abbe03cf16a04b41c6337e..bd96b849d5b15b436eb48dcf743b2ce78f3cab27 100644 GIT binary patch delta 2473 zcmaJ@U2GIp6z$!n8!wxwX1pKLDF5#F~&Sv-Z)$EcWQ7X?RMM<1`!GQn&p`h+^@&4jr$QLYx z$PRIULS_>8X3hy2Lq^Vduuhw{V--r^X>c(CPi%+GT)ybwM$goj+z6(gbeH*!l|l;} zgUxJe-RNQx1_$l1FF{_C$XK>9j6enb?2g#ZwnEU;EH`LHn``o0si)lT^)HJ)LN#`7 z!=K*s?XCg-bZ>UG`|#vX-I4@^dJcLYq=Toa%yZ+#sF}JNUdK{_Wq6<%cwsrH^Yq!} zkJhmK*kX1e)XaVje2ZGwf`e-pFsnW^>#ptjQ9#ANHzzuvmfxKFoSE?w{M6Us9^A5G ziO}Mnj{YpP0y38)QP*VqwQl!{wo+_uX~Lfs@bgETu(rkhe(PyLMR$$rKo$B($ta!g zoxSwz`|hUgH$_tMiA_SAEZU`+wzT`AbBG)FJhTeC%1Zz5*HVM!uf*?~_HjY?C$nsY zuJv6WZ*2-_%7gMJtwb@4Y|uI3AQlDNK@JQ+lq{$aq3j(!@MKtlq>(anMv{{lvxvJl z^l!RaiK2lCn3R>Yg3vU=&hOpU)maw)5f6$@gA=!R-M#7s`2-JWcIKBsa~TE`)qwrB zH{JnJ6(q;9Agkv}pce+b$ZW~ov~Q;%%&;Tlw}d+^S=qC$IA^8bv(+!`Z`;w_FYcac z&P)^bb!Efod{1V2Su0l(g?>?(u7_k!+%EkmB(5mvH58iyDmH5(6X#6;DsnDk+Igc; zunM4H)NXqJQh}&Q|AoRvm4)+R&V=0#DI_UxJ_KAwtg?#)_VGmD8YjJ`bSZ7t0!VXo zC}fgmDuq0EI}Y>+>xmkMJVZd3i5kIG*jr&i(I9`Px}%fRJ|79o?y6V!Eb6a2L66u+ zm`Tw{S=j%$^~$IhGfw@5TC2KM^xgzPxbAOeAHFsz4zFUXkM#+i?D=Ew32WG2$GY0@ zmxWrGv!ZY2p6*76J6P}Qu_>xG4il9UNZR?4yk(mn$5iy1Dj0S;gZu#{rg5?7Ux_Ln zz#|32n^T}f==`%v82ig8pcE99G@8LWJuou`iX3Z&qxYPihvZ9fQIo|Jz2G( zdaAk!_X_R-plag)jUh*?Ixdhh(l)&Q4znvKUO|!&*Z)Rok?;d6SHppjHz_8tOZ5K7 zH3^%ozWGcP^n5;3Lff%=Q3#UN(RToPW4opXrnHBGaKsZ38mZTUkeCMu1tM#8Xk9A;Mttd+RPnR4 zI5T99mpvH0zopH5)XnJT_zB4bOgB)uWsBZK_ue7dtTG28?m)SwT>p9h0ZY9Y}OU(gs6<-r6sCcYVc5(V`^qi3cR7K6n^)^uTaosw38$(spXG z_H9xS7*4J@NRCQkRNxpW`2G{O0T`m@Gq^=tLiAlcvWJoyQ>u8*Y*OX~+tf`Lpnoz~Oc?PkV^X_iH{gX#sg zk~cxY;Py3l3Ui?GIPDX{0y*1s%^OcQce|tWZS!g$0$kh5Y{7K$EFiF(RN(j}hhad_ zPgeRGNPl1zZW;*;)Z;yINg%1~Z6L2aQcZpfe2j4)274OaxPJwA0xe%t7+l>Jb3yMQ z^<3*FGR>@T9&1~^f*N$5jeJKf!$?k)$l$B@ZIl(TbsL%UO9?q|DfM*iU={w1fZrYJ zs7-^;XWJg9$nXQJ$&(Mf6y%ZL-_r{`zm$l>bbLxTJ?x{as5+Lma&vV_$FwJ1R1dnA z+Laf&etcIZ4XRS}_GoQYAfk{HYW+PC0W3R%_Eoda1cqzz7{! zu#LD8gsMLB`pEXCb$RL!dV;R%8N0IU>Kmga(L3eh+z&naDi=Ef1Egk8)XDAHK~e9J z*G4Z>-;l$_A<80O7B^A%lV6KXLzVmVAW;K6;Sg39eSm)6R_M@d5!A-?mqfB4BG7Tm?ZCp#nyTEW(sQ;J8W#0?UDA zs`vl^UU9q1rNu{XW66iTdL@iZuWDmYaBlS$XS|1fO99U*6-V=|C(u*CDH1f@+R4e> zA}f5(NH>n=c!B(KEA;XJ>aar5ygCGmoX&;okF?%;k z#vvzng+rk?3c_J;xN3ReShTHI8bv0N6AjM9i7P(pDbjs1P08f+$+mkdn=-Y-ZDtO! z2gp|^cRS`2Gu&EirDv+?D!PlV<9x}vp6rDrJ-3ToeQ(X(nm)Q<;^p%J>OA4+qaxbW zN*evx5+0$7s-a)(oT*tx0??7S7Q#F^JHM_|g2EB}9xzRnWmy5xQk@`$p*L&Un2e0k zr-3L}#_;HQ$XZ&a-^j!*^8NgVh6olwg?wS8I8i)U#1Dv($pcuM=HKc0 LCK&Xm^_2fF5@cFE