github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 13:23:08 +00:00
Code Issues Projects Releases Wiki Activity

Fix issue #1719. (#1726)

Browse Source 
MANAGER called PF with function NAME in a variable. BUT PF is NLAMBDA so
didn't eval its argument. Changed to use CL:APPLY*. Moved the process
function from a local LAMBDA in Manager.DO.COMMAND to a separate named
function. Tweaked prompt strings for the "CopyDef" and "Rename All" item
menu commands.
This commit is contained in:
Matt Heffron
2024-05-24 20:42:54 -07:00
committed by GitHub
parent eb7d34784b 1c2f9bc395
commit eda9863432
4 changed files with 356 additions and 409 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
sources/EDITINTERFACE
View File

@@ -1,16 +1,17 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Jun-2022 13:32:08" 
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;45 47672
(FILECREATED "21-May-2024 22:10:45" {DSK}<home>matt>Interlisp>medley>sources>EDITINTERFACE.;2 47745
:CHANGES-TO (FNS FIXEDITDATE)
:EDIT-BY "mth"
:PREVIOUS-DATE "13-May-2022 08:16:23"
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;44)
:CHANGES-TO (FNS EDITLOADFNS?)
:PREVIOUS-DATE "22-Jun-2022 13:32:08" {DSK}<home>matt>Interlisp>medley>sources>EDITINTERFACE.;1
)
(* ; "
Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
Copyright (c) 1986-1988, 1990-1991, 2024 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT EDITINTERFACECOMS)
@@ -374,12 +375,18 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(CDR X])
(EDITLOADFNS?
[LAMBDA (FN STR ASKFLG FILES) (* lmm "20-Nov-86 21:23")
(* ;; "Value is name of file from which function or functions can be loaded. If STR is non-NIL, user is asked to approve, and STR used in the message. EDITLOADFNS? is also used by prettyprint")
[LAMBDA (FN STR ASKFLG FILES) (* ; "Edited 21-May-2024 18:18 by mth")
(* lmm "20-Nov-86 21:23")
(* ;; "Value is name of file from which function or functions can be loaded. If STR is non-NIL, user is asked to approve, and STR used in the message. EDITLOADFNS? is also used by prettyprint")
(AND FN FILEPKGFLG (PROG ((LST (WHEREIS FN 'FNS FILES))
FILE DATES FD)
(OR (COND
((EQ FILES T) (* ;; "if FILES = T, means consult data base. if user has removed a function from one of those files, as evidenced by the fact that editloafns? was called with files=T, then dont offer that file.")
((EQ FILES T)
(* ;; "if FILES = T, means consult data base. if user has removed a function from one of those files, as evidenced by the fact that editloafns? was called with files=T, then dont offer that file.")
(SETQ LST (LDIFFERENCE LST FILELST)))
(T LST))
(RETURN))
@@ -394,8 +401,10 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(RETURN)))
(T (CAR LST]
[SETQ DATES (LISTP (GETPROP FILE 'FILEDATES]
(* ;;
 "only look at file in FILEDATES if the file has been LOADed or LOADFROMd")
(* ;;
 "only look at file in FILEDATES if the file has been LOADed or LOADFROMd")
(SETQ FILE (OR (AND DATES (FMEMB (CDAR (GETPROP FILE 'FILE))
'(LOADFNS T))
(INFILEP (CDAR DATES)))
@@ -412,15 +421,16 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 "found a goood version of file on a different name. smash name")
(/RPLACD (CAR DATES)
FILE))
(T (CL:FORMAT *TERMINAL-IO* "*** Note: loading definition from ~A dated ~A~&while file ~A dated ~A is the version currently loaded."
(T (CL:FORMAT *TERMINAL-IO* "*** Note: loading definition from ~A dated ~A~&while file ~A dated ~A is the version currently loaded."
FILE FD (CDAR DATES)
(CAAR DATES]
(COND
((STREQUAL STR ""))
((NULL ASKFLG)
(if STR
then (EXEC-FORMAT "~&~A~A" STR FILE)
else (EXEC-FORMAT "~&Loading definition of ~S from ~A." FN FILE)))
then (EXEC-FORMAT "~&~A~A~&" STR FILE)
else (EXEC-FORMAT "~&Loading definition of ~S from ~A.~&" FN FILE)
))
((NEQ (ASKUSER DWIMWAIT 'Y (LIST FN STR FILE)
NIL T)
'Y)
@@ -942,13 +952,13 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(ADDTOVAR LAMA )
)
(PUTPROPS EDITINTERFACE COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991))
(PUTPROPS EDITINTERFACE COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2024))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4089 10388 (ED 4089 . 10388)) (10390 14366 (INSTALL-PROTOTYPE-DEFN 10390 . 14366)) (
14367 31150 (EDITDEF.FNS 14377 . 15713) (EDITF 15715 . 16595) (EDITFB 16597 . 17445) (EDITFNS 17447 .
18767) (EDITLOADFNS? 18769 . 22569) (EDITMODE 22571 . 24581) (EDITP 24583 . 25094) (EDITV 25096 .
25735) (DC 25737 . 26418) (DF 26420 . 27462) (DP 27464 . 28548) (DV 28550 . 29122) (EDITPROP 29124 .
29343) (EF 29345 . 29674) (EP 29676 . 29859) (EV 29861 . 30040) (EDITE 30042 . 30920) (EDITL 30922 .
31148)) (31500 46817 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 40341) (EDITDATE? 40343 . 43371
) (EDITDATE 43373 . 44820) (SETINITIALS 44822 . 46815)))))
(FILEMAP (NIL (4081 10380 (ED 4081 . 10380)) (10382 14358 (INSTALL-PROTOTYPE-DEFN 10382 . 14358)) (
14359 31218 (EDITDEF.FNS 14369 . 15705) (EDITF 15707 . 16587) (EDITFB 16589 . 17437) (EDITFNS 17439 .
18759) (EDITLOADFNS? 18761 . 22637) (EDITMODE 22639 . 24649) (EDITP 24651 . 25162) (EDITV 25164 .
25803) (DC 25805 . 26486) (DF 26488 . 27530) (DP 27532 . 28616) (DV 28618 . 29190) (EDITPROP 29192 .
29411) (EF 29413 . 29742) (EP 29744 . 29927) (EV 29929 . 30108) (EDITE 30110 . 30988) (EDITL 30990 .
31216)) (31568 46885 (NEW/EDITDATE 31578 . 31800) (FIXEDITDATE 31802 . 40409) (EDITDATE? 40411 . 43439
) (EDITDATE 43441 . 44888) (SETINITIALS 44890 . 46883)))))
STOP

BIN
sources/EDITINTERFACE.LCOM
View File

Binary file not shown.