Compare commits
5 Commits
rmk189--In
...
rmk184--Fi
| Author | SHA1 | Date | |
|---|---|---|---|
|
1131ebe1cc | ||
|
|
9fa7738e58 | ||
|
|
b69a50a1e0 | ||
|
|
1c877f35d8 | ||
|
|
35d4ebba5a |
3
.gitignore
vendored
3
.gitignore
vendored
@@ -49,9 +49,6 @@ internal/fonts/**
|
||||
# GITFNS deleted subdirectory
|
||||
deleted/**
|
||||
|
||||
# local font construction
|
||||
internal/fonts/**
|
||||
|
||||
#compiled code -- leave in for now
|
||||
|
||||
# *.lcom
|
||||
|
||||
@@ -1,15 +1,19 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "12-May-2026 15:33:42" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;5 19557
|
||||
(FILECREATED " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4 18684
|
||||
|
||||
:EDIT-BY "mth"
|
||||
|
||||
:CHANGES-TO (FNS DUMPDB)
|
||||
|
||||
:PREVIOUS-DATE "12-May-2026 12:45:18" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4
|
||||
:PREVIOUS-DATE "29-Apr-2026 17:43:56" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;2
|
||||
)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT DATABASEFNSCOMS)
|
||||
|
||||
(RPAQQ DATABASEFNSCOMS
|
||||
@@ -58,8 +62,7 @@
|
||||
(DEFINEQ
|
||||
|
||||
(DBFILE
|
||||
[LAMBDA (FILE ASKFLAG) (* ; "Edited 11-May-2026 14:35 by mth")
|
||||
(* ; "Edited 24-Oct-2021 16:50 by rmk:")
|
||||
[LAMBDA (FILE ASKFLAG) (* ; "Edited 24-Oct-2021 16:50 by rmk:")
|
||||
(* lmm "29-APR-81 20:27")
|
||||
|
||||
(* ;; "Finds a database file that corresponds to the contents of FILE. Looks in directory of FILE, and also in the directory that file originally came from, if it was copied. Returns NIL if no database file is found, else (fulldbfilename . filedates), where filedates identifies the name under which the file that the database corresponds to is currently known.")
|
||||
@@ -70,13 +73,13 @@
|
||||
[COND
|
||||
((NULL FILE)
|
||||
(SETQ FILE (INPUT)))
|
||||
((MEMB (U-CASE (FILENAMEFIELD FILE 'EXTENSION))
|
||||
((MEMB (FILENAMEFIELD FILE 'EXTENSION)
|
||||
*COMPILED-EXTENSIONS*) (* ;
|
||||
"Map compiled file into symbolic name")
|
||||
"Map compiled file into symbolic name")
|
||||
(SETQ FILE (PACKFILENAME 'EXTENSION NIL 'VERSION NIL 'BODY FILE]
|
||||
(LET [(FILEDATES (COND
|
||||
[(AND (NULL (FILENAMEFIELD FILE 'VERSION))
|
||||
(CAR (GETPROP (ROOTFILENAME FILE)
|
||||
(CAR (GETPROP (NAMEFIELD FILE)
|
||||
'FILEDATES]
|
||||
([SETQ FILE (COND
|
||||
(ASKFLAG (INFILEP FILE))
|
||||
@@ -162,22 +165,14 @@
|
||||
(DEFINEQ
|
||||
|
||||
(DUMPDB
|
||||
[LAMBDA (FILE PROPFLG) (* ; "Edited 12-May-2026 15:31 by mth")
|
||||
(* ; "Edited 12-May-2026 12:45 by rmk")
|
||||
(* ; "Edited 11-May-2026 14:41 by mth")
|
||||
(* ; "Edited 8-May-2026 16:18 by mth")
|
||||
(* ; "Edited 2-May-2026 17:32 by mth")
|
||||
[LAMBDA (FILE PROPFLG) (* ; "Edited 2-May-2026 17:32 by mth")
|
||||
(* ; "Edited 29-Apr-2026 17:42 by mth")
|
||||
(* ; "Edited 20-Feb-2024 23:45 by mth")
|
||||
(* ; "Edited 7-Feb-2024 18:26 by mth")
|
||||
(* ; "Edited 27-Oct-2021 10:51 by larry")
|
||||
(* ; "Edited 24-Oct-2021 16:24 by rmk:")
|
||||
|
||||
(* ;; "Dumps a Masterscope database for functions in FILE. ")
|
||||
|
||||
(* ;; "Checks the DATABASE property if PROPFLG=T which is how the MAKEFILE advice calls it. ")
|
||||
|
||||
(* ;; "A user-level call would default PROPFLG to NIL.")
|
||||
(* ;; "Dumps a Masterscope database for functions in FILE. Checks the DATABASE property if PROPFLG=T which is how the MAKEFILE advice calls it. A user-level call would default PROPFLG to NIL.")
|
||||
|
||||
(* ;; "The FILE check is because MAKEFILE returns a list when it doesn't understand the options")
|
||||
|
||||
@@ -188,73 +183,72 @@
|
||||
(LET ((SAVEDCOPYRIGHTFLG COPYRIGHTFLG)
|
||||
(SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROG* (DBFILE DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
|
||||
(FNS (FILEFNSLST FL)))
|
||||
(SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
|
||||
(SETQ DBROOTFN (ROOTFILENAME DBFN))
|
||||
(CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
|
||||
(NULL DEFAULTDATABASECOPYRIGHTOWNER)
|
||||
(GETPROP DBROOTFN 'COPYRIGHT))
|
||||
(SELECTQ DEFAULTDATABASECOPYRIGHTOWNER
|
||||
((NONE NEVER)
|
||||
(* ;;
|
||||
(PROG (DBFILE DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
|
||||
(FNS (FILEFNSLST FILE)))
|
||||
(SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
|
||||
(SETQ DBROOTFN (ROOTFILENAME DBFN))
|
||||
(CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
|
||||
(NULL DEFAULTDATABASECOPYRIGHTOWNER)
|
||||
(GETPROP DBROOTFN 'COPYRIGHT))
|
||||
(SELECTQ DEFAULTDATABASECOPYRIGHTOWNER
|
||||
((NONE NEVER)
|
||||
(* ;;
|
||||
"Set the COPYRIGHT to NONE (I.e., never mention it again.)")
|
||||
|
||||
(/PUT DBROOTFN 'COPYRIGHT (LIST 'NONE)))
|
||||
(SAME
|
||||
(* ;;
|
||||
(/PUT DBROOTFN 'COPYRIGHT (LIST 'NONE)))
|
||||
(SAME
|
||||
(* ;;
|
||||
"Same as the source file. If it doesn't have one, then just normal handling")
|
||||
|
||||
(CL:WHEN (SETQ FLCPR (GETPROP FL 'COPYRIGHT))
|
||||
(/PUT DBROOTFN 'COPYRIGHT (LIST (CAR FLCPR)))))
|
||||
(DEFAULT
|
||||
(* ;; "Use the general default for copyright")
|
||||
(CL:WHEN (SETQ FLCPR (GETPROP FL 'COPYRIGHT))
|
||||
(/PUT DBROOTFN 'COPYRIGHT (LIST (CAR FLCPR)))))
|
||||
(DEFAULT
|
||||
(* ;; "Use the general default for copyright")
|
||||
|
||||
(SETQ COPYRIGHTFLG 'DEFAULT))
|
||||
(PROGN (SETQ COPYRIGHTFLG 'DEFAULT)
|
||||
(SETQ COPYRIGHTFLG 'DEFAULT))
|
||||
(PROGN (SETQ COPYRIGHTFLG 'DEFAULT)
|
||||
|
||||
(* ;;
|
||||
(* ;;
|
||||
"Hopefully, DEFAULTDATABASECOPYRIGHTOWNER is one of the COPYRIGHTOWNERS keys")
|
||||
|
||||
(SETQ DEFAULTCOPYRIGHTOWNER DEFAULTDATABASECOPYRIGHTOWNER))))
|
||||
(COND
|
||||
(FNS)
|
||||
((AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE)))
|
||||
(SETQ DEFAULTCOPYRIGHTOWNER DEFAULTDATABASECOPYRIGHTOWNER))))
|
||||
(COND
|
||||
(FNS)
|
||||
((AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE)))
|
||||
(* ;
|
||||
"Always dump if this is a known file")
|
||||
(SETQ PROPFLG NIL))
|
||||
(T (COND
|
||||
(PROPFLG (/REMPROP FL 'DATABASE))
|
||||
(T (printout T T FILE " has no functions." T)))
|
||||
(RETURN)))
|
||||
(CL:WHEN [OR (NULL PROPFLG)
|
||||
(EQ (GETPROP FL 'DATABASE)
|
||||
'YES)
|
||||
(EQ SAVEDBFLG 'YES)
|
||||
(AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE]
|
||||
(CL:WHEN MSFILETABLE
|
||||
[STORETABLE FL MSFILETABLE (CAR (GETPROP FL 'FILEDATES])
|
||||
[SETQ DBFILE
|
||||
(PRETTYDEF NIL DBFN
|
||||
`((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
|
||||
(ERROR!)))
|
||||
(E [PRINT (CAR (GETPROP ',FL 'FILEDATES]
|
||||
(DUMPDATABASE ',FNS]
|
||||
[COND
|
||||
(PROPFLG (PRINT (FULLNAME DBFILE)
|
||||
T))
|
||||
(T (/PUT FL 'DATABASEFILENAME DBFILE)
|
||||
(SETQ PROPFLG NIL))
|
||||
(T (COND
|
||||
(PROPFLG (/REMPROP FL 'DATABASE))
|
||||
(T (printout T T FILE " has no functions." T)))
|
||||
(RETURN)))
|
||||
(CL:WHEN [OR (NULL PROPFLG)
|
||||
(EQ (GETPROP FL 'DATABASE)
|
||||
'YES)
|
||||
(EQ SAVEDBFLG 'YES)
|
||||
(AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE]
|
||||
(CL:WHEN MSFILETABLE
|
||||
[STORETABLE FL MSFILETABLE (CAR (GETPROP FL 'FILEDATES])
|
||||
[SETQ DBFILE
|
||||
(PRETTYDEF NIL DBFN
|
||||
`((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
|
||||
(ERROR!)))
|
||||
(E [PRINT (CAR (GETPROP ',FL 'FILEDATES]
|
||||
(DUMPDATABASE ',FNS]
|
||||
[COND
|
||||
(PROPFLG (PRINT (FULLNAME DBFILE)
|
||||
T))
|
||||
(T (/PUT FL 'DATABASEFILENAME DBFILE)
|
||||
(* ;
|
||||
"Remember that we have this file valid already.")
|
||||
(/PUT FL 'DATABASE 'YES] (* ;
|
||||
(/PUT FL 'DATABASE 'YES] (* ;
|
||||
"Take future note of the database on a user call")
|
||||
(RETURN DBFILE))))
|
||||
(RETURN DBFILE))))
|
||||
(SETQ COPYRIGHTFLG SAVEDCOPYRIGHTFLG)
|
||||
(SETQ DEFAULTCOPYRIGHTOWNER SAVEDDEFAULTCOPYRIGHTOWNER)))])
|
||||
|
||||
(LOADDB
|
||||
[LAMBDA (FILE ASKFLAG) (* ; "Edited 11-May-2026 14:37 by mth")
|
||||
(* ; "Edited 24-Oct-2021 17:44 by rmk:")
|
||||
[LAMBDA (FILE ASKFLAG) (* ; "Edited 24-Oct-2021 17:44 by rmk:")
|
||||
(* ; "Edited 7-Jul-92 09:57 by rmk:")
|
||||
|
||||
(* ;; "Loads the database file corresponding to FILE, asking for confirmation only if ASKFLAG is T, which is the case from the advice on LOAD but not from usual user-level calls. Before asking, it looks around first to see whether a database file of the appropriate name really exists.")
|
||||
@@ -263,7 +257,7 @@
|
||||
(RESETLST
|
||||
[PROG* [TEM FORFILE (*READTABLE* (FIND-READTABLE "INTERLISP"))
|
||||
(*PACKAGE* (CL:FIND-PACKAGE "INTERLISP"))
|
||||
(NF (ROOTFILENAME FILE))
|
||||
(NF (NAMEFIELD FILE))
|
||||
(DBSTREAM (DBFILE FILE ASKFLAG))
|
||||
(DBFILE (FULLNAME (CAR DBSTREAM]
|
||||
(COND
|
||||
@@ -271,15 +265,14 @@
|
||||
(SETQ DBSTREAM (CAR DBSTREAM)))
|
||||
(T (COND
|
||||
((NULL ASKFLAG)
|
||||
(PRINTOUT T "no database file found for " (NAMEFIELD FILE)
|
||||
T)))
|
||||
(PRINTOUT T "no database file found for " NF T)))
|
||||
(RETURN)))
|
||||
(COND
|
||||
([COND
|
||||
[ASKFLAG (COND
|
||||
((EQ (GETPROP NF 'DATABASEFILENAME)
|
||||
DBFILE) (* ;
|
||||
"If the database for this very file has already been loaded, don't bother doing it again.")
|
||||
"If the database for this very file has already been loaded, don't bother doing it again.")
|
||||
(PRINTOUT T "Database " DBFILE " already loaded." T)
|
||||
NIL)
|
||||
(T (SELECTQ (GETPROP NF 'DATABASE)
|
||||
@@ -320,30 +313,28 @@
|
||||
(READATABASE)))
|
||||
(AND MSFILETABLE (STORETABLE NF MSFILETABLE FORFILE))
|
||||
(* ;
|
||||
"This is done whether or not there is a hashfile.")
|
||||
"This is done whether or not there is a hashfile.")
|
||||
(UPDATEFILES) (* ;
|
||||
"Mark any edited fns as needing to be reanalyzed.")
|
||||
(FOR FN IN (CDR (GETP NF 'FILE)) WHEN (OR (EXPRP FN)
|
||||
(GETP FN 'EXPR))
|
||||
DO (MSMARKCHANGED FN)))
|
||||
"Mark any edited fns as needing to be reanalyzed.")
|
||||
(FOR FN IN (CDR (GETP NF 'FILE))
|
||||
WHEN (OR (EXPRP FN)
|
||||
(GETP FN 'EXPR)) DO (MSMARKCHANGED FN)))
|
||||
(T (PRINTOUT T T DBFILE " is not a database file!" T)
|
||||
(* ; "So that value of LOADDB is NIL")
|
||||
(SETQ DBFILE NIL)))
|
||||
(/PUT NF 'DATABASEFILENAME DBFILE) (* ;
|
||||
"Remember the name of the database we just loaded.")
|
||||
"Remember the name of the database we just loaded.")
|
||||
(RETURN (FULLNAME DBFILE])])
|
||||
|
||||
(MAKEDB
|
||||
[LAMBDA (F) (* DECLARATIONS%: UNDOABLE)
|
||||
(* ; "Edited 12-May-2026 12:37 by rmk")
|
||||
(* ; "Edited 11-May-2026 14:38 by mth")
|
||||
(* rmk%: " 9-NOV-83 02:56")
|
||||
(DECLARE (GLOBALVARS SAVEDBFLG MSFILETABLE DWIMWAIT))
|
||||
(SETQ F (ROOTFILENAME F))
|
||||
|
||||
(* The extension is stripped off for purposes of the DATABASE.
|
||||
This maps compiled files into the root name, but means that we can't have
|
||||
multiple-extension files with different database status)
|
||||
(SETQ F (NAMEFIELD F))
|
||||
|
||||
(* The extension is stripped off for purposes of the DATABASE.
|
||||
This maps compiled files into the root name, but means that we can't have
|
||||
multiple-extension files with different database status)
|
||||
|
||||
(COND
|
||||
((INFILECOMS? T 'FNS (FILECOMS F))
|
||||
@@ -387,8 +378,9 @@
|
||||
|
||||
(RESETSAVE DWIMIFYCOMPFLG T)
|
||||
)
|
||||
(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1708 6856 (DBFILE 1718 . 3486) (DBFILE1 3488 . 4998) (DBFILE2 5000 . 6222) (LOAD 6224
|
||||
. 6454) (LOADFROM 6456 . 6644) (MAKEFILE 6646 . 6854)) (6912 19035 (DUMPDB 6922 . 12674) (LOADDB
|
||||
12676 . 17747) (MAKEDB 17749 . 19033)))))
|
||||
(FILEMAP (NIL (1783 6808 (DBFILE 1793 . 3438) (DBFILE1 3440 . 4950) (DBFILE2 4952 . 6174) (LOAD 6176
|
||||
. 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18072 (DUMPDB 6874 . 12107) (LOADDB
|
||||
12109 . 16984) (MAKEDB 16986 . 18070)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "13-May-2026 12:28:06" {MEDLEY}<library>UNIXUTILS.;62 22210
|
||||
(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61 22079
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS UNIX-FILE-NAME)
|
||||
:CHANGES-TO (VARS UNIXUTILSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "28-Apr-2026 09:59:13" {MEDLEY}<library>UNIXUTILS.;61)
|
||||
:PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT UNIXUTILSCOMS)
|
||||
@@ -294,8 +294,7 @@
|
||||
SLASHED])
|
||||
|
||||
(UNIX-FILE-NAME
|
||||
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 13-May-2026 12:25 by rmk")
|
||||
(* ; "Edited 31-Mar-2026 00:13 by rmk")
|
||||
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 31-Mar-2026 00:13 by rmk")
|
||||
(* ; "Edited 29-Mar-2026 00:26 by rmk")
|
||||
(* ; "Edited 19-Jan-2026 14:05 by rmk")
|
||||
(* ; "Edited 17-Jan-2026 22:32 by rmk")
|
||||
@@ -320,7 +319,7 @@
|
||||
(NIL (SETQ ACCESS 'INPUT)
|
||||
'OLD)
|
||||
(\ILLEGAL.ARG ACCESS])
|
||||
(SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
|
||||
[SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
|
||||
(UNIX (CL:IF [AND EXTENSION (NEQ (L-CASE EXTENSION)
|
||||
(L-CASE (FILENAMEFIELD FILE 'EXTENSION]
|
||||
(COPYFILE FILE (PACKFILENAME 'EXTENSION EXTENSION 'BODY FILE))
|
||||
@@ -346,8 +345,7 @@
|
||||
[RESETSAVE (GETFILEPTR FILE)
|
||||
`(PROGN (SETFILEPTR ,FILE OLDVALUE])
|
||||
(COPYFILE FILE UNAME))
|
||||
UNAME)))
|
||||
NIL T))])
|
||||
UNAME)])])
|
||||
|
||||
(UNIX-TMP-FILE-NAME
|
||||
[LAMBDA (NAME EXT HOST) (* ; "Edited 17-Jan-2026 22:28 by rmk")
|
||||
@@ -386,8 +384,8 @@
|
||||
|
||||
(PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21826
|
||||
(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
|
||||
) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20145) (
|
||||
UNIX-TMP-FILE-NAME 20147 . 21824)))))
|
||||
(FILEMAP (NIL (1208 1581 (ShellCommand 1208 . 1581)) (1583 1980 (ShellWhich 1583 . 1980)) (2090 21695
|
||||
(ShellBrowser 2100 . 3872) (ShellBrowse 3874 . 4559) (ShellOpener 4561 . 6249) (ShellOpen 6251 . 12198
|
||||
) (PROCESS-COMMAND 12200 . 12813) (SLASHIT 12815 . 16127) (UNIX-FILE-NAME 16129 . 20014) (
|
||||
UNIX-TMP-FILE-NAME 20016 . 21693)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971
|
||||
(FILECREATED "10-May-2026 13:26:30" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;957 191002
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (RECORDS PIECE)
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTFILE)
|
||||
|
||||
:PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
|
||||
:PREVIOUS-DATE " 1-May-2026 08:15:56" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;956)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -1642,7 +1642,8 @@
|
||||
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
||||
|
||||
(\TEDIT.OPENTEXTFILE
|
||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 10-May-2026 12:57 by rmk")
|
||||
(* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||
(* ; "Edited 16-Sep-2025 00:28 by rmk")
|
||||
(* ; "Edited 8-Sep-2025 21:52 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
@@ -1658,16 +1659,15 @@
|
||||
(STRINGP TEXT)
|
||||
(CL:PATHNAMEP TEXT)
|
||||
(STREAMP TEXT))
|
||||
(CAR (NLSETQ (OPENSTREAM (if (STREAMP TEXT)
|
||||
elseif (CL:PATHNAMEP TEXT)
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*)
|
||||
else TEXT)
|
||||
(CAR (NLSETQ (OPENSTREAM (OR (STREAMP TEXT)
|
||||
(AND (CL:PATHNAMEP TEXT)
|
||||
(FINDFILE TEXT T))
|
||||
(FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*)
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
`((FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
elseif ERROR
|
||||
then (ERROR "File not found:" TEXT)))])
|
||||
|
||||
@@ -3084,33 +3084,33 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
|
||||
. 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
|
||||
COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345
|
||||
106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
|
||||
\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM
|
||||
104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 .
|
||||
114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 .
|
||||
117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR
|
||||
120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
|
||||
\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
|
||||
. 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
|
||||
\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR
|
||||
133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
|
||||
\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE
|
||||
143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
|
||||
151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
|
||||
\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
|
||||
168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE
|
||||
173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
|
||||
179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
|
||||
. 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
|
||||
(FILEMAP (NIL (36166 66043 (\TEDIT.TEXTBIN 36176 . 46078) (\TEDIT.TEXTPEEKBIN 46080 . 51505) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51507 . 57214) (\TEDIT.TEXTBOUT 57216 . 61833) (\TEDIT.INSTALL.FILEBUFFER 61835
|
||||
. 66041)) (66941 71232 (\TEDIT.TEXTOUTCHARFN 66951 . 68507) (\TEDIT.TEXTINCCODEFN 68509 . 69248) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69250 . 69842) (\TEDIT.TEXTFORMATBYTESTREAM 69844 . 70681) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70683 . 71230)) (71279 83354 (OPENTEXTSTREAM 71289 . 78265) (
|
||||
COPYTEXTSTREAM 78267 . 82577) (TEDIT.STREAMCHANGEDP 82579 . 82881) (TXTFILE 82883 . 83352)) (83355
|
||||
106581 (\TEDIT.REOPENTEXTSTREAM 83365 . 84717) (\TEDIT.OPENTEXTSTREAM.PIECES 84719 . 89647) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89649 . 90751) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90753 . 96203) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96205 . 98996) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98998 . 100937) (
|
||||
\TEDIT.OPENTEXTFILE 100939 . 103092) (\TEDIT.CREATE.TEXTSTREAM 103094 . 104241) (\TEDIT.REOPEN.STREAM
|
||||
104243 . 106579)) (106582 114914 (\TEDIT.STREAMINIT 106592 . 114731) (TEDIT.IMAGESTREAM.OPEN 114733 .
|
||||
114912)) (115102 116290 (\TEDIT.TTYBOUT 115112 . 116288)) (116408 138091 (\TEDIT.TEXTCLOSEF 116418 .
|
||||
117742) (\TEDIT.TEXTDSPFONT 117744 . 118942) (\TEDIT.TEXTEOFP 118944 . 120699) (\TEDIT.TEXTGETEOFPTR
|
||||
120701 . 121024) (\TEDIT.TEXTSETEOFPTR 121026 . 122313) (\TEDIT.TEXTGETFILEPTR 122315 . 125150) (
|
||||
\TEDIT.TEXTSETFILEINFO 125152 . 125660) (\TEDIT.TEXTOPENF 125662 . 126593) (\TEDIT.TEXTSETEOF 126595
|
||||
. 127211) (\TEDIT.TEXTSETFILEPTR 127213 . 129323) (\TEDIT.TEXTDSPXPOSITION 129325 . 132028) (
|
||||
\TEDIT.TEXTDSPYPOSITION 132030 . 132771) (\TEDIT.TEXTLEFTMARGIN 132773 . 133364) (\TEDIT.TEXTCOLOR
|
||||
133366 . 133949) (\TEDIT.TEXTRIGHTMARGIN 133951 . 137240) (\TEDIT.TEXTDSPCHARWIDTH 137242 . 137546) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137548 . 137854) (\TEDIT.TEXTDSPLINEFEED 137856 . 138089)) (138129 150363 (
|
||||
\TEDIT.NTHCHARCODE 138139 . 139665) (\TEDIT.PIECE.NTHCHARCODE 139667 . 143235) (\TEDIT.RPLCHARCODE
|
||||
143237 . 144795) (\TEDIT.PIECE.RPLCHARCODE 144797 . 150008) (\TEDIT.NTHCHARLOOKS 150010 . 150361)) (
|
||||
151410 172285 (\TEDIT.DELETE.SELPIECES 151420 . 155045) (\TEDIT.INSERTCH 155047 . 162852) (
|
||||
\TEDIT.INSERTCH.HISTORY 162854 . 166318) (\TEDIT.INSERTEOL 166320 . 168145) (\TEDIT.INSERTCH.INSERTION
|
||||
168147 . 170984) (\TEDIT.INSERTCH.EXTEND 170986 . 172283)) (172286 173893 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172296 . 173011) (\TEDIT.LASTCHANGEABLE.CHNO 173013 . 173891)) (173894 178683 (\TEDIT.INSTALL.PIECE
|
||||
173904 . 178681)) (178721 188187 (TEXTPROP 178731 . 179078) (GETTEXTPROP 179080 . 179324) (PUTTEXTPROP
|
||||
179326 . 179583) (GETTEXTPROPS 179585 . 180029) (PUTTEXTPROPS 180031 . 180935) (TEXTPROP.ADD 180937
|
||||
. 181200) (\TEDIT.TEXTPROP 181202 . 188185)) (188188 190565 (\TEDIT.TEXTOBJ.PROPNAMES 188198 . 189457
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189459 . 189975) (\TEDIT.TEXTOBJ.PROPSTOREFN 189977 . 190563)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "28-Apr-2026 23:41:24" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289 139726
|
||||
(FILECREATED "11-May-2026 23:08:09" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;293 140080
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS CDFILES.PATS CDFILES.MATCH CDBROWSER-COPY)
|
||||
:CHANGES-TO (FNS CD.COMMANDSELECTEDFN CDFILES CD-MENUFN)
|
||||
|
||||
:PREVIOUS-DATE "28-Apr-2026 21:38:49" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;288)
|
||||
:PREVIOUS-DATE "10-May-2026 13:03:16" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;290)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
|
||||
@@ -410,7 +410,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(CDFILES
|
||||
[LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 20-Oct-2025 23:25 by rmk")
|
||||
[LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 11-May-2026 13:06 by rmk")
|
||||
(* ; "Edited 20-Oct-2025 23:25 by rmk")
|
||||
(* ; "Edited 17-Jun-2023 23:04 by rmk")
|
||||
(* ; "Edited 3-Oct-2022 12:03 by rmk")
|
||||
(* ; "Edited 25-Apr-2022 08:42 by rmk")
|
||||
@@ -453,7 +454,8 @@
|
||||
(* ;; "ENUMPAT is the single pattern that we use for the directory enumeration (given the enumeration depth). We have to go to the most general specification, then filter the generated results.")
|
||||
|
||||
(FOR P (N _ (CAAR INCLUDES))
|
||||
(E _ (CADAR INCLUDES))
|
||||
(E _ (OR (CADAR INCLUDES)
|
||||
""))
|
||||
(SD _ (CADDAR INCLUDES)) IN (CDR INCLUDES)
|
||||
DO (CL:UNLESS (EQ '* N)
|
||||
(SETQ N (POP P)))
|
||||
@@ -1903,7 +1905,8 @@
|
||||
'DON'T])
|
||||
|
||||
(CD.COMMANDSELECTEDFN
|
||||
[LAMBDA (MENUITEM MENU KEY) (* ; "Edited 28-Oct-2025 14:34 by rmk")
|
||||
[LAMBDA (MENUITEM MENU KEY) (* ; "Edited 11-May-2026 23:07 by rmk")
|
||||
(* ; "Edited 28-Oct-2025 14:34 by rmk")
|
||||
(* ; "Edited 6-Mar-2022 19:52 by rmk")
|
||||
(* ; "Edited 24-Feb-2022 19:52 by rmk")
|
||||
(* ; "Edited 5-Feb-2022 17:23 by rmk")
|
||||
@@ -1922,7 +1925,7 @@
|
||||
(PWINDOW (GETPROMPTWINDOW WINDOW))
|
||||
(CDBROWSER (WINDOWPROP WINDOW 'TABLEBROWSER))
|
||||
(USERDATA (TB.USERDATA CDBROWSER))
|
||||
(CDVALUE (LISTGET USERDATA 'CDVALUE))
|
||||
(CDVALUE (CDR (ASSOC 'CDVALUE USERDATA)))
|
||||
(FN (CADR (LISTP MENUITEM)))
|
||||
(MIDDLE (EQ KEY 'MIDDLE]
|
||||
(DECLARE (SPECVARS WINDOW PWINDOW CDVALUE USERDATA))
|
||||
@@ -1949,7 +1952,7 @@
|
||||
(FETCH (CDENTRY INFO2) OF CDENTRY)))
|
||||
(TYPE (FETCH (CDINFO TYPE) OF (FETCH (CDENTRY INFO1)
|
||||
OF CDENTRY)))
|
||||
(LABELS (APPLY* (OR (LISTGET USERDATA 'LABELFN)
|
||||
(LABELS (APPLY* (OR (CDR (ASSOC 'LABELFN USERDATA))
|
||||
(FUNCTION NILL))
|
||||
FILE1 FILE2 USERDATA))
|
||||
(LABEL1 (OR (CAR LABELS)
|
||||
@@ -1991,6 +1994,10 @@
|
||||
(CD-MENUFN
|
||||
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY)
|
||||
|
||||
(* ;; "Edited 11-May-2026 13:07 by rmk")
|
||||
|
||||
(* ;; "Edited 10-May-2026 13:02 by rmk")
|
||||
|
||||
(* ;; "Edited 10-Feb-2026 21:28 by rmk")
|
||||
|
||||
(* ;; "Edited 8-Nov-2025 13:06 by rmk")
|
||||
@@ -2021,15 +2028,15 @@
|
||||
CHILDREN)
|
||||
(SETQ CHILDREN
|
||||
(SELECTQ MENUITEM
|
||||
(Compare (IF (AND FILE1 FILE2)
|
||||
THEN (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
|
||||
(Compare (if (AND FILE1 FILE2)
|
||||
then (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
|
||||
WINDOW
|
||||
'REGION)
|
||||
CDBROWSER)
|
||||
ELSE (FLASHWINDOW T)
|
||||
else (FLASHWINDOW T)
|
||||
(PRIN3 "Only one file" T)))
|
||||
(See% left (IF FILE1
|
||||
THEN (if (PDFFILEP FILE1)
|
||||
(See% left (if FILE1
|
||||
then (if (PDFFILEP FILE1)
|
||||
then (SEE-PDF FILE1)
|
||||
else (TEDIT-SEE FILE1 (RELCREATEREGION
|
||||
(CL:IF (LISPSOURCEFILEP FILE1)
|
||||
@@ -2039,17 +2046,17 @@
|
||||
'RIGHT
|
||||
'TOP
|
||||
`(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW
|
||||
(IPLUS (fetch (REGION BOTTOM)
|
||||
of (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
T)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL1)))
|
||||
ELSE (FLASHWINDOW T)
|
||||
else (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
(See% right (IF FILE2
|
||||
THEN (if (PDFFILEP FILE2)
|
||||
(See% right (if FILE2
|
||||
then (if (PDFFILEP FILE2)
|
||||
then (SEE-PDF FILE2)
|
||||
else (TEDIT-SEE FILE2 (RELCREATEREGION
|
||||
(CL:IF (LISPSOURCEFILEP FILE2)
|
||||
@@ -2059,17 +2066,17 @@
|
||||
'LEFT
|
||||
'TOP
|
||||
`(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW
|
||||
(IPLUS (fetch (REGION BOTTOM)
|
||||
of (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
NIL)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL2)))
|
||||
ELSE (FLASHWINDOW T)
|
||||
else (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
((See See% both)
|
||||
(IF (AND FILE1 (PDFFILEP FILE1))
|
||||
(if (AND FILE1 (PDFFILEP FILE1))
|
||||
then (SEE-PDF FILE1)
|
||||
(CL:WHEN (AND FILE2 (PDFFILEP FILE2))
|
||||
(SEE-PDF FILE2))
|
||||
@@ -2083,7 +2090,7 @@
|
||||
'LEFT
|
||||
'TOP
|
||||
`(,WINDOW 0.5 -701)
|
||||
(IPLUS (FETCH (REGION BOTTOM) OF (WINDOWPROP WINDOW
|
||||
(IPLUS (fetch (REGION BOTTOM) of (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
NIL))))
|
||||
@@ -2337,25 +2344,25 @@
|
||||
|
||||
(MOVD? 'NILL 'TEDIT.FILEDATE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2683 23662 (COMPAREDIRECTORIES 2693 . 8028) (COMPAREDIRECTORIES.INFOS 8030 . 11259) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11261 . 14646) (CDENTRIES.SELECT 14648 . 19550) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19552 . 20896) (MATCHNAME 20898 . 21578) (CD.INSURECDVALUE 21580 . 23194
|
||||
) (CD.UPDATEWIDTHS 23196 . 23660)) (23663 34971 (CDFILES 23673 . 29770) (CDFILES.MATCH 29772 . 31782)
|
||||
(CDFILES.PATS 31784 . 34969)) (34972 52990 (CDPRINT 34982 . 37499) (CDPRINT.HEADER 37501 . 38398) (
|
||||
CDPRINT.LINE 38400 . 41829) (CDPRINT.MAXWIDTHS 41831 . 45946) (CDPRINT.COLHEADERS 45948 . 47233) (
|
||||
CDPRINT.COLUMNS 47235 . 52355) (CDTEDIT 52357 . 52988)) (52991 62112 (CDMAP 53001 . 54433) (CDENTRY
|
||||
54435 . 54744) (CDSUBSET 54746 . 56185) (CDMERGE 56187 . 60171) (CDMERGE.COMMON 60173 . 61488) (
|
||||
CD.SORT 61490 . 62110)) (62113 69651 (BINCOMP 62123 . 66412) (EOLTYPE 66414 . 68976) (EOLTYPE.SHOW
|
||||
68978 . 69649)) (70179 82706 (FIND-UNCOMPILED-FILES 70189 . 73832) (FIND-UNSOURCED-FILES 73834 . 76218
|
||||
) (FIND-SOURCE-FILES 76220 . 77958) (FIND-COMPILED-FILES 77960 . 79837) (FIND-UNLOADED-FILES 79839 .
|
||||
80692) (FIND-LOADED-FILES 80694 . 81122) (FIND-MULTICOMPILED-FILES 81124 . 82704)) (82707 91138 (
|
||||
CREATED-AS 82717 . 87514) (SOURCE-FOR-COMPILED-P 87516 . 90443) (COMPILE-SOURCE-DATE-DIFF 90445 .
|
||||
91136)) (91139 101902 (FIX-DIRECTORY-DATES 91149 . 94599) (FIX-EQUIV-DATES 94601 . 96126) (
|
||||
COPY-COMPARED-FILES 96128 . 97949) (COPY-MISSING-FILES 97951 . 100108) (COMPILED-ON-SAME-SOURCE 100110
|
||||
. 101900)) (102096 109974 (CDBROWSER 102106 . 106073) (CDBROWSER.STRINGS 106075 . 109972)) (110136
|
||||
111872 (CD.TABLEITEM 110146 . 110366) (CD.TABLEITEM.PRINTFN 110368 . 110567) (CD.TABLEITEM.COPYFN
|
||||
110569 . 111627) (CDTABLEBROWSER.HEADING.REPAINTFN 111629 . 111870)) (111873 139210 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 111883 . 112351) (CD.COMMANDSELECTEDFN 112353 . 118526) (CD-MENUFN
|
||||
118528 . 125005) (CD-COMPARE-FILES 125007 . 128534) (CDBROWSER-COPY 128536 . 134084) (
|
||||
CDBROWSER-DELETE-FILE 134086 . 138689) (CD-SWAPDIRS 138691 . 139208)))))
|
||||
(FILEMAP (NIL (2680 23659 (COMPAREDIRECTORIES 2690 . 8025) (COMPAREDIRECTORIES.INFOS 8027 . 11256) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11258 . 14643) (CDENTRIES.SELECT 14645 . 19547) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19549 . 20893) (MATCHNAME 20895 . 21575) (CD.INSURECDVALUE 21577 . 23191
|
||||
) (CD.UPDATEWIDTHS 23193 . 23657)) (23660 35108 (CDFILES 23670 . 29907) (CDFILES.MATCH 29909 . 31919)
|
||||
(CDFILES.PATS 31921 . 35106)) (35109 53127 (CDPRINT 35119 . 37636) (CDPRINT.HEADER 37638 . 38535) (
|
||||
CDPRINT.LINE 38537 . 41966) (CDPRINT.MAXWIDTHS 41968 . 46083) (CDPRINT.COLHEADERS 46085 . 47370) (
|
||||
CDPRINT.COLUMNS 47372 . 52492) (CDTEDIT 52494 . 53125)) (53128 62249 (CDMAP 53138 . 54570) (CDENTRY
|
||||
54572 . 54881) (CDSUBSET 54883 . 56322) (CDMERGE 56324 . 60308) (CDMERGE.COMMON 60310 . 61625) (
|
||||
CD.SORT 61627 . 62247)) (62250 69788 (BINCOMP 62260 . 66549) (EOLTYPE 66551 . 69113) (EOLTYPE.SHOW
|
||||
69115 . 69786)) (70316 82843 (FIND-UNCOMPILED-FILES 70326 . 73969) (FIND-UNSOURCED-FILES 73971 . 76355
|
||||
) (FIND-SOURCE-FILES 76357 . 78095) (FIND-COMPILED-FILES 78097 . 79974) (FIND-UNLOADED-FILES 79976 .
|
||||
80829) (FIND-LOADED-FILES 80831 . 81259) (FIND-MULTICOMPILED-FILES 81261 . 82841)) (82844 91275 (
|
||||
CREATED-AS 82854 . 87651) (SOURCE-FOR-COMPILED-P 87653 . 90580) (COMPILE-SOURCE-DATE-DIFF 90582 .
|
||||
91273)) (91276 102039 (FIX-DIRECTORY-DATES 91286 . 94736) (FIX-EQUIV-DATES 94738 . 96263) (
|
||||
COPY-COMPARED-FILES 96265 . 98086) (COPY-MISSING-FILES 98088 . 100245) (COMPILED-ON-SAME-SOURCE 100247
|
||||
. 102037)) (102233 110111 (CDBROWSER 102243 . 106210) (CDBROWSER.STRINGS 106212 . 110109)) (110273
|
||||
112009 (CD.TABLEITEM 110283 . 110503) (CD.TABLEITEM.PRINTFN 110505 . 110704) (CD.TABLEITEM.COPYFN
|
||||
110706 . 111764) (CDTABLEBROWSER.HEADING.REPAINTFN 111766 . 112007)) (112010 139564 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 112020 . 112488) (CD.COMMANDSELECTEDFN 112490 . 118780) (CD-MENUFN
|
||||
118782 . 125359) (CD-COMPARE-FILES 125361 . 128888) (CDBROWSER-COPY 128890 . 134438) (
|
||||
CDBROWSER-DELETE-FILE 134440 . 139043) (CD-SWAPDIRS 139045 . 139562)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "13-Jun-2024 11:46:26" {WMEDLEY}<lispusers>COMPARESOURCES.;138 40991
|
||||
(FILECREATED "11-May-2026 23:18:13" {MEDLEY}<lispusers>COMPARESOURCES.;141 41025
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \CS.COMPARE.MASTERS)
|
||||
:CHANGES-TO (FNS CSBROWSER)
|
||||
|
||||
:PREVIOUS-DATE " 7-Feb-2024 16:08:54" {WMEDLEY}<lispusers>COMPARESOURCES.;137)
|
||||
:PREVIOUS-DATE "13-Jun-2024 11:46:26" {MEDLEY}<lispusers>COMPARESOURCES.;138)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPARESOURCESCOMS)
|
||||
@@ -644,6 +644,8 @@
|
||||
(CSBROWSER
|
||||
[LAMBDA (FILE1 FILE2 DW? LABEL1 LABEL2 REGION IGNOREFORMS TITLE)
|
||||
|
||||
(* ;; "Edited 11-May-2026 23:16 by rmk")
|
||||
|
||||
(* ;; "Edited 7-Feb-2024 15:52 by rmk")
|
||||
|
||||
(* ;; "Edited 17-Jun-2023 15:21 by rmk")
|
||||
@@ -678,7 +680,7 @@
|
||||
(CL:UNLESS (LISPSOURCEFILEP FILE2)
|
||||
(ERROR FILE1 " is not a Medley source file"))
|
||||
(CL:UNLESS TITLE
|
||||
(SETQ TITLE (CONCAT "COMPARESOURCES of " LABEL1 " and " LABEL2)))
|
||||
(SETQ TITLE (CONCAT "Compare " LABEL1 " and " LABEL2)))
|
||||
(LET [(WINDOW (OBJ.CREATEW 'VERTICAL REGION TITLE NIL T (FONTPROP DEFAULTFONT 'HEIGHT]
|
||||
(WINDOWPROP WINDOW 'UNDERSCONTRUCTION T)
|
||||
(GETPROMPTWINDOW WINDOW T)
|
||||
@@ -703,17 +705,17 @@
|
||||
)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1683 26182 (COMPARESOURCES 1693 . 8341) (\CS.COMPARE.MASTERS 8343 . 15981) (
|
||||
\CS.COMPARE.TYPES 15983 . 19249) (\CS.EXAMINE 19251 . 22429) (\CS.FIXFNS 22431 . 23933) (
|
||||
\CS.SORT.DECLARES 23935 . 24278) (\CS.SORT.DECLARE1 24280 . 25700) (\CS.FILTER.GARBAGE 25702 . 26180))
|
||||
(26183 31526 (\CS.ISFNFORM 26193 . 26461) (\CS.COMPARE.FNS 26463 . 26705) (\CS.FNSID 26707 . 26851) (
|
||||
\CS.ISVARFORM 26853 . 26958) (\CS.COMPARE.VARS 26960 . 27622) (\CS.ISMACROFORM 27624 . 27762) (
|
||||
\CS.ISRECFORM 27764 . 28092) (\CS.REC.NAME 28094 . 28413) (\CS.ISCOURIERFORM 28415 . 28515) (
|
||||
\CS.ISTEMPLATEFORM 28517 . 28615) (\CS.COMPARE.TEMPLATES 28617 . 28982) (\CS.ISPROPFORM 28984 . 29139)
|
||||
(\CS.PROP.NAME 29141 . 29286) (\CS.COMPARE.PROPS 29288 . 29445) (\CS.ISADDVARFORM 29447 . 29540) (
|
||||
\CS.COMPARE.ADDVARS 29542 . 29707) (\CS.ISFPKGCOMFORM 29709 . 29916) (\CS.COMPARE.FPKGCOMS 29918 .
|
||||
30125) (\CS.COMPARE.DEFINE-FILE-INFO 30127 . 30717) (\CS.IGNOREFORMS 30719 . 31524)) (31527 37591 (
|
||||
CSOBJ.CREATE 31537 . 31950) (CSOBJ.DISPLAYFN 31952 . 32705) (CSOBJ.IMAGEBOXFN 32707 . 34868) (
|
||||
CSOBJ.BUTTONEVENTINFN 34870 . 37341) (CSOBJ.COPYBUTTONEVENTINFN 37343 . 37589)) (38472 40657 (
|
||||
CSBROWSER 38482 . 40655)))))
|
||||
(FILEMAP (NIL (1671 26170 (COMPARESOURCES 1681 . 8329) (\CS.COMPARE.MASTERS 8331 . 15969) (
|
||||
\CS.COMPARE.TYPES 15971 . 19237) (\CS.EXAMINE 19239 . 22417) (\CS.FIXFNS 22419 . 23921) (
|
||||
\CS.SORT.DECLARES 23923 . 24266) (\CS.SORT.DECLARE1 24268 . 25688) (\CS.FILTER.GARBAGE 25690 . 26168))
|
||||
(26171 31514 (\CS.ISFNFORM 26181 . 26449) (\CS.COMPARE.FNS 26451 . 26693) (\CS.FNSID 26695 . 26839) (
|
||||
\CS.ISVARFORM 26841 . 26946) (\CS.COMPARE.VARS 26948 . 27610) (\CS.ISMACROFORM 27612 . 27750) (
|
||||
\CS.ISRECFORM 27752 . 28080) (\CS.REC.NAME 28082 . 28401) (\CS.ISCOURIERFORM 28403 . 28503) (
|
||||
\CS.ISTEMPLATEFORM 28505 . 28603) (\CS.COMPARE.TEMPLATES 28605 . 28970) (\CS.ISPROPFORM 28972 . 29127)
|
||||
(\CS.PROP.NAME 29129 . 29274) (\CS.COMPARE.PROPS 29276 . 29433) (\CS.ISADDVARFORM 29435 . 29528) (
|
||||
\CS.COMPARE.ADDVARS 29530 . 29695) (\CS.ISFPKGCOMFORM 29697 . 29904) (\CS.COMPARE.FPKGCOMS 29906 .
|
||||
30113) (\CS.COMPARE.DEFINE-FILE-INFO 30115 . 30705) (\CS.IGNOREFORMS 30707 . 31512)) (31515 37579 (
|
||||
CSOBJ.CREATE 31525 . 31938) (CSOBJ.DISPLAYFN 31940 . 32693) (CSOBJ.IMAGEBOXFN 32695 . 34856) (
|
||||
CSOBJ.BUTTONEVENTINFN 34858 . 37329) (CSOBJ.COPYBUTTONEVENTINFN 37331 . 37577)) (38460 40691 (
|
||||
CSBROWSER 38470 . 40689)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,14 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
|
||||
|
||||
(FILECREATED "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592 137200
|
||||
(FILECREATED "11-May-2026 23:07:30" {MEDLEY}<lispusers>GITFNS.;593 137624
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS GIT-GWC-COMMAND)
|
||||
(COMMANDS gwc)
|
||||
(VARS GITFNSCOMS)
|
||||
:CHANGES-TO (FNS GIT-CD-LABELFN)
|
||||
|
||||
:PREVIOUS-DATE "29-Apr-2026 09:00:33" {MEDLEY}<lispusers>GITFNS.;588)
|
||||
:PREVIOUS-DATE "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT GITFNSCOMS)
|
||||
@@ -2215,21 +2213,29 @@
|
||||
NIL)))])
|
||||
|
||||
(GIT-CD-LABELFN
|
||||
[LAMBDA (FILE1 FILE2 USERDATA) (* ; "Edited 5-Jan-2022 15:10 by rmk")
|
||||
[LAMBDA (FILE1 FILE2 USERDATA) (* ; "Edited 11-May-2026 23:02 by rmk")
|
||||
(* ; "Edited 5-Jan-2022 15:10 by rmk")
|
||||
(* ; "Edited 16-Dec-2021 12:25 by rmk")
|
||||
(* ; "Edited 13-Dec-2021 22:13 by rmk")
|
||||
(DECLARE (USEDFREE CDVALUE))
|
||||
(LET (NC B LABEL1 LABEL2)
|
||||
(LET ((CDVALUE (CDR (ASSOC 'CDVALUE USERDATA)))
|
||||
NC B LABEL1 LABEL2 POS)
|
||||
(CL:WHEN (SETQ NC (FETCH NCDIR OF (FETCH CDMAXNC1 OF CDVALUE)))
|
||||
(SETQ LABEL1 (SLASHIT (SUBSTRING FILE1 (ADD1 NC))
|
||||
T))
|
||||
(CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH1))
|
||||
(SETQ LABEL1 (CONCAT B "/" LABEL1))))
|
||||
T T))
|
||||
(CL:WHEN (SETQ B (CDR (ASSOC 'BRANCH1 USERDATA)))
|
||||
(SETQ LABEL1 (CONCAT (SUBSTRING B 1 (SUB1 (OR (STRPOS "--" B NIL T)
|
||||
0)))
|
||||
"/" LABEL1))))
|
||||
(CL:WHEN (SETQ NC (FETCH NCDIR OF (FETCH CDMAXNC2 OF CDVALUE)))
|
||||
(SETQ LABEL2 (SLASHIT (SUBSTRING FILE2 (ADD1 NC))
|
||||
T))
|
||||
(CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH2))
|
||||
(SETQ LABEL2 (CONCAT B "/" LABEL2))))
|
||||
T T))
|
||||
(CL:WHEN (SETQ B (CDR (ASSOC 'BRANCH2 USERDATA)))
|
||||
|
||||
(* ;; "rmk184--xxx -> rmk184")
|
||||
|
||||
(SETQ LABEL2 (CONCAT (SUBSTRING B 1 (SUB1 (OR (STRPOS "--" B NIL T)
|
||||
0)))
|
||||
"/" LABEL2))))
|
||||
(LIST (OR LABEL1 FILE1)
|
||||
(OR LABEL2 FILE2])
|
||||
|
||||
@@ -2470,33 +2476,33 @@
|
||||
|
||||
(PUTPROPS GITFNS FILETYPE :TCOMPL)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4257 21537 (GIT-CLONEP 4267 . 5698) (GIT-INIT 5700 . 6330) (GIT-MAKE-PROJECT 6332 .
|
||||
14591) (GIT-GET-PROJECT 14593 . 16518) (GIT-PUT-PROJECT-FIELD 16520 . 18161) (GIT-PROJECT-PATH 18163
|
||||
. 19207) (FIND-ANCESTOR-DIRECTORY 19209 . 19560) (GIT-FIND-CLONE 19562 . 20645) (GIT-MAINBRANCH 20647
|
||||
. 21042) (GIT-MAINBRANCH? 21044 . 21535)) (26309 33483 (PRC-COMMAND 26319 . 31601) (GIT-GWC-COMMAND
|
||||
31603 . 33481)) (33539 36327 (ALLSUBDIRS 33549 . 34835) (MEDLEYSUBDIRS 34837 . 35530) (GITSUBDIRS
|
||||
35532 . 36325)) (36328 38733 (TOGIT 36338 . 37746) (FROMGIT 37748 . 38731)) (38734 41743 (
|
||||
WORKINGSUBDIR 38744 . 39199) (GITSUBDIR 39201 . 39644) (STRIPDIR 39646 . 40024) (STRIPHOST 40026 .
|
||||
40266) (STRIPNAME 40268 . 41021) (STRIPWHERE 41023 . 41741)) (41744 43979 (GFILE4MFILE 41754 . 42450)
|
||||
(MFILE4GFILE 42452 . 43021) (GIT-REPO-FILENAME 43023 . 43977)) (44028 54285 (GIT-COMMIT 44038 . 44864)
|
||||
(GIT-PUSH 44866 . 45626) (GIT-PULL 45628 . 46380) (GIT-APPROVAL 46382 . 46731) (GIT-GET-FILE 46733 .
|
||||
48648) (GIT-FILE-EXISTS? 48650 . 48924) (GIT-REMOTE-UPDATE 48926 . 49761) (GIT-REMOTE-ADD 49763 .
|
||||
50070) (GIT-FILE-DATE 50072 . 51119) (GIT-FILE-HISTORY 51121 . 53055) (GIT-PRINT-FILE-HISTORY 53057 .
|
||||
54109) (GIT-FETCH 54111 . 54283)) (54315 66267 (GIT-BRANCH-DIFF 54325 . 61214) (GIT-COMMIT-DIFFS 61216
|
||||
. 62107) (GIT-BRANCH-RELATIONS 62109 . 65793) (GIT-MODIFIED 65795 . 66265)) (66312 85259 (
|
||||
GIT-BRANCH-NUM 66322 . 66895) (GIT-CHECKOUT 66897 . 68183) (GIT-WHICH-BRANCH 68185 . 68592) (
|
||||
GIT-MAKE-BRANCH 68594 . 71173) (GIT-BRANCHES 71175 . 73772) (GIT-BRANCH-EXISTS? 73774 . 74645) (
|
||||
GIT-PICK-BRANCH 74647 . 75137) (GIT-BRANCH-MENU 75139 . 76040) (GIT-BRANCH-WHENSELECTEDFN 76042 .
|
||||
77749) (GIT-PULL-REQUESTS 77751 . 81636) (GIT-SHORT-BRANCH-NAME 81638 . 81929) (GIT-LONG-NAME 81931 .
|
||||
82248) (GIT-PRC-BRANCHES 82250 . 85257)) (85289 90043 (GIT-MY-CURRENT-BRANCH 85299 . 85669) (
|
||||
GIT-MY-BRANCHP 85671 . 86289) (GIT-MY-NEXT-BRANCH 86291 . 88091) (GIT-MY-BRANCHES 88093 . 90041)) (
|
||||
90089 94173 (GIT-ADD-WORKTREE 90099 . 91706) (GIT-REMOVE-WORKTREE 91708 . 92640) (GIT-LIST-WORKTREES
|
||||
92642 . 93453) (WORKTREEDIR 93455 . 94171)) (94221 128732 (GIT-GET-DIFFERENT-FILES 94231 . 101139) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 101141 . 108780) (GIT-WORKING-COMPARE-DIRECTORIES 108782 . 114597) (
|
||||
GIT-COMPARE-WORKTREE 114599 . 118577) (GITCDOBJBUTTONFN 118579 . 123077) (GIT-CD-LABELFN 123079 .
|
||||
124165) (GIT-CD-MENUFN 124167 . 126713) (GIT-WORKING-COMPARE-FILES 126715 . 127335) (
|
||||
GIT-BRANCHES-COMPARE-FILES 127337 . 128501) (GIT-PR-COMPARE 128503 . 128730)) (128802 137133 (CDGITDIR
|
||||
128812 . 129499) (GIT-COMMAND 129501 . 131059) (GITORIGIN 131061 . 131758) (GIT-INITIALS 131760 .
|
||||
132064) (GIT-COMMAND-TO-FILE 132066 . 135551) (GIT-RESULT-TO-LINES 135553 . 136466) (STRIPLOCAL 136468
|
||||
. 137131)))))
|
||||
(FILEMAP (NIL (4187 21467 (GIT-CLONEP 4197 . 5628) (GIT-INIT 5630 . 6260) (GIT-MAKE-PROJECT 6262 .
|
||||
14521) (GIT-GET-PROJECT 14523 . 16448) (GIT-PUT-PROJECT-FIELD 16450 . 18091) (GIT-PROJECT-PATH 18093
|
||||
. 19137) (FIND-ANCESTOR-DIRECTORY 19139 . 19490) (GIT-FIND-CLONE 19492 . 20575) (GIT-MAINBRANCH 20577
|
||||
. 20972) (GIT-MAINBRANCH? 20974 . 21465)) (26239 33413 (PRC-COMMAND 26249 . 31531) (GIT-GWC-COMMAND
|
||||
31533 . 33411)) (33469 36257 (ALLSUBDIRS 33479 . 34765) (MEDLEYSUBDIRS 34767 . 35460) (GITSUBDIRS
|
||||
35462 . 36255)) (36258 38663 (TOGIT 36268 . 37676) (FROMGIT 37678 . 38661)) (38664 41673 (
|
||||
WORKINGSUBDIR 38674 . 39129) (GITSUBDIR 39131 . 39574) (STRIPDIR 39576 . 39954) (STRIPHOST 39956 .
|
||||
40196) (STRIPNAME 40198 . 40951) (STRIPWHERE 40953 . 41671)) (41674 43909 (GFILE4MFILE 41684 . 42380)
|
||||
(MFILE4GFILE 42382 . 42951) (GIT-REPO-FILENAME 42953 . 43907)) (43958 54215 (GIT-COMMIT 43968 . 44794)
|
||||
(GIT-PUSH 44796 . 45556) (GIT-PULL 45558 . 46310) (GIT-APPROVAL 46312 . 46661) (GIT-GET-FILE 46663 .
|
||||
48578) (GIT-FILE-EXISTS? 48580 . 48854) (GIT-REMOTE-UPDATE 48856 . 49691) (GIT-REMOTE-ADD 49693 .
|
||||
50000) (GIT-FILE-DATE 50002 . 51049) (GIT-FILE-HISTORY 51051 . 52985) (GIT-PRINT-FILE-HISTORY 52987 .
|
||||
54039) (GIT-FETCH 54041 . 54213)) (54245 66197 (GIT-BRANCH-DIFF 54255 . 61144) (GIT-COMMIT-DIFFS 61146
|
||||
. 62037) (GIT-BRANCH-RELATIONS 62039 . 65723) (GIT-MODIFIED 65725 . 66195)) (66242 85189 (
|
||||
GIT-BRANCH-NUM 66252 . 66825) (GIT-CHECKOUT 66827 . 68113) (GIT-WHICH-BRANCH 68115 . 68522) (
|
||||
GIT-MAKE-BRANCH 68524 . 71103) (GIT-BRANCHES 71105 . 73702) (GIT-BRANCH-EXISTS? 73704 . 74575) (
|
||||
GIT-PICK-BRANCH 74577 . 75067) (GIT-BRANCH-MENU 75069 . 75970) (GIT-BRANCH-WHENSELECTEDFN 75972 .
|
||||
77679) (GIT-PULL-REQUESTS 77681 . 81566) (GIT-SHORT-BRANCH-NAME 81568 . 81859) (GIT-LONG-NAME 81861 .
|
||||
82178) (GIT-PRC-BRANCHES 82180 . 85187)) (85219 89973 (GIT-MY-CURRENT-BRANCH 85229 . 85599) (
|
||||
GIT-MY-BRANCHP 85601 . 86219) (GIT-MY-NEXT-BRANCH 86221 . 88021) (GIT-MY-BRANCHES 88023 . 89971)) (
|
||||
90019 94103 (GIT-ADD-WORKTREE 90029 . 91636) (GIT-REMOVE-WORKTREE 91638 . 92570) (GIT-LIST-WORKTREES
|
||||
92572 . 93383) (WORKTREEDIR 93385 . 94101)) (94151 129156 (GIT-GET-DIFFERENT-FILES 94161 . 101069) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 101071 . 108710) (GIT-WORKING-COMPARE-DIRECTORIES 108712 . 114527) (
|
||||
GIT-COMPARE-WORKTREE 114529 . 118507) (GITCDOBJBUTTONFN 118509 . 123007) (GIT-CD-LABELFN 123009 .
|
||||
124589) (GIT-CD-MENUFN 124591 . 127137) (GIT-WORKING-COMPARE-FILES 127139 . 127759) (
|
||||
GIT-BRANCHES-COMPARE-FILES 127761 . 128925) (GIT-PR-COMPARE 128927 . 129154)) (129226 137557 (CDGITDIR
|
||||
129236 . 129923) (GIT-COMMAND 129925 . 131483) (GITORIGIN 131485 . 132182) (GIT-INITIALS 132184 .
|
||||
132488) (GIT-COMMAND-TO-FILE 132490 . 135975) (GIT-RESULT-TO-LINES 135977 . 136890) (STRIPLOCAL 136892
|
||||
. 137555)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,14 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "15-May-2026 22:31:17" {MEDLEY}<lispusers>tmax>TMAX.;47 28263
|
||||
(FILECREATED "12-Aug-2025 08:27:53"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>tmax>TMAX.;46 28244
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS NGROUPMENU.ENABLED?)
|
||||
:CHANGES-TO (VARS TMAXCOMS TSP.FM.DESC)
|
||||
|
||||
:PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}<lispusers>tmax>TMAX.;46)
|
||||
:PREVIOUS-DATE "30-Mar-2025 21:51:58"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TMAX>TMAX.;44)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TMAXCOMS)
|
||||
@@ -375,10 +377,9 @@
|
||||
(T (CLOSE.NGROUP.GRAPH TSTREAM])
|
||||
|
||||
(NGROUPMENU.ENABLED?
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 15-May-2026 22:29 by rmk")
|
||||
(* ; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(* ; "Edited 29-Sep-87 11:42 by fsg")
|
||||
(FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TSP.SETUP.FMMENU TSTREAM))
|
||||
(FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))
|
||||
'STATE])
|
||||
|
||||
(NGROUP.Text-Before.TOGGLE
|
||||
@@ -576,15 +577,15 @@
|
||||
|
||||
(TSP.FUNCTION.HOOKS)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3221 4105 (EDIT-TMAX 3231 . 4103)) (8116 16359 (TSP.DISPLAY.FMMENU 8126 . 8800) (
|
||||
TSP.SETUP.FILENAMES 8802 . 10133) (TSP.SETUP.FMMENU 10135 . 10686) (TSP.FMMENU 10688 . 11792) (
|
||||
TSP.FM.APPLY 11794 . 12382) (UPDATE.ALL 12384 . 13260) (DOWNDATE.ALL 13262 . 13889) (
|
||||
TSP.FUNCTION.HOOKS 13891 . 15321) (TSP.GETFN 15323 . 15898) (TSP.PUTFN 15900 . 16357)) (16405 20444 (
|
||||
AutoUpdate.TOGGLE 16415 . 16872) (UPDATE? 16874 . 17239) (NGROUP.Menu.TOGGLE 17241 . 17786) (
|
||||
NGROUPMENU.ENABLED? 17788 . 18235) (NGROUP.Text-Before.TOGGLE 18237 . 18708) (TEXTBEFORE.ENABLED?
|
||||
18710 . 18977) (NGROUP.Text-After.TOGGLE 18979 . 19448) (TEXTAFTER.ENABLED? 19450 . 19715) (
|
||||
Manual.Index.TOGGLE 19717 . 20177) (MANUALINDEX.ENABLED? 20179 . 20442)) (20478 26140 (GET.TSP.FONT
|
||||
20488 . 21762) (GET.TSP.FONT.FAMILY 21764 . 22384) (GET.TSP.FONT.SIZE 22386 . 22874) (
|
||||
GET.TSP.FONT.FACE 22876 . 23768) (ABBREVIATE.FONT 23770 . 25384) (TMAX.SHADEOBJ 25386 . 26138)) (26180
|
||||
27548 (TSP.LIST.OF.OBJECTS 26190 . 27546)))))
|
||||
(FILEMAP (NIL (3307 4191 (EDIT-TMAX 3317 . 4189)) (8202 16445 (TSP.DISPLAY.FMMENU 8212 . 8886) (
|
||||
TSP.SETUP.FILENAMES 8888 . 10219) (TSP.SETUP.FMMENU 10221 . 10772) (TSP.FMMENU 10774 . 11878) (
|
||||
TSP.FM.APPLY 11880 . 12468) (UPDATE.ALL 12470 . 13346) (DOWNDATE.ALL 13348 . 13975) (
|
||||
TSP.FUNCTION.HOOKS 13977 . 15407) (TSP.GETFN 15409 . 15984) (TSP.PUTFN 15986 . 16443)) (16491 20425 (
|
||||
AutoUpdate.TOGGLE 16501 . 16958) (UPDATE? 16960 . 17325) (NGROUP.Menu.TOGGLE 17327 . 17872) (
|
||||
NGROUPMENU.ENABLED? 17874 . 18216) (NGROUP.Text-Before.TOGGLE 18218 . 18689) (TEXTBEFORE.ENABLED?
|
||||
18691 . 18958) (NGROUP.Text-After.TOGGLE 18960 . 19429) (TEXTAFTER.ENABLED? 19431 . 19696) (
|
||||
Manual.Index.TOGGLE 19698 . 20158) (MANUALINDEX.ENABLED? 20160 . 20423)) (20459 26121 (GET.TSP.FONT
|
||||
20469 . 21743) (GET.TSP.FONT.FAMILY 21745 . 22365) (GET.TSP.FONT.SIZE 22367 . 22855) (
|
||||
GET.TSP.FONT.FACE 22857 . 23749) (ABBREVIATE.FONT 23751 . 25365) (TMAX.SHADEOBJ 25367 . 26119)) (26161
|
||||
27529 (TSP.LIST.OF.OBJECTS 26171 . 27527)))))
|
||||
STOP
|
||||
|
||||
@@ -1,12 +1,15 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "12-Apr-2026 23:42:38" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;15| 27461
|
||||
(FILECREATED "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14| 27479
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS TSP.GET.NGROUP.ARRAY)
|
||||
:CHANGES-TO (FNS NGROUP.CHARTYPE.CONVERT UPDATE.NUMBEROBJS DOWNDATE.NUMBEROBJS NGROUP.CHARTYPE
|
||||
INITIAL.NGROUP.GRAPH RESET.DEPENDENT.CLASSES GET.NCOUNTER GRAPHMENU
|
||||
CREATE.NGROUP.NODE FLATTEN.TREE.TO.STRING)
|
||||
(VARS TMAX-NGRAPHCOMS)
|
||||
|
||||
:PREVIOUS-DATE "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14|)
|
||||
:PREVIOUS-DATE "23-Feb-2025 22:59:05" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;11|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TMAX-NGRAPHCOMS)
|
||||
@@ -194,13 +197,9 @@
|
||||
(CADR (GETHASH NGID (TSP.GET.NGROUP.ARRAY TSTREAM)))))
|
||||
|
||||
(TSP.GET.NGROUP.ARRAY
|
||||
(LAMBDA (TSTREAM) (* \; "Edited 12-Apr-2026 23:40 by rmk")
|
||||
(* \; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(LAMBDA (TSTREAM) (* \; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(* |ss:| "27-Jun-87 16:21")
|
||||
(OR (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)
|
||||
(LET ((ARRAY (HASHARRAY 30)))
|
||||
(TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY (HASHARRAY 30))
|
||||
ARRAY))))
|
||||
(TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)))
|
||||
|
||||
(tsp.legalid
|
||||
(lambda (prev.ngroups stream) (* |fsg| " 3-Aug-87 17:04")
|
||||
@@ -486,15 +485,15 @@
|
||||
|finally| (TMAXPROP TSTREAM 'COUNTERS NIL))))
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (1437 12863 (GRAPHMENU 1447 . 2728) (INITIAL.NGROUP.GRAPH 2730 . 3508) (
|
||||
NGROUP.MAKE.ROOTNODE 3510 . 3731) (TSPGRAPHREGION 3733 . 4384) (CLOSE.NGROUP.GRAPH 4386 . 4990) (
|
||||
NGROUP.GRAPH.CLOSEFN 4992 . 5649) (ADD.NGROUP.TO.MOTHER.NODE 5651 . 6156) (ADD.NODE.TO.GRAPH 6158 .
|
||||
7369) (COLLECT.HASHARRAY 7371 . 7657) (CREATE.NGROUP.NODE 7659 . 8494) (GET.FROMNODES 8496 . 8802) (
|
||||
GET.TONODES 8804 . 9391) (FIND.NODE 9393 . 9672) (TSP.GET.NGROUP.ARRAY 9674 . 10181) (TSP.LEGALID
|
||||
10183 . 11344) (LIST.ANCESTORS 11346 . 11875) (TOPLEVEL.SISTERS 11877 . 12315) (GET.NGROUP.MOTHER
|
||||
12317 . 12861)) (12910 27438 (DOWNDATE.NUMBEROBJS 12920 . 14869) (UPDATE.NUMBEROBJS 14871 . 16668) (
|
||||
RESET.DEPENDENT.CLASSES 16670 . 17245) (RESET.NCOUNTER 17247 . 18138) (GET.NCOUNTER 18140 . 19399) (
|
||||
NCOUNTER? 19401 . 21211) (FLATTEN.TREE.TO.STRING 21213 . 23111) (NGROUP.CHARTYPE 23113 . 24671) (
|
||||
NGROUP.CHARTYPE.CONVERT 24673 . 26058) (NUMBER.TO.LETTER 26060 . 27050) (REMOVE.ALL.COUNTERS 27052 .
|
||||
27436)))))
|
||||
(FILEMAP (NIL (1692 12881 (GRAPHMENU 1702 . 2983) (INITIAL.NGROUP.GRAPH 2985 . 3763) (
|
||||
NGROUP.MAKE.ROOTNODE 3765 . 3986) (TSPGRAPHREGION 3988 . 4639) (CLOSE.NGROUP.GRAPH 4641 . 5245) (
|
||||
NGROUP.GRAPH.CLOSEFN 5247 . 5904) (ADD.NGROUP.TO.MOTHER.NODE 5906 . 6411) (ADD.NODE.TO.GRAPH 6413 .
|
||||
7624) (COLLECT.HASHARRAY 7626 . 7912) (CREATE.NGROUP.NODE 7914 . 8749) (GET.FROMNODES 8751 . 9057) (
|
||||
GET.TONODES 9059 . 9646) (FIND.NODE 9648 . 9927) (TSP.GET.NGROUP.ARRAY 9929 . 10199) (TSP.LEGALID
|
||||
10201 . 11362) (LIST.ANCESTORS 11364 . 11893) (TOPLEVEL.SISTERS 11895 . 12333) (GET.NGROUP.MOTHER
|
||||
12335 . 12879)) (12928 27456 (DOWNDATE.NUMBEROBJS 12938 . 14887) (UPDATE.NUMBEROBJS 14889 . 16686) (
|
||||
RESET.DEPENDENT.CLASSES 16688 . 17263) (RESET.NCOUNTER 17265 . 18156) (GET.NCOUNTER 18158 . 19417) (
|
||||
NCOUNTER? 19419 . 21229) (FLATTEN.TREE.TO.STRING 21231 . 23129) (NGROUP.CHARTYPE 23131 . 24689) (
|
||||
NGROUP.CHARTYPE.CONVERT 24691 . 26076) (NUMBER.TO.LETTER 26078 . 27068) (REMOVE.ALL.COUNTERS 27070 .
|
||||
27454)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
121
sources/LLINTERP
121
sources/LLINTERP
@@ -1,13 +1,19 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 8-May-2026 23:51:41" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;2 120946
|
||||
(FILECREATED "30-Jun-2022 22:42:02"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;4 120990
|
||||
|
||||
:EDIT-BY "mth"
|
||||
:PREVIOUS-DATE "30-Jun-2022 18:04:04"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;3)
|
||||
|
||||
:CHANGES-TO (FNS \CCODEARGLIST)
|
||||
|
||||
:PREVIOUS-DATE "30-Jun-2022 22:42:02" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1981-1988, 1990-1992, 1994-1995 by Venue & Xerox Corporation.
|
||||
The following program was created in 1981 but has not been published
|
||||
within the meaning of the copyright law, is furnished under license,
|
||||
and may not be used, copied and/or disclosed except in accordance
|
||||
with the terms of said license.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LLINTERPCOMS)
|
||||
|
||||
@@ -1535,8 +1541,7 @@
|
||||
(T (ERROR '"Args not available:" FN])
|
||||
|
||||
(\CCODEARGLIST
|
||||
[LAMBDA (FNHD SMARTP) (* ; "Edited 8-May-2026 23:44 by mth")
|
||||
(* ; "Edited 10-May-88 12:18 by MASINTER")
|
||||
[LAMBDA (FNHD SMARTP) (* ; "Edited 10-May-88 12:18 by MASINTER")
|
||||
|
||||
(* ;; "Computes the arglist for raw code object FNHD. If SMARTP is true, we're allowed to return a Common Lisp arg list if we find one; otherwise, we have to comply with Interlisp arglist semantics.")
|
||||
|
||||
@@ -1551,55 +1556,53 @@
|
||||
(SETQ SIZE (fetch (FNHEADER NTSIZE) of FNHD))
|
||||
[COND
|
||||
((EQ [SETQ LOCALSIZE (- (FOLDLO (if (fetch (FNHEADER NATIVE) of FNHD)
|
||||
then (- (fetch (FNHEADER STARTPC) of FNHD)
|
||||
4)
|
||||
then (- (fetch (FNHEADER STARTPC)
|
||||
of FNHD)
|
||||
4)
|
||||
else (fetch (FNHEADER STARTPC) of FNHD))
|
||||
BYTESPERWORD)
|
||||
(SETQ ENDT (+ (fetch (FNHEADER OVERHEADWORDS) of T)
|
||||
(COND
|
||||
((EQ SIZE 0)
|
||||
(* ;
|
||||
"No nametable, but there's a quad of zeros there anyway")
|
||||
"No nametable, but there's a quad of zeros there anyway")
|
||||
WORDSPERQUAD)
|
||||
(T (UNFOLD SIZE 2]
|
||||
0) (* ; "Nothing extra here")
|
||||
)
|
||||
[(> LOCALSIZE WORDSPERCELL) (* ;
|
||||
"There is a second nametable between the first and the code.")
|
||||
"There is a second nametable between the first and the code.")
|
||||
(SETQ IVARS (\CCODEIVARSCAN FNHD ENDT (FOLDLO LOCALSIZE 2]
|
||||
((AND (LISTP (SETQ ENDT (\GETBASEPTR FNHD ENDT)))
|
||||
(LISTP (CAR ENDT))) (* ;
|
||||
"It's exactly a pointer to debugging info, car of which is a stylized arglist")
|
||||
"It's exactly a pointer to debugging info, car of which is a stylized arglist")
|
||||
(SETQ ENDT (if (AND (EQ (CAAR ENDT)
|
||||
'&OPTIONAL)
|
||||
(LISTGET (CDR ENDT)
|
||||
:INTERLISP))
|
||||
then (* ; "The &OPTIONAL, while strictly correct, is misleading, since it's technically true for ALL Interlisp functions.")
|
||||
(CDAR ENDT)
|
||||
'&OPTIONAL)
|
||||
(LISTGET (CDR ENDT)
|
||||
:INTERLISP))
|
||||
then (* ; "The &OPTIONAL, while strictly correct, is misleading, since it's technically true for ALL Interlisp functions.")
|
||||
(CDAR ENDT)
|
||||
else (CAR ENDT)))
|
||||
(RETURN (COND
|
||||
(SMARTP ENDT)
|
||||
(T (* ; "Note that if we got this far, function can't be a nospread (we caught this in the very first COND up above), which means there can't be any &key or &rest")
|
||||
(for X in ENDT unless (EQ X '&OPTIONAL) collect (COND
|
||||
((STRINGP X)
|
||||
(* ;
|
||||
"Callers of ARGLIST are expecting to get something that would actually function as one")
|
||||
(MKATOM X))
|
||||
(T X]
|
||||
(for X in ENDT unless (EQ X '&OPTIONAL)
|
||||
collect (COND
|
||||
((STRINGP X) (* ;
|
||||
"Callers of ARGLIST are expecting to get something that would actually function as one")
|
||||
(MKATOM X))
|
||||
(T X]
|
||||
[COND
|
||||
((< N 0) (* ;
|
||||
"Waited until now to see if there was a stored arglist, but we didn't find one--give up")
|
||||
(RETURN (COND
|
||||
((AND (EQ 2 (fetch (FNHEADER ARGTYPE) of FNHD))
|
||||
(SETQ IVARS (ASSOC 0 IVARS)))
|
||||
(CDR IVARS))
|
||||
(T 'U]
|
||||
"Waited until now to see if there was a stored arglist, but we didn't find one--give up")
|
||||
(RETURN 'U]
|
||||
[COND
|
||||
((NEQ SIZE 0) (* ; "Scan specials name table")
|
||||
(SETQ IVARS (\CCODEIVARSCAN FNHD (fetch (FNHEADER OVERHEADWORDS) of T)
|
||||
SIZE IVARS]
|
||||
[SETQ IVARS (for I from 0 to (SUB1 N) collect (OR (CDR (ASSOC I IVARS))
|
||||
(PACK* '*ARG* I]
|
||||
[SETQ IVARS (for I from 0 to (SUB1 N)
|
||||
collect (OR (CDR (ASSOC I IVARS))
|
||||
(PACK* '*ARG* I]
|
||||
(RETURN (SELECTQ (fetch (FNHEADER ARGTYPE) of FNHD)
|
||||
(3 (CAR IVARS))
|
||||
IVARS])
|
||||
@@ -1742,31 +1745,33 @@
|
||||
|
||||
(ADDTOVAR LAMA APPLY* \INTERPRETER)
|
||||
)
|
||||
(PUTPROPS LLINTERP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988
|
||||
1990 1991 1992 1994 1995))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6111 23372 (\INTERPRETER 6121 . 10717) (\INTERPRETER1 10719 . 17287) (
|
||||
\SETUP-COMPILED-CLOSURE-CALL 17289 . 22436) (\STKNAME 22438 . 23370)) (23401 28813 (\ENVCALL.UFN 23411
|
||||
. 23543) (\SETUP-ENVIRONMENT-CALL 23545 . 28811)) (28852 33729 (EVAL 28862 . 28962) (\EVAL 28964 .
|
||||
29174) (\EVALFORM 29176 . 30407) (\EVALFORMASLAMBDA 30409 . 30599) (\EVALOTHER 30601 . 30808) (APPLY
|
||||
30810 . 30917) (APPLY* 30919 . 32034) (\CHECKAPPLY* 32036 . 33141) (\CKAPPLYARGS 33143 . 33486) (
|
||||
DEFEVAL 33488 . 33727)) (35573 43162 (EVALV 35583 . 35792) (\EVALV1 35794 . 35949) (\EVALVAR 35951 .
|
||||
36314) (BOUNDP 36316 . 36532) (SET 36534 . 36900) (\SETVAR 36902 . 37272) (SETQ 37274 . 37946) (
|
||||
\STKSCAN 37948 . 41612) (\SETFVARSLOT 41614 . 43160)) (43196 56203 (PROG 43206 . 45722) (\PROG0 45724
|
||||
. 49354) (\EVPROG1 49356 . 49559) (RETURN 49561 . 50102) (GO 50104 . 50919) (EVALA 50921 . 52850) (
|
||||
\EVALA 52852 . 55445) (ERRORSET 55447 . 56052) (SI::ERRORSET-PRINT-FUNCTION 56054 . 56201)) (56262
|
||||
68914 (LET 56272 . 58415) (LET* 58417 . 60565) (\LET0 60567 . 64227) (\LET* 64229 . 68912)) (68915
|
||||
70491 (QUOTE 68925 . 68956) (AND 68958 . 69166) (OR 69168 . 69416) (PROGN 69418 . 69697) (COND 69699
|
||||
. 70033) (\EVPROGN 70035 . 70248) (PROG1 70250 . 70489)) (70979 77870 (ENVEVAL 70989 . 71239) (
|
||||
ENVAPPLY 71241 . 71498) (FUNCTION 71500 . 71730) (\FUNCT1 71732 . 74181) (\MAKEFUNARGFRAME 74183 .
|
||||
76380) (STKEVAL 76382 . 76530) (STKAPPLY 76532 . 76701) (RETEVAL 76703 . 77307) (RETAPPLY 77309 .
|
||||
77868)) (77991 85499 (BLIPVAL 78001 . 81902) (SETBLIPVAL 81904 . 84646) (BLIPSCAN 84648 . 85497)) (
|
||||
85500 86195 (\REALFRAMEP 85510 . 86193)) (86571 95966 (RAIDCOMMAND 86581 . 90187) (RAIDSHOWFRAME 90189
|
||||
. 90572) (RAIDSTACKCMD 90574 . 91755) (RAIDROOTFRAME 91757 . 92019) (PRINTADDRS 92021 . 92547) (
|
||||
PRINTVA 92549 . 92694) (READVA 92696 . 92774) (READATOM 92776 . 93358) (READOCT 93360 . 93991) (
|
||||
SHOWSTACKBLOCKS 93993 . 95239) (SHOWSTACKBLOCK1 95241 . 95392) (PRINCOPY 95394 . 95526) (NOSUCHATOM
|
||||
95528 . 95964)) (95967 104595 (BACKTRACE 95977 . 96334) (\BACKTRACE 96336 . 97442) (\SCANFORNTENTRY
|
||||
97444 . 99074) (\PRINTSTK 99076 . 99263) (\PRINTFRAME 99265 . 103248) (\PRINTBF 103250 . 104593)) (
|
||||
107095 116821 (CCODEP 107105 . 107380) (EXPRP 107382 . 107641) (SUBRP 107643 . 107698) (FNTYP 107700
|
||||
. 108460) (ARGTYPE 108462 . 109076) (NARGS 109078 . 109565) (ARGLIST 109567 . 110816) (\CCODEARGLIST
|
||||
110818 . 115596) (\CCODEIVARSCAN 115598 . 116819)) (117771 120002 (CONSTANTS 117781 . 118072) (
|
||||
CONSTANTEXPRESSIONP 118074 . 120000)))))
|
||||
(FILEMAP (NIL (6409 23670 (\INTERPRETER 6419 . 11015) (\INTERPRETER1 11017 . 17585) (
|
||||
\SETUP-COMPILED-CLOSURE-CALL 17587 . 22734) (\STKNAME 22736 . 23668)) (23699 29111 (\ENVCALL.UFN 23709
|
||||
. 23841) (\SETUP-ENVIRONMENT-CALL 23843 . 29109)) (29150 34027 (EVAL 29160 . 29260) (\EVAL 29262 .
|
||||
29472) (\EVALFORM 29474 . 30705) (\EVALFORMASLAMBDA 30707 . 30897) (\EVALOTHER 30899 . 31106) (APPLY
|
||||
31108 . 31215) (APPLY* 31217 . 32332) (\CHECKAPPLY* 32334 . 33439) (\CKAPPLYARGS 33441 . 33784) (
|
||||
DEFEVAL 33786 . 34025)) (35871 43460 (EVALV 35881 . 36090) (\EVALV1 36092 . 36247) (\EVALVAR 36249 .
|
||||
36612) (BOUNDP 36614 . 36830) (SET 36832 . 37198) (\SETVAR 37200 . 37570) (SETQ 37572 . 38244) (
|
||||
\STKSCAN 38246 . 41910) (\SETFVARSLOT 41912 . 43458)) (43494 56501 (PROG 43504 . 46020) (\PROG0 46022
|
||||
. 49652) (\EVPROG1 49654 . 49857) (RETURN 49859 . 50400) (GO 50402 . 51217) (EVALA 51219 . 53148) (
|
||||
\EVALA 53150 . 55743) (ERRORSET 55745 . 56350) (SI::ERRORSET-PRINT-FUNCTION 56352 . 56499)) (56560
|
||||
69212 (LET 56570 . 58713) (LET* 58715 . 60863) (\LET0 60865 . 64525) (\LET* 64527 . 69210)) (69213
|
||||
70789 (QUOTE 69223 . 69254) (AND 69256 . 69464) (OR 69466 . 69714) (PROGN 69716 . 69995) (COND 69997
|
||||
. 70331) (\EVPROGN 70333 . 70546) (PROG1 70548 . 70787)) (71277 78168 (ENVEVAL 71287 . 71537) (
|
||||
ENVAPPLY 71539 . 71796) (FUNCTION 71798 . 72028) (\FUNCT1 72030 . 74479) (\MAKEFUNARGFRAME 74481 .
|
||||
76678) (STKEVAL 76680 . 76828) (STKAPPLY 76830 . 76999) (RETEVAL 77001 . 77605) (RETAPPLY 77607 .
|
||||
78166)) (78289 85797 (BLIPVAL 78299 . 82200) (SETBLIPVAL 82202 . 84944) (BLIPSCAN 84946 . 85795)) (
|
||||
85798 86493 (\REALFRAMEP 85808 . 86491)) (86869 96264 (RAIDCOMMAND 86879 . 90485) (RAIDSHOWFRAME 90487
|
||||
. 90870) (RAIDSTACKCMD 90872 . 92053) (RAIDROOTFRAME 92055 . 92317) (PRINTADDRS 92319 . 92845) (
|
||||
PRINTVA 92847 . 92992) (READVA 92994 . 93072) (READATOM 93074 . 93656) (READOCT 93658 . 94289) (
|
||||
SHOWSTACKBLOCKS 94291 . 95537) (SHOWSTACKBLOCK1 95539 . 95690) (PRINCOPY 95692 . 95824) (NOSUCHATOM
|
||||
95826 . 96262)) (96265 104893 (BACKTRACE 96275 . 96632) (\BACKTRACE 96634 . 97740) (\SCANFORNTENTRY
|
||||
97742 . 99372) (\PRINTSTK 99374 . 99561) (\PRINTFRAME 99563 . 103546) (\PRINTBF 103548 . 104891)) (
|
||||
107393 116737 (CCODEP 107403 . 107678) (EXPRP 107680 . 107939) (SUBRP 107941 . 107996) (FNTYP 107998
|
||||
. 108758) (ARGTYPE 108760 . 109374) (NARGS 109376 . 109863) (ARGLIST 109865 . 111114) (\CCODEARGLIST
|
||||
111116 . 115512) (\CCODEIVARSCAN 115514 . 116735)) (117687 119918 (CONSTANTS 117697 . 117988) (
|
||||
CONSTANTEXPRESSIONP 117990 . 119916)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user