github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-26 10:32:48 +00:00
Code Issues Projects Releases Wiki Activity

Abstracting meta and function charcodes (#425)

Browse Source 
* TTYIN: Meta chars defined by Meta charset, not specific value 1

Also, changed \TTYIN.RPEOF to use \FORMATBYTESTREAM generic function so that it does not make assumptions about the stream's external format

* LLKEY:  Respecify 535 as "Function,^W" in \ORIGKEYACTIONS

First step in anticipating moving meta and signaling characters to unoccupied parts of the Unicode code space

* Have to commit the build artifacts in order to unstash changes

* CMLSTRING:  No change, just upgrade filemap for CL Functions

* LLREAD: A little tighter on CHARCODE.DECODE

Allow hex and unicode in comma-separated specs, but must have 0X or U+ indicator.  Don't allow junk characters

* LLKEY:  Revert attempt at Meta,x and Function,x

For unknown reason, CHARTABLE isn't declared when LLREAD appears in loadup sequence.

* Unicode:  Unicode character-constants weren't properly prefixed

Needed U+ or x0

* THINFILES (again): Add version number for mis-ordered HELP

* ATBL: Change 1,0...1,377 to Meta,0...Meta,377

In anticipation of a future migration of the meta charset.

* TEDITFNKEYS:  Convert 1,x 2,x to Meta,x Function,x

In anticipation of eventual deconfliction with Unicode

* FILEBROWSER: remove reference to reader-environment field, add fix-directory-dates

Added a new submenu item under Recompute to make directory dates match the filecreated dates for Medley source/compiled files.

* SEDIT-COMMANDS:  1/2 to Meta/Function in Sedit commands

Codes in the 512+ range are now Function, anticipating eventual code-space translation

* FILEPKG:   Consistency of exports.all external format
This commit is contained in:
rmkaplan
2021-08-24 11:05:38 -07:00
committed by GitHub
parent c62ad47730
commit 7b5541a417
30 changed files with 3389 additions and 2690 deletions
Download Patch File Download Diff File Expand all files Collapse all files

134
library/FILEBROWSER
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
(FILECREATED " 9-Jul-2021 23:09:57" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;4| 262331
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "21-Aug-2021 23:33:58" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;9| 263236
|changes| |to:| (FNS FB.EDITCOMMAND.ONEFILE)
|changes| |to:| (FNS FB.FIX-DIRECTORY-DATES)
|previous| |date:| "27-Feb-2021 20:08:26"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;2|)
|previous| |date:| "21-Aug-2021 23:08:34"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;7|)
; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
@@ -159,6 +159,10 @@ You specify how many versions to keep.")))
)
("Shape to Fit" FB.SHAPECOMMAND
"Widen or narrow the browser so that all information is visible"
)
("Fix directory dates" FB.FIX-DIRECTORY-DATES
"Ensure that directory dates match FILECREATED dates"
)))
(|Sort| FB.SORTCOMMAND
"Sorts all the files in the browser by the attribute of your choice"
@@ -188,8 +192,8 @@ You specify how many versions to keep.")))
(FNS FB.EDITCOMMAND FB.EDITCOMMAND.ONEFILE FB.EDITLISPFILE FB.BROWSECOMMAND)
(FNS FB.FASTSEECOMMAND FB.FASTSEE.ONEFILE FB.SEEFULLFN FB.SEEBUTTONFN)
(FNS FB.LOADCOMMAND FB.COMPILECOMMAND FB.OPERATE.ON.FILES)
(FNS FB.UPDATECOMMAND FB.MAYBE.EXPUNGE FB.UPDATEBROWSERITEMS FB.DATE
FB.ADJUST.DATE.WIDTH FB.SET.BROWSER.TITLE FB.MAYBE.WIDEN.NAMES
(FNS FB.UPDATECOMMAND FB.FIX-DIRECTORY-DATES FB.MAYBE.EXPUNGE FB.UPDATEBROWSERITEMS
FB.DATE FB.ADJUST.DATE.WIDTH FB.SET.BROWSER.TITLE FB.MAYBE.WIDEN.NAMES
FB.SET.DEFAULT.NAME.WIDTH FB.CREATE.FILEBUCKET FB.CHECK.NAME.LENGTH
FB.ADD.FILEGROUP FB.INSERT.DIRECTORY FB.MAKE.SUBDIRECTORY.ITEM FB.ADD.FILE
FB.INSERT.FILE FB.ANALYZE.PATTERN FB.CANONICALIZE.PATTERN FB.GETALLFILEINFO)
@@ -382,7 +386,9 @@ You specify how many versions to keep.")))
"Change the depth to which future Recomputes will enumerate the directory (NS servers only)"
)
("Shape to Fit" FB.SHAPECOMMAND
"Widen or narrow the browser so that all information is visible")))
"Widen or narrow the browser so that all information is visible")
("Fix directory dates" FB.FIX-DIRECTORY-DATES
"Ensure that directory dates match FILECREATED dates")))
(|Sort| FB.SORTCOMMAND "Sorts all the files in the browser by the attribute of your choice")
))
@@ -1678,8 +1684,8 @@ Your deletions are thus ignored.")))
ELSE (FB.FASTSEECOMMAND BROWSER KEY ITEM MENU)))))
(FB.EDITCOMMAND.ONEFILE
(LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; "Edited 9-Jul-2021 23:08 by rmk:")
(* \; "Edited 27-Feb-2021 20:07 by rmk:")
(LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; "Edited 8-Aug-2021 11:16 by rmk:")
(* \; "Edited 27-Feb-2021 20:07 by rmk:")
(* \; "Edited 1-Feb-88 19:00 by bvm:")
(* |;;| "Called when we know that FILE is a file, not a directory, and that TEDIT exists. If OPTION is READONLY, we don't want to edit, just view. If FILE is a lisp sourcefile, we execute the font changes by COPY.TEXT.TO.IMAGE.")
@@ -1707,9 +1713,7 @@ Your deletions are thus ignored.")))
(CL:WITH-OPEN-FILE
(STREAM FILE :DIRECTION :INPUT)
(LET ((NSTR (OPENTEXTSTREAM)))
(\\EXTERNALFORMAT STREAM (FETCH (READER-ENVIRONMENT
REFORMAT)
OF ENV))
(\\EXTERNALFORMAT STREAM ENV)
(COPY.TEXT.TO.IMAGE STREAM NSTR)
(* |;;| "Unshade the item before we create the TEDIT window, and tell FB.FINISH.COMMAND that we did that. That way, the FB window won't pop up on top.")
@@ -2088,6 +2092,15 @@ Your deletions are thus ignored.")))
((FB.MAYBE.EXPUNGE BROWSER '|Recompute|)
(FB.UPDATEBROWSERITEMS BROWSER)))))
(FB.FIX-DIRECTORY-DATES
(LAMBDA (BROWSER) (* \; "Edited 21-Aug-2021 23:33 by rmk:")
(FOR F FD CHANGE IN (FILDIR (FETCH (FILEBROWSER PATTERN) OF BROWSER))
WHEN (SETQ FD (FILEDATE F)) UNLESS (IEQP (SETQ FD (IDATE FD))
(GETFILEINFO F 'ICREATIONDATE))
DO (SETQ CHANGE T)
(SETFILEINFO F 'ICREATIONDATE FD) FINALLY (CL:WHEN CHANGE (FB.UPDATECOMMAND
BROWSER)))))
(FB.MAYBE.EXPUNGE
(LAMBDA (BROWSER COMMAND) (* \; "Edited 22-Feb-2021 12:33 by rmk:")
(* |bvm:| "27-Sep-85 12:30")
@@ -4224,50 +4237,51 @@ then click Recompute"))))
(PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990
1991 1993 1994 1999 2000 2001 2021))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (28124 50760 (FB 28134 . 29090) (FB.COPYBINARYCOMMAND 29092 . 29438) (FB.COPYTEXTCOMMAND
29440 . 29782) (FILEBROWSER 29784 . 42890) (FB.TABLEBROWSER 42892 . 43109) (FB.SELECTEDFILES 43111 .
43748) (FB.FETCHFILENAME 43750 . 44142) (FB.DIRECTORYP 44144 . 44472) (FB.PROMPTWPRINT 44474 . 45520)
(FB.PROMPTW.FORMAT 45522 . 46259) (FB.PROMPTFORINPUT 46261 . 48513) (FB.YES-OR-NO-P 48515 . 49549) (
FB.ALLOW.ABORT 49551 . 50405) (\\FB.HARDCOPY.TOFILE.EXTENSION 50407 . 50758)) (50784 51737 (FB.STARTUP
50794 . 51309) (FB.MAKERIGIDWINDOW 51311 . 51735)) (51738 57110 (FB.PRINTFN 51748 . 56901) (FB.COPYFN
56903 . 57108)) (57160 63202 (FB.MENU.WHENSELECTEDFN 57170 . 57528) (FB.COMMANDSELECTEDFN 57530 .
59069) (FB.SUBITEMP 59071 . 59506) (FB.MAKE.BROWSER.BUSY 59508 . 60246) (FB.FINISH.COMMAND 60248 .
62213) (FB.HANDLE.ABORT.BUTTON 62215 . 63200)) (63203 68719 (FB.DELETECOMMAND 63213 . 63494) (
FB.DELVERCOMMAND 63496 . 66689) (FB.IS.NOT.SUBDIRECTORY.ITEM 66691 . 66872) (FB.DELVER.FILES 66874 .
67963) (FB.DELETE.FILE 67965 . 68717)) (68720 70045 (FB.UNDELETECOMMAND 68730 . 69015) (
FB.UNDELETEALLCOMMAND 69017 . 69296) (FB.UNDELETE.FILE 69298 . 70043)) (70046 94227 (FB.COPYCOMMAND
70056 . 70325) (FB.RENAMECOMMAND 70327 . 70602) (FB.COPY/RENAME.COMMAND 70604 . 71527) (
FB.COPY/RENAME.ONE 71529 . 73851) (FB.COPY/RENAME.MANY 73853 . 80073) (FB.MERGE.DIRECTORIES 80075 .
80493) (FB.GREATEST.PREFIX 80495 . 81851) (FB.MAYBE.INSERT.FILE 81853 . 89293) (FB.GET.NEW.FILE.SPEC
89295 . 93126) (FB.CANONICAL.DIRECTORY 93128 . 94225)) (94228 102012 (FB.HARDCOPYCOMMAND 94238 . 95368
) (FB.HARDCOPY.TOFILE 95370 . 102010)) (102013 114649 (FB.EDITCOMMAND 102023 . 102824) (
FB.EDITCOMMAND.ONEFILE 102826 . 108865) (FB.EDITLISPFILE 108867 . 109906) (FB.BROWSECOMMAND 109908 .
114647)) (114650 126443 (FB.FASTSEECOMMAND 114660 . 118110) (FB.FASTSEE.ONEFILE 118112 . 121141) (
FB.SEEFULLFN 121143 . 125274) (FB.SEEBUTTONFN 125276 . 126441)) (126444 128190 (FB.LOADCOMMAND 126454
. 126961) (FB.COMPILECOMMAND 126963 . 127501) (FB.OPERATE.ON.FILES 127503 . 128188)) (128191 175240 (
FB.UPDATECOMMAND 128201 . 128426) (FB.MAYBE.EXPUNGE 128428 . 129423) (FB.UPDATEBROWSERITEMS 129425 .
142640) (FB.DATE 142642 . 143383) (FB.ADJUST.DATE.WIDTH 143385 . 146353) (FB.SET.BROWSER.TITLE 146355
. 147212) (FB.MAYBE.WIDEN.NAMES 147214 . 149333) (FB.SET.DEFAULT.NAME.WIDTH 149335 . 150699) (
FB.CREATE.FILEBUCKET 150701 . 157921) (FB.CHECK.NAME.LENGTH 157923 . 160344) (FB.ADD.FILEGROUP 160346
. 161873) (FB.INSERT.DIRECTORY 161875 . 162113) (FB.MAKE.SUBDIRECTORY.ITEM 162115 . 163524) (
FB.ADD.FILE 163526 . 164139) (FB.INSERT.FILE 164141 . 167553) (FB.ANALYZE.PATTERN 167555 . 172819) (
FB.CANONICALIZE.PATTERN 172821 . 174133) (FB.GETALLFILEINFO 174135 . 175238)) (175241 183400 (
FB.SORT.VERSIONS 175251 . 178022) (FB.DECREASING.VERSION 178024 . 178693) (FB.INCREASING.VERSION
178695 . 179316) (FB.NAMES.DECREASING.VERSION 179318 . 180353) (FB.NAMES.INCREASING.VERSION 180355 .
181352) (FB.DECREASING.NUMERIC.ATTR 181354 . 182034) (FB.INCREASING.NUMERIC.ATTR 182036 . 182710) (
FB.ALPHABETIC.ATTR 182712 . 183398)) (183401 193243 (FB.SORTCOMMAND 183411 . 190241) (
FB.INSERT.SUBDIRECTORIES 190243 . 191040) (FB.GET.SORT.MENU 191042 . 193241)) (193244 209333 (
FB.EXPUNGECOMMAND 193254 . 195773) (FB.NEWPATTERNCOMMAND 195775 . 196173) (FB.NEWINFOCOMMAND 196175 .
198941) (FB.DEPTHCOMMAND 198943 . 200718) (FB.SHAPECOMMAND 200720 . 204062) (FB.REMOVE.FILE 204064 .
205885) (FB.COUNT.FILE.CHANGE 205887 . 207332) (FB.SETNEWPATTERN 207334 . 208504) (FB.GET.NEWPATTERN
208506 . 209090) (FB.OPTIONSCOMMAND 209092 . 209331)) (209368 210380 (
FB.INFOMENU.SHADEINITIALSELECTIONS 209378 . 210025) (FB.INFO.ITEM.NAMED 210027 . 210378)) (210381
219847 (FB.MAKECOUNTERWINDOW 210391 . 211853) (FB.COUNTERW.REDISPLAYFN 211855 . 212442) (
FB.UPDATE.COUNTERS 212444 . 214516) (FB.DISPLAY.COUNTERS 214518 . 219578) (FB.COUNTER.STRING 219580 .
219845)) (219848 224491 (FB.MAKEHEADINGWINDOW 219858 . 221406) (FB.HEADINGW.REDISPLAYFN 221408 .
221674) (FB.HEADINGW.RESHAPEFN 221676 . 222052) (FB.HEADINGW.DISPLAY 222054 . 224489)) (224492 228675
(FB.ICONFN 224502 . 224849) (FB.INFOMENU.WHENSELECTEDFN 224851 . 225581) (FB.CLOSEFN 225583 . 226786)
(FB.EXPUNGE?.MENU 226788 . 227200) (FB.AFTERCLOSEFN 227202 . 227563) (FB.CLOSE&EXPUNGE 227565 . 228673
)) (228676 240734 (FB.HARDCOPY.DIRECTORY 228686 . 239043) (FB.HARDCOPY.PRINT.TITLE 239045 . 239371) (
FB.HARDCOPY.MAXWIDTH 239373 . 240732)))))
(FILEMAP (NIL (28618 51254 (FB 28628 . 29584) (FB.COPYBINARYCOMMAND 29586 . 29932) (FB.COPYTEXTCOMMAND
29934 . 30276) (FILEBROWSER 30278 . 43384) (FB.TABLEBROWSER 43386 . 43603) (FB.SELECTEDFILES 43605 .
44242) (FB.FETCHFILENAME 44244 . 44636) (FB.DIRECTORYP 44638 . 44966) (FB.PROMPTWPRINT 44968 . 46014)
(FB.PROMPTW.FORMAT 46016 . 46753) (FB.PROMPTFORINPUT 46755 . 49007) (FB.YES-OR-NO-P 49009 . 50043) (
FB.ALLOW.ABORT 50045 . 50899) (\\FB.HARDCOPY.TOFILE.EXTENSION 50901 . 51252)) (51278 52231 (FB.STARTUP
51288 . 51803) (FB.MAKERIGIDWINDOW 51805 . 52229)) (52232 57604 (FB.PRINTFN 52242 . 57395) (FB.COPYFN
57397 . 57602)) (57654 63696 (FB.MENU.WHENSELECTEDFN 57664 . 58022) (FB.COMMANDSELECTEDFN 58024 .
59563) (FB.SUBITEMP 59565 . 60000) (FB.MAKE.BROWSER.BUSY 60002 . 60740) (FB.FINISH.COMMAND 60742 .
62707) (FB.HANDLE.ABORT.BUTTON 62709 . 63694)) (63697 69213 (FB.DELETECOMMAND 63707 . 63988) (
FB.DELVERCOMMAND 63990 . 67183) (FB.IS.NOT.SUBDIRECTORY.ITEM 67185 . 67366) (FB.DELVER.FILES 67368 .
68457) (FB.DELETE.FILE 68459 . 69211)) (69214 70539 (FB.UNDELETECOMMAND 69224 . 69509) (
FB.UNDELETEALLCOMMAND 69511 . 69790) (FB.UNDELETE.FILE 69792 . 70537)) (70540 94721 (FB.COPYCOMMAND
70550 . 70819) (FB.RENAMECOMMAND 70821 . 71096) (FB.COPY/RENAME.COMMAND 71098 . 72021) (
FB.COPY/RENAME.ONE 72023 . 74345) (FB.COPY/RENAME.MANY 74347 . 80567) (FB.MERGE.DIRECTORIES 80569 .
80987) (FB.GREATEST.PREFIX 80989 . 82345) (FB.MAYBE.INSERT.FILE 82347 . 89787) (FB.GET.NEW.FILE.SPEC
89789 . 93620) (FB.CANONICAL.DIRECTORY 93622 . 94719)) (94722 102506 (FB.HARDCOPYCOMMAND 94732 . 95862
) (FB.HARDCOPY.TOFILE 95864 . 102504)) (102507 114945 (FB.EDITCOMMAND 102517 . 103318) (
FB.EDITCOMMAND.ONEFILE 103320 . 109161) (FB.EDITLISPFILE 109163 . 110202) (FB.BROWSECOMMAND 110204 .
114943)) (114946 126739 (FB.FASTSEECOMMAND 114956 . 118406) (FB.FASTSEE.ONEFILE 118408 . 121437) (
FB.SEEFULLFN 121439 . 125570) (FB.SEEBUTTONFN 125572 . 126737)) (126740 128486 (FB.LOADCOMMAND 126750
. 127257) (FB.COMPILECOMMAND 127259 . 127797) (FB.OPERATE.ON.FILES 127799 . 128484)) (128487 176145 (
FB.UPDATECOMMAND 128497 . 128722) (FB.FIX-DIRECTORY-DATES 128724 . 129331) (FB.MAYBE.EXPUNGE 129333 .
130328) (FB.UPDATEBROWSERITEMS 130330 . 143545) (FB.DATE 143547 . 144288) (FB.ADJUST.DATE.WIDTH 144290
. 147258) (FB.SET.BROWSER.TITLE 147260 . 148117) (FB.MAYBE.WIDEN.NAMES 148119 . 150238) (
FB.SET.DEFAULT.NAME.WIDTH 150240 . 151604) (FB.CREATE.FILEBUCKET 151606 . 158826) (
FB.CHECK.NAME.LENGTH 158828 . 161249) (FB.ADD.FILEGROUP 161251 . 162778) (FB.INSERT.DIRECTORY 162780
. 163018) (FB.MAKE.SUBDIRECTORY.ITEM 163020 . 164429) (FB.ADD.FILE 164431 . 165044) (FB.INSERT.FILE
165046 . 168458) (FB.ANALYZE.PATTERN 168460 . 173724) (FB.CANONICALIZE.PATTERN 173726 . 175038) (
FB.GETALLFILEINFO 175040 . 176143)) (176146 184305 (FB.SORT.VERSIONS 176156 . 178927) (
FB.DECREASING.VERSION 178929 . 179598) (FB.INCREASING.VERSION 179600 . 180221) (
FB.NAMES.DECREASING.VERSION 180223 . 181258) (FB.NAMES.INCREASING.VERSION 181260 . 182257) (
FB.DECREASING.NUMERIC.ATTR 182259 . 182939) (FB.INCREASING.NUMERIC.ATTR 182941 . 183615) (
FB.ALPHABETIC.ATTR 183617 . 184303)) (184306 194148 (FB.SORTCOMMAND 184316 . 191146) (
FB.INSERT.SUBDIRECTORIES 191148 . 191945) (FB.GET.SORT.MENU 191947 . 194146)) (194149 210238 (
FB.EXPUNGECOMMAND 194159 . 196678) (FB.NEWPATTERNCOMMAND 196680 . 197078) (FB.NEWINFOCOMMAND 197080 .
199846) (FB.DEPTHCOMMAND 199848 . 201623) (FB.SHAPECOMMAND 201625 . 204967) (FB.REMOVE.FILE 204969 .
206790) (FB.COUNT.FILE.CHANGE 206792 . 208237) (FB.SETNEWPATTERN 208239 . 209409) (FB.GET.NEWPATTERN
209411 . 209995) (FB.OPTIONSCOMMAND 209997 . 210236)) (210273 211285 (
FB.INFOMENU.SHADEINITIALSELECTIONS 210283 . 210930) (FB.INFO.ITEM.NAMED 210932 . 211283)) (211286
220752 (FB.MAKECOUNTERWINDOW 211296 . 212758) (FB.COUNTERW.REDISPLAYFN 212760 . 213347) (
FB.UPDATE.COUNTERS 213349 . 215421) (FB.DISPLAY.COUNTERS 215423 . 220483) (FB.COUNTER.STRING 220485 .
220750)) (220753 225396 (FB.MAKEHEADINGWINDOW 220763 . 222311) (FB.HEADINGW.REDISPLAYFN 222313 .
222579) (FB.HEADINGW.RESHAPEFN 222581 . 222957) (FB.HEADINGW.DISPLAY 222959 . 225394)) (225397 229580
(FB.ICONFN 225407 . 225754) (FB.INFOMENU.WHENSELECTEDFN 225756 . 226486) (FB.CLOSEFN 226488 . 227691)
(FB.EXPUNGE?.MENU 227693 . 228105) (FB.AFTERCLOSEFN 228107 . 228468) (FB.CLOSE&EXPUNGE 228470 . 229578
)) (229581 241639 (FB.HARDCOPY.DIRECTORY 229591 . 239948) (FB.HARDCOPY.PRINT.TITLE 239950 . 240276) (
FB.HARDCOPY.MAXWIDTH 240278 . 241637)))))
STOP

BIN
library/FILEBROWSER.LCOM
View File

Binary file not shown.

6
library/RDSYS
View File

@@ -1,5 +1,9 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
(FILECREATED "30-Jul-2021 13:12:07" |{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;8|
<<<<<<< Updated upstream
(FILECREATED "19-Aug-2021 12:07:05" |{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;68|
=======
(FILECREATED " 5-Aug-2021 21:03:51" |{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;17|
>>>>>>> Stashed changes
)

BIN
library/RDSYS.LCOM
View File

Binary file not shown.

215
library/TEDITFNKEYS
View File

@@ -1,16 +1,15 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-May-2018 17:15:13" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>library>TEDITFNKEYS.;10 30302
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 8-Aug-2021 21:28:17" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;2 30663
changes to%: (VARS TEDITFNKEYSCOMS)
(FNS \TEDIT.FIND \TEDIT.FINDAGAIN)
previous date%: " 6-May-2018 17:07:57"
{DSK}<Users>kaplan>Local>medley3.5>lispcore>library>TEDITFNKEYS.;9)
previous date%: " 6-May-2018 17:15:13"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;1)
(* ; "
Copyright (c) 1985, 1986, 1987, 1990, 1991, 1994, 2018 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1985-1987, 1990-1991, 1994, 2018, 2021 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT TEDITFNKEYSCOMS)
@@ -41,48 +40,48 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1994, 2018 by Venue & Xerox Corporat
 "little selection utilities etc., for building hacks")
(FNS \SEL.LIMIT \SEL.LINEDESC \TK.DESCRIBEFONT \PARAS.IN.SEL))
[VARS (TEDIT.FNKEY.VERBOSE T)
(\TEDIT.KEYS '(("2,4" UNDO)
("2,44" UNDO)
("2,3" FN \TEDIT.FIND)
("2,43" FN \TEDIT.FIND)
("2,10" REDO)
("2,50" REDO)
("2,22" NEXT)
("2,62" NEXT)
(ESC EXPAND)
("2,24" EXPAND)
("2,101" FN \TEDIT.CENTER.SEL)
("2,141" FN \TEDIT.CENTER.SEL.REV)
("2,102" FN \TEDIT.BOLD.SEL.ON)
("2,142" FN \TEDIT.BOLD.SEL.OFF)
("2,103" FN \TEDIT.ITALIC.SEL.ON)
("2,143" FN \TEDIT.ITALIC.SEL.OFF)
("2,104" FN \TEDIT.UCASE.SEL)
("2,144" FN \TEDIT.LCASE.SEL)
("2,105" FN \TEDIT.STRIKEOUT.SEL.ON)
("2,145" FN \TEDIT.STRIKEOUT.SEL.OFF)
("2,106" FN \TEDIT.UNDERLINE.SEL.ON)
("2,146" FN \TEDIT.UNDERLINE.SEL.OFF)
("2,107" FN \TEDIT.SUBSCRIPTSEL)
("2,147" FN \TEDIT.SUPERSCRIPTSEL)
("2,110" FN \TEDIT.SMALLERSEL)
("2,150" FN \TEDIT.LARGERSEL)
("2,113" FN \TEDIT.SUPERSCRIPTSEL)
("2,153" FN \TEDIT.SUBSCRIPTSEL)
("2,114" FN \TEDIT.SUBSCRIPTSEL)
("2,154" FN \TEDIT.SUPERSCRIPTSEL)
("2,115" FN \TEDIT.DEFAULTSSEL)
("2,155" FN \TEDIT.SETDEFAULT.FROM.SEL)
("2,1" FN \TEDIT.SHOWCARETLOOKS)
("1,U" UNDO)
("1,u" UNDO)
("1,z" UNDO)
("1,Z" UNDO)
("1,F" FN \TEDIT.FIND)
("1,f" FN \TEDIT.FIND)
("1,a" FN \TEDIT.SELECT.ALL)
("1,A" FN \TEDIT.SELECT.ALL)
("1,g" FN \TEDIT.FINDAGAIN]
(\TEDIT.KEYS '(("Function,^D" UNDO)
("Function,$" UNDO)
("Function,^C" FN \TEDIT.FIND)
("Function,#" FN \TEDIT.FIND)
("Function,Bs" REDO)
("Function,(" REDO)
("Function,^R" NEXT)
("Function,62" NEXT)
("Esc" EXPAND)
("Function,^T" EXPAND)
("Function,A" FN \TEDIT.CENTER.SEL)
("Function,a" FN \TEDIT.CENTER.SEL.REV)
("Function,B" FN \TEDIT.BOLD.SEL.ON)
("Function,b" FN \TEDIT.BOLD.SEL.OFF)
("Function,C" FN \TEDIT.ITALIC.SEL.ON)
("Function,c" FN \TEDIT.ITALIC.SEL.OFF)
("Function,D" FN \TEDIT.UCASE.SEL)
("Function,d" FN \TEDIT.LCASE.SEL)
("Function,E" FN \TEDIT.STRIKEOUT.SEL.ON)
("Function,e" FN \TEDIT.STRIKEOUT.SEL.OFF)
("Function,F" FN \TEDIT.UNDERLINE.SEL.ON)
("Function,f" FN \TEDIT.UNDERLINE.SEL.OFF)
("Function,G" FN \TEDIT.SUBSCRIPTSEL)
("Function,g" FN \TEDIT.SUPERSCRIPTSEL)
("Function,H" FN \TEDIT.SMALLERSEL)
("Function,h" FN \TEDIT.LARGERSEL)
("Function,K" FN \TEDIT.SUPERSCRIPTSEL)
("Function,k" FN \TEDIT.SUBSCRIPTSEL)
("Function,L" FN \TEDIT.SUBSCRIPTSEL)
("Function,l" FN \TEDIT.SUPERSCRIPTSEL)
("Function,M" FN \TEDIT.DEFAULTSSEL)
("Function,m" FN \TEDIT.SETDEFAULT.FROM.SEL)
("Function,^A" FN \TEDIT.SHOWCARETLOOKS)
("Meta,U" UNDO)
("Meta,u" UNDO)
("Meta,z" UNDO)
("Meta,Z" UNDO)
("Meta,F" FN \TEDIT.FIND)
("Meta,f" FN \TEDIT.FIND)
("Meta,a" FN \TEDIT.SELECT.ALL)
("Meta,A" FN \TEDIT.SELECT.ALL)
("Meta,g" FN \TEDIT.FINDAGAIN]
[P (MAPC \TEDIT.KEYS (FUNCTION (LAMBDA (ENTRY)
(SELECTQ (CADR ENTRY)
(FN (TEDIT.SETFUNCTION (CAR ENTRY)
@@ -565,48 +564,48 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1994, 2018 by Venue & Xerox Corporat
(RPAQQ TEDIT.FNKEY.VERBOSE T)
(RPAQQ \TEDIT.KEYS
(("2,4" UNDO)
("2,44" UNDO)
("2,3" FN \TEDIT.FIND)
("2,43" FN \TEDIT.FIND)
("2,10" REDO)
("2,50" REDO)
("2,22" NEXT)
("2,62" NEXT)
(ESC EXPAND)
("2,24" EXPAND)
("2,101" FN \TEDIT.CENTER.SEL)
("2,141" FN \TEDIT.CENTER.SEL.REV)
("2,102" FN \TEDIT.BOLD.SEL.ON)
("2,142" FN \TEDIT.BOLD.SEL.OFF)
("2,103" FN \TEDIT.ITALIC.SEL.ON)
("2,143" FN \TEDIT.ITALIC.SEL.OFF)
("2,104" FN \TEDIT.UCASE.SEL)
("2,144" FN \TEDIT.LCASE.SEL)
("2,105" FN \TEDIT.STRIKEOUT.SEL.ON)
("2,145" FN \TEDIT.STRIKEOUT.SEL.OFF)
("2,106" FN \TEDIT.UNDERLINE.SEL.ON)
("2,146" FN \TEDIT.UNDERLINE.SEL.OFF)
("2,107" FN \TEDIT.SUBSCRIPTSEL)
("2,147" FN \TEDIT.SUPERSCRIPTSEL)
("2,110" FN \TEDIT.SMALLERSEL)
("2,150" FN \TEDIT.LARGERSEL)
("2,113" FN \TEDIT.SUPERSCRIPTSEL)
("2,153" FN \TEDIT.SUBSCRIPTSEL)
("2,114" FN \TEDIT.SUBSCRIPTSEL)
("2,154" FN \TEDIT.SUPERSCRIPTSEL)
("2,115" FN \TEDIT.DEFAULTSSEL)
("2,155" FN \TEDIT.SETDEFAULT.FROM.SEL)
("2,1" FN \TEDIT.SHOWCARETLOOKS)
("1,U" UNDO)
("1,u" UNDO)
("1,z" UNDO)
("1,Z" UNDO)
("1,F" FN \TEDIT.FIND)
("1,f" FN \TEDIT.FIND)
("1,a" FN \TEDIT.SELECT.ALL)
("1,A" FN \TEDIT.SELECT.ALL)
("1,g" FN \TEDIT.FINDAGAIN)))
(("Function,^D" UNDO)
("Function,$" UNDO)
("Function,^C" FN \TEDIT.FIND)
("Function,#" FN \TEDIT.FIND)
("Function,Bs" REDO)
("Function,(" REDO)
("Function,^R" NEXT)
("Function,62" NEXT)
("Esc" EXPAND)
("Function,^T" EXPAND)
("Function,A" FN \TEDIT.CENTER.SEL)
("Function,a" FN \TEDIT.CENTER.SEL.REV)
("Function,B" FN \TEDIT.BOLD.SEL.ON)
("Function,b" FN \TEDIT.BOLD.SEL.OFF)
("Function,C" FN \TEDIT.ITALIC.SEL.ON)
("Function,c" FN \TEDIT.ITALIC.SEL.OFF)
("Function,D" FN \TEDIT.UCASE.SEL)
("Function,d" FN \TEDIT.LCASE.SEL)
("Function,E" FN \TEDIT.STRIKEOUT.SEL.ON)
("Function,e" FN \TEDIT.STRIKEOUT.SEL.OFF)
("Function,F" FN \TEDIT.UNDERLINE.SEL.ON)
("Function,f" FN \TEDIT.UNDERLINE.SEL.OFF)
("Function,G" FN \TEDIT.SUBSCRIPTSEL)
("Function,g" FN \TEDIT.SUPERSCRIPTSEL)
("Function,H" FN \TEDIT.SMALLERSEL)
("Function,h" FN \TEDIT.LARGERSEL)
("Function,K" FN \TEDIT.SUPERSCRIPTSEL)
("Function,k" FN \TEDIT.SUBSCRIPTSEL)
("Function,L" FN \TEDIT.SUBSCRIPTSEL)
("Function,l" FN \TEDIT.SUPERSCRIPTSEL)
("Function,M" FN \TEDIT.DEFAULTSSEL)
("Function,m" FN \TEDIT.SETDEFAULT.FROM.SEL)
("Function,^A" FN \TEDIT.SHOWCARETLOOKS)
("Meta,U" UNDO)
("Meta,u" UNDO)
("Meta,z" UNDO)
("Meta,Z" UNDO)
("Meta,F" FN \TEDIT.FIND)
("Meta,f" FN \TEDIT.FIND)
("Meta,a" FN \TEDIT.SELECT.ALL)
("Meta,A" FN \TEDIT.SELECT.ALL)
("Meta,g" FN \TEDIT.FINDAGAIN)))
[MAPC \TEDIT.KEYS (FUNCTION (LAMBDA (ENTRY)
(SELECTQ (CADR ENTRY)
@@ -626,22 +625,22 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1994, 2018 by Venue & Xerox Corporat
(* ; "Changed by yabu.fx, for SUNLOADUP without DWIM.")
(PUTPROPS TEDITFNKEYS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1994 2018))
(PUTPROPS TEDITFNKEYS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1994 2018 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5707 18741 (\TEDIT.BOLD.SEL.OFF 5717 . 6056) (\TEDIT.BOLD.SEL.ON 6058 . 6387) (
\TEDIT.CENTER.SEL 6389 . 7444) (\TEDIT.CENTER.SEL.REV 7446 . 8526) (\TEDIT.DEFAULTS.CARET 8528 . 8812)
(\TEDIT.DEFAULTSSEL 8814 . 9137) (\TEDIT.SETDEFAULT.FROM.SEL 9139 . 9578) (\TEDIT.FIND 9580 . 12943)
(\TEDIT.FINDAGAIN 12945 . 13119) (\TEDIT.ITALIC.SEL.OFF 13121 . 13363) (\TEDIT.ITALIC.SEL.ON 13365 .
13548) (\TEDIT.LARGERSEL 13550 . 13845) (\TEDIT.LCASE.SEL 13847 . 14598) (\TEDIT.SHOWCARETLOOKS 14600
. 16240) (\TEDIT.SMALLERSEL 16242 . 16540) (\TEDIT.SUBSCRIPTSEL 16542 . 16746) (\TEDIT.SUPERSCRIPTSEL
16748 . 16953) (\TEDIT.UCASE.SEL 16955 . 17762) (\TEDIT.UNDERLINE.SEL.OFF 17764 . 17952) (
\TEDIT.UNDERLINE.SEL.ON 17954 . 18140) (\TEDIT.STRIKEOUT.SEL.ON 18142 . 18328) (
\TEDIT.STRIKEOUT.SEL.OFF 18330 . 18518) (\TEDIT.SELECT.ALL 18520 . 18739)) (18813 24253 (
\TEDIT.BOLD.CARET.OFF 18823 . 19271) (\TEDIT.BOLD.CARET.ON 19273 . 19718) (\TEDIT.ITALIC.CARET.OFF
19720 . 20170) (\TEDIT.ITALIC.CARET.ON 20172 . 20620) (\TEDIT.LARGER.CARET 20622 . 21070) (
\TEDIT.SMALLER.CARET 21072 . 21522) (\TEDIT.SUBSCRIPT.CARET 21524 . 21978) (\TEDIT.SUPERSCRIPT.CARET
21980 . 22435) (\TEDIT.UNDERLINE.CARET.OFF 22437 . 22890) (\TEDIT.UNDERLINE.CARET.ON 22892 . 23343) (
\TEDIT.STRIKEOUT.CARET.OFF 23345 . 23798) (\TEDIT.STRIKEOUT.CARET.ON 23800 . 24251)) (24322 28070 (
\SEL.LIMIT 24332 . 24770) (\SEL.LINEDESC 24772 . 25368) (\TK.DESCRIBEFONT 25370 . 26085) (
\PARAS.IN.SEL 26087 . 28068)))))
(FILEMAP (NIL (5854 18888 (\TEDIT.BOLD.SEL.OFF 5864 . 6203) (\TEDIT.BOLD.SEL.ON 6205 . 6534) (
\TEDIT.CENTER.SEL 6536 . 7591) (\TEDIT.CENTER.SEL.REV 7593 . 8673) (\TEDIT.DEFAULTS.CARET 8675 . 8959)
(\TEDIT.DEFAULTSSEL 8961 . 9284) (\TEDIT.SETDEFAULT.FROM.SEL 9286 . 9725) (\TEDIT.FIND 9727 . 13090)
(\TEDIT.FINDAGAIN 13092 . 13266) (\TEDIT.ITALIC.SEL.OFF 13268 . 13510) (\TEDIT.ITALIC.SEL.ON 13512 .
13695) (\TEDIT.LARGERSEL 13697 . 13992) (\TEDIT.LCASE.SEL 13994 . 14745) (\TEDIT.SHOWCARETLOOKS 14747
. 16387) (\TEDIT.SMALLERSEL 16389 . 16687) (\TEDIT.SUBSCRIPTSEL 16689 . 16893) (\TEDIT.SUPERSCRIPTSEL
16895 . 17100) (\TEDIT.UCASE.SEL 17102 . 17909) (\TEDIT.UNDERLINE.SEL.OFF 17911 . 18099) (
\TEDIT.UNDERLINE.SEL.ON 18101 . 18287) (\TEDIT.STRIKEOUT.SEL.ON 18289 . 18475) (
\TEDIT.STRIKEOUT.SEL.OFF 18477 . 18665) (\TEDIT.SELECT.ALL 18667 . 18886)) (18960 24400 (
\TEDIT.BOLD.CARET.OFF 18970 . 19418) (\TEDIT.BOLD.CARET.ON 19420 . 19865) (\TEDIT.ITALIC.CARET.OFF
19867 . 20317) (\TEDIT.ITALIC.CARET.ON 20319 . 20767) (\TEDIT.LARGER.CARET 20769 . 21217) (
\TEDIT.SMALLER.CARET 21219 . 21669) (\TEDIT.SUBSCRIPT.CARET 21671 . 22125) (\TEDIT.SUPERSCRIPT.CARET
22127 . 22582) (\TEDIT.UNDERLINE.CARET.OFF 22584 . 23037) (\TEDIT.UNDERLINE.CARET.ON 23039 . 23490) (
\TEDIT.STRIKEOUT.CARET.OFF 23492 . 23945) (\TEDIT.STRIKEOUT.CARET.ON 23947 . 24398)) (24469 28217 (
\SEL.LIMIT 24479 . 24917) (\SEL.LINEDESC 24919 . 25515) (\TK.DESCRIBEFONT 25517 . 26232) (
\PARAS.IN.SEL 26234 . 28215)))))
STOP

BIN
library/TEDITFNKEYS.LCOM
View File

Binary file not shown.

42
library/UNICODE
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 8-Aug-2021 13:10:17" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;191 64912
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "21-Aug-2021 13:13:04" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;193 64903
changes to%: (FNS UTF8.OUTCHARFN UTF16BE.OUTCHARFN)
changes to%: (FNS MAKE-UNICODE-TRANSLATION-TABLES)
previous date%: " 7-Aug-2021 13:56:58"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;190)
previous date%: " 8-Aug-2021 13:10:17"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;192)
(PRETTYCOMPRINT UNICODECOMS)
@@ -736,7 +736,7 @@
(DATE (PRINTOUT STREAM " Date:" -13 (DATE (DATEFORMAT NO.TIME
NO.LEADING.SPACES))
T))
(PRINTOUT STREAM LINE T)))
(PRINTOUT STREAM LINE T)))
(TERPRI STREAM])
(WRITE-UNICODE-MAPPING-FILENAME
@@ -859,9 +859,9 @@
(* ;; " Each recoding array has 256 elements, one for each possible high-order byte of a character code. An array entry is either NIL, a 256-array of codes indexed by low-order bytes, or an alist of (lower-order-bytes . codes). The latter is used to save space for sparsely populated character sets.")
(* ;; "")
(* ;; "The element 256 of each array contains a hash table for characters that might be encountered in XCCS memory or Unicode files for which there is no mapping. Element 257 contains the corresponding inverse unmapped hash-array, so that UNICODE.TRANSLATE can update them consistently.")
(* ;; "")
(* ;; "The element 256 of each array contains a hash table for characters that might be encountered in XCCS memory or Unicode files for which there is no mapping. Element 257 contains the corresponding inverse unmapped hash-array, so that UNICODE.TRANSLATE can update them consistently.")
(* ;; "")
@@ -1100,15 +1100,15 @@
(FOR I CHARCODE (SINDEX _ 0) FROM 1 WHILE (SETQ CHARCODE (NTHCHARCODE XCCSSTRING
I))
DO (CL:UNLESS RAWFLG
(SETQ CHARCODE (XTOUCODE CHARCODE)))
(IF (ILESSP CHARCODE 128)
THEN (RPLCHARCODE USTR (ADD SINDEX 1)
CHARCODE)
ELSEIF (ILESSP CHARCODE 2048)
THEN (* ; "x800")
(RPLCHARCODE USTR (ADD SINDEX 1)
(LOGOR (LLSH 3 6)
(LRSH CHARCODE 6)))
(RPLCHARCODE USTR (ADD SINDEX 1)
(LOGOR (LLSH 2 6)
(SETQ CHARCODE (XTOUCODE CHARCODE)))
(IF (ILESSP CHARCODE 128)
THEN (RPLCHARCODE USTR (ADD SINDEX 1)
CHARCODE)
ELSEIF (ILESSP CHARCODE 2048)
THEN (* ; "x800")
(RPLCHARCODE USTR (ADD SINDEX 1)
(LOGOR (LLSH 3 6)
(LRSH CHARCODE 6)))
(RPLCHARCODE USTR (ADD SINDEX 1)
(LOGOR (LLSH 2 6)
(LOADBYTE CHARCODE 0 6)))

BIN
library/UNICODE.LCOM
View File

Binary file not shown.

3607
library/exports.all
View File

File diff suppressed because it is too large Load Diff

66
lispusers/THINFILES
View File

@@ -1,12 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 8-Aug-2021 15:05:08" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;3 8422
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "18-Aug-2021 20:46:55" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;5 8653
changes to%: (VARS THINFILESCOMS)
(FNS FB.THINP)
changes to%: (FNS FB.THINCOMMAND)
previous date%: " 8-Aug-2021 15:00:48"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;2)
previous date%: " 8-Aug-2021 15:05:08"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;4)
(* ; "
@@ -15,16 +14,16 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
(PRETTYCOMPRINT THINFILESCOMS)
(RPAQQ THINFILESCOMS
[(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
FILEBROWSER))
(FNS FB.THINCOMMAND FB.THINP)
(INITVARS [THINEXTENSIONS (UNION *COMPILED-EXTENSIONS*
'(SYSOUT DCOM DATABASE LCOM DFASL MCOM MFASL DRIBBLE]
(THINNAMES NIL))
(APPENDVARS (FB.MENU.ITEMS (Thin FB.THINCOMMAND
(RPAQQ THINFILESCOMS [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
FILEBROWSER))
(FNS FB.THINCOMMAND FB.THINP)
(INITVARS [THINEXTENSIONS (UNION *COMPILED-EXTENSIONS*
'(SYSOUT DCOM DATABASE LCOM DFASL MCOM
MFASL DRIBBLE]
(THINNAMES NIL))
(APPENDVARS (FB.MENU.ITEMS (Thin FB.THINCOMMAND
"Delvers non-source files and removes all but the last source file of each day."
])
])
(DECLARE%: EVAL@COMPILE DONTCOPY
(FILESLOAD (LOADCOMP)
@@ -33,38 +32,38 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
(DEFINEQ
(FB.THINCOMMAND
[LAMBDA (FBROWSER) (* ; "Edited 10-Oct-88 10:06 by jtm:")
(* ; "Edited 10-Oct-88 10:05 by jtm:")
(* bvm%: "13-Oct-85 16:52")
[LAMBDA (FBROWSER) (* ; "Edited 18-Aug-2021 20:46 by rmk:")
(* ; "Edited 10-Oct-88 10:05 by jtm:")
(* bvm%: "13-Oct-85 16:52")
(* * FB.THINCOMMAND interfaces between the user and the file browser.
 It calls FB.THINP on each file to determine if the file should be deleted.
 Any changes to the heuristic should be made to FB.THINP.)
(* * FB.THINCOMMAND interfaces between the user and the file browser.
 It calls FB.THINP on each file to determine if the file should be deleted.
 Any changes to the heuristic should be made to FB.THINP.)
(LET (TBROWSER NDELETED FILES NOW ONEDAY SORT#)
(* * collect the files into a list.)
(* * collect the files into a list.)
(SETQ FILES (TB.COLLECT.ITEMS (SETQ TBROWSER (fetch (FILEBROWSER TABLEBROWSER)
of FBROWSER))
(FUNCTION FB.IS.NOT.SUBDIRECTORY.ITEM)))
(* * sort the files in descending order.)
(* * sort the files in descending order.)
[SETQ FILES (SELECTQ (fetch (FILEBROWSER SORTBY) of FBROWSER)
(FB.NAMES.DECREASING.VERSION (* Just right)
(FB.NAMES.DECREASING.VERSION (* Just right)
FILES)
(FB.NAMES.INCREASING.VERSION (* Close, but no cigar)
(FB.NAMES.INCREASING.VERSION (* Close, but no cigar)
(FB.SORT.VERSIONS FILES (FUNCTION FB.DECREASING.VERSION)))
(SORT FILES (FUNCTION FB.NAMES.DECREASING.VERSION]
(* * delete the files that satisfy FB.THINP.)
(* * delete the files that satisfy FB.THINP.)
(SETQ NOW (IDATE (DATE)))
(SETQ ONEDAY (IDIFFERENCE (IDATE "31-Aug-87 09:06:06")
(IDATE "30-Aug-87 09:06:06")))
(* * get the position of CREATIONDATE. (code borrowed from FB.SORTCOMMAND))
(* * get the position of CREATIONDATE. (code borrowed from FB.SORTCOMMAND))
[SETQ SORT# (OR (CL:POSITION 'CREATIONDATE (fetch (FILEBROWSER INFODISPLAYED)
of FBROWSER)
@@ -90,10 +89,11 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
(COND
((OR (NULL LASTTIMESTAMP)
(NULL TIMESTAMP))
(* no creation date was given.)
(* no creation date was given.)
NIL)
((ILESSP LASTTIMESTAMP TIMESTAMP)
(HELP THISNAME "is out of order."))
(HELP (fetch (FBFILEDATA FILENAME) of DATA)
"is out of order."))
((FB.THINP
THISNAME
(IDIFFERENCE NOW TIMESTAMP)
@@ -105,8 +105,8 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
of
(fetch TIDATA
of (CADR TAIL]
ONEDAY) (* FB.THINP determines whether or
 not the file should be deleted.)
ONEDAY) (* FB.THINP determines whether or
 not the file should be deleted.)
(COND
((FB.DELETE.FILE TBROWSER FILE)
(add %#DELETED 1]
@@ -153,5 +153,5 @@ Copyright (c) 1987-1989, 1992, 2021 by Xerox Corporation.
))
(PUTPROPS THINFILES COPYRIGHT ("Xerox Corporation" 1987 1988 1989 1992 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1159 7953 (FB.THINCOMMAND 1169 . 6577) (FB.THINP 6579 . 7951)))))
(FILEMAP (NIL (1297 8184 (FB.THINCOMMAND 1307 . 6808) (FB.THINP 6810 . 8182)))))
STOP

BIN
lispusers/THINFILES.LCOM
View File

Binary file not shown.

653
loadups/full.database.dribble Normal file
View File

@@ -0,0 +1,653 @@
STARTING MASTERSCOPE PHASE ON 14-Aug-2021 10:05:30
{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>exports.all;27
EXPORTS GATHERED FROM {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources> ON
14-Aug-2021 00:29:17
(new PRETTYPRINTMACROS entry for UNINTERRUPTABLY)
should I LOADFROM
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;1 ? ...Yes
File created 2-May-99 14:57:41
Warning: Possible comment not stripped (* *)
Analyzing PACKAGE-CONVERSION-TABLE
.
Analyzing LLFAULT
............................................................................
Analyzing LLSUBRS
.....................................
Analyzing LLBFS
.............................
Analyzing LLNEW
.............................................
Analyzing FILEIO
..........................................................................................
......................
Analyzing IMAGEIO
..............................................................
Analyzing LLBASIC
.........................................................
Analyzing LLGC
.............................
Analyzing LLARRAYELT
..............****Warning: the iterative statement:
(bind (SETQ IDEALSIZE (IMAX MINKEYS &)) find I from 8 to 16384 by --)
now translates so that ... by I ... is evaluated BEFORE I is bound and initialized to:
8
...........................................................
Analyzing LLINTERP
........................................................................................
Analyzing LLMVS
.......
Analyzing DEFSTRUCT-RUN-TIME
................
Analyzing SETF-RUNTIME
...
Analyzing CMLSEQBASICS
..Warning: Possible comment not stripped (* amd " 5-Jun-86 17:48")
........
Analyzing LLARITH
..................................................................................
Analyzing LLFLOAT
.....................................................
Analyzing LLBIGNUM
..............................................
Analyzing LLREAD
..............................................
Analyzing XCCS
........
Analyzing LLCHAR
........................................
Analyzing LLSTK
..................................................................
Analyzing LLDATATYPE
........................................................
Analyzing IOCHAR
....................................
Analyzing LLKEY
...............................................................................
Analyzing LLTIMER
..........................
Analyzing ASTACK
.............................
Analyzing DTDECLARE
................
Analyzing ATBL
.......................................................
Analyzing LLCODE
.................
Analyzing ACODE
.................
Analyzing COREIO
..............................
Analyzing AOFD
..................................
Analyzing ADIR
................................
Analyzing PMAP
...........................................
Analyzing VANILLADISK
...
Analyzing ATERM
.........................................
Analyzing APRINT
.............................................
Analyzing ABASIC
............................................................
Analyzing AERROR
........
Analyzing AINTERRUPT
.................
Analyzing MISC
...............................................................................
Analyzing BOOTSTRAP
...............................
Analyzing CMLMACROS
.........
Analyzing CMLEVAL
..............................................................
Analyzing CMLPROGV
..
Analyzing CMLSPECIALFORMS
.....
Analyzing LLRESTART
Analyzing LLERROR
..
Analyzing LLSYMBOL
..................
Analyzing LLPACKAGE
................................................................
Analyzing PACKAGE-STARTUP
.............................
Analyzing CONDITION-PACKAGE
...
Analyzing XCL-PACKAGE
...
Analyzing PROC
..........................................................................................
........
Analyzing CMLARRAY
..........................................................................................
...Warning: Possible comment not stripped (* *)
.......................
Analyzing DSK
....
Analyzing UFS
...................................................
Analyzing UFSCALLC
..................
Analyzing PASSWORDS
..............
Analyzing FONT
...................................................................
Analyzing LLDISPLAY
..........................................................................................
....
Analyzing APUTDQ
.........
Analyzing COMPATIBILITY
......
Analyzing DMISC
....................................................
Analyzing CMLLIST
......................................................................................
Analyzing CMLCHARACTER
................................................
Analyzing CMLREADTABLE
.............................................
Analyzing MAIKOLOADUPFNS
...........................
Analyzing MAIKOBITBLT
.....
Analyzing MACHINEINDEPENDENT
...........................................................
Analyzing POSTLOADUP
Analyzing LISP-PACKAGE
Analyzing FASL-PACKAGE
Analyzing D-ASSEM-PACKAGE
Analyzing COMPILER-PACKAGE
Analyzing ERROR-RUNTIME
.................................
Analyzing CMLARITH
..........................................................................................
...........................
Analyzing CONDITION-HIERARCHY-SI
Analyzing CONDITION-HIERARCHY-POST-SI
Analyzing CONDITION-HIERARCHY-IL
Analyzing CONDITION-HIERARCHY
...
Analyzing CMLHASH
............
Analyzing D-ASSEM
..................................................................................Warning: Possible comment not stripped (* CL:SETQ D-ASSEM::OFFSET (ADD1 D-ASSEM::OFFSET))
....
Analyzing FASLOAD
......................................
Analyzing DEFFER-RUNTIME
.......
Analyzing CMLPRINT
................
Analyzing CLSTREAMS
...................................................................................
Analyzing CMLSTRING
.............................
Analyzing CMLSYMBOL
Analyzing CMLTYPES
...............................
Analyzing CMLSEQCOMMON
Analyzing CMLSEQMAPPERS
..........................
Analyzing CMLPATHNAME
............................
Analyzing CMLFILESYS
........Warning: Possible comment not stripped (* * "Delete the specified file.")
.
Analyzing CMLDEFFER
.................
Analyzing ERROR-RUNTIME-AFTER-FASL
...
Analyzing WRAPPERS
................
Analyzing STACKFNS
.......
Analyzing CMLMVS
..
Analyzing MACROS
.........
Analyzing MACROAUX
...............
Analyzing UNWINDMACROS
....
Analyzing COMMON
..............
Analyzing XCLC-RUNTIME
.
Analyzing CL-ERROR
................
Analyzing AFONT
............
Analyzing EDIT
........................................................................
Analyzing WEDIT
.................
Analyzing PRETTY
...............................
Analyzing DSPRINTDEF
...........
Analyzing NEWPRINTDEF
...........................
Analyzing FONTPROFILE
....
Analyzing SPELLFILE
.......
Analyzing PRINTFN
........
Analyzing LOADFNS
......................
Analyzing DIRECTORY
.................
Analyzing FILEPKG
..........................................................................................
.......................................
Analyzing RESOURCE
.........
Analyzing HIST
..................................................
Analyzing UNDO
....................................................................
Analyzing SPELL
.............
Analyzing DWIM
.............................
Analyzing WTFIX
...
Analyzing CLISP
..
Analyzing DWIMIFY
........................................................................................
Analyzing CLISPIFY
.....................................
Analyzing RECORD
..........................................................................................
..........
Analyzing GAINSPACE
.....
Analyzing COROUTINE
.............
Analyzing ARGLIST
.
Analyzing ASKUSER
.........
Analyzing SYSPRETTY
..
Analyzing COMPARE
..........
Analyzing CMLSTEP
..............
Analyzing CMLDOC
....
Analyzing CMLPARSE
.........................
Analyzing CMLSETF
.......
Analyzing CMLPRED
.....
Analyzing CMLREAD
............
Analyzing WALKER
..........................................
Analyzing CMLSEQFINDER
................................
Analyzing CMLSEQMODIFY
.............................................
Analyzing CMLSORT
..................
Analyzing DEFSTRUCT
.................................................................................
Analyzing CMLMISCIO
....
Analyzing CMLCOMPILE
.................
Analyzing CMLDESTRUCT
.
Analyzing CMLFORMAT
...................Warning: Possible comment not stripped (* amd " 1-May-86 14:33")
.........................................................
Analyzing CMLENVIRONMENT
...............
Analyzing CMLLOAD
.....
Analyzing CMLFLOAT
..........................................................................................
....
Analyzing CMLTIME
.......
Analyzing CMLRAND
.......
Analyzing CMLMODULES
...
Analyzing PROFILE
..........................
Analyzing CMLUNDO
............
Analyzing CMLEXEC
................................................................
Analyzing EXEC-COMMANDS
..
Analyzing DEBUGGER
.........................................................
Analyzing IL-ERROR-STUFF
............
Analyzing DEBUGEDIT
....
Analyzing ADDARITH
....
Analyzing HPRINT
.................................
Analyzing AARITH
................
Analyzing ADISPLAY
..........................................................................................
..........
Analyzing HLDISPLAY
...............................................................................
Analyzing MENU
............................................................
Analyzing WINDOWOBJ
.................
Analyzing WINDOWSCROLL
............................
Analyzing PAINTW
..........
Analyzing WINDOW
..........................................................................................
....................
Analyzing WINDOWICON
..........
Analyzing ATTACHEDWINDOW
....................................................................
Analyzing XXGEOM
.................................
Analyzing XXFILL
..............................
Analyzing DEXEC
....
Analyzing INSPECT
..........................................................................................
......
Analyzing DESCRIBE
................
Analyzing TWODINSPECTOR
....................................................................
Analyzing FREEMENU
..........................................................................................
.........................
Analyzing CMLARRAYINSPECTOR
.........................
Analyzing EDITINTERFACE
............................
Analyzing TTYIN
..........................................................................................
....................................................................................
Analyzing BREAK-AND-TRACE
................................
Analyzing FASDUMP
............................................
Analyzing XCLC-ENV-CTXT
..........................................
Analyzing XCLC-TREES
..................................................
Analyzing XCLC-TOP-LEVEL
...........................................................................
Analyzing XCLC-ALPHA
..................................................
Analyzing XCLC-OPTIMIZERS
...
Analyzing XCLC-ANALYZE
................................................
Analyzing XCLC-META-EVAL
................................................................
Analyzing XCLC-TRANSFORMS
....
Analyzing XCLC-DATABASE
.
Analyzing XCLC-ANNOTATE
.............................................
Analyzing XCLC-GENCODE
....................................................
Analyzing XCLC-PEEPHOLE
........
Analyzing XCL-COMPILER
Analyzing ADVISE
.................................
Analyzing DLAP
...............................
Analyzing BYTECOMPILER
..........................................................................................
..............................................................................
Analyzing COMPILE
.................................
Analyzing HARDCOPY
.......................................................................................
Analyzing LOGOW
.
Analyzing IDLER
...................
Analyzing ICONW
............
Analyzing SEDIT-ACCESS
Analyzing SEDIT-ATOMIC
....................................
Analyzing SEDIT-BASE
...................................................................................
Analyzing SEDIT-COMMANDS
.........................................................................................
Analyzing SEDIT-COMMENTS
.....................................
Analyzing SEDIT-EXPORTS
Analyzing SEDIT-INDENT
....................
Analyzing SEDIT-LIST-FORMATS
Analyzing SEDIT-LINEAR
........................
Analyzing SEDIT-LISTS
..................................................
Analyzing SEDIT-TERMINAL
.......
Analyzing SEDIT-TOPLEVEL
................................
Analyzing SEDIT-WINDOW
.....................................................
Analyzing SEDIT
Analyzing TIME
..........
Analyzing BRKDWN
...............
Analyzing XCL-EXTRAS
...
Analyzing CMLPACKAGE
...................
Analyzing CMLSMARTARGS
..
Analyzing IMPLICIT-KEY-HASH
........
Analyzing CLOSURE-CACHE
......
Analyzing PUP
................................................................
Analyzing 10MBDRIVER
............................
Analyzing LEAF
.....................................................................................
Analyzing LLETHER
.....................................................................
Analyzing DPUPFTP
.................................................
Analyzing LOCALFILE
..........................................................................................
..................RemoveLast unsaved
...................................................................
Analyzing DSKDISPLAY
.......
Analyzing COURIER
................................................................
Analyzing LLNS
....................................................
Analyzing TRSERVER
.................
Analyzing SPP
..............................................................
Analyzing NSPRINT
...................
Analyzing AUTHENTICATION
.........................
Analyzing BSP
............................................................................
Analyzing CLEARINGHOUSE
..........................................
Analyzing NSFILING
..........................................................................................
....
Analyzing MAIKOETHER
.....................
Analyzing POSTSCRIPTSTREAM
.....................................................................................
Analyzing CHATTERMINAL
............................
Analyzing DMCHAT
.........
Analyzing CHAT
.................................................................
Analyzing PRESS
....................................................................
Analyzing INTERPRESS
..........................................................................................
..............................
Analyzing TEDITDCL
Analyzing PCTREE
.............
Analyzing TEXTOFD
.........................................................
Analyzing TEDITCOMMAND
...............
Analyzing TEDITSCREEN
.............................
Analyzing TEDITABBREV
...
Analyzing TEDITLOOKS
...................................................
Analyzing TEDITFIND
............
Analyzing TEDITHISTORY
...........
Analyzing TEDITFILE
.................................................
Analyzing TEDITWINDOW
...................................................
Analyzing TEDITSELECTION
.....................................
Analyzing READNUMBER
.............
Analyzing EDITBITMAP
.......................
Analyzing IMAGEOBJ
.....................
Analyzing TFBRAVO
.....................................
Analyzing TEDITHCPY
...............
Analyzing TEDITPAGE
........................
Analyzing TEDITMENU
..........................................................................................
.
Analyzing TEDITFNKEYS
.......................................
Analyzing TEDIT
..........................................
Analyzing HRULE
......................
Analyzing TEDITCHAT
.....
Analyzing TABLEBROWSER
..............................................................
Analyzing FILEBROWSER
..........................................................................................
........................
Analyzing THINFILES
..
Analyzing GRAPHER
..........................................................................................
..............................................................
Analyzing SPY
............................................
Analyzing WHERE-IS
.....................
Analyzing COPYFILES
...............
Analyzing MSANALYZE
......................
Analyzing MSPARSE
...........................................
Analyzing MSCOMMON
...
Analyzing MASTERSCOPE
..........................................................................................
..........
Analyzing UNIXCOMM
.....................
Analyzing UNIXPRINT
.......
Analyzing UNICODE
...........................
Analyzing ISO8859IO
...............
Analyzing DINFO
.........................................
Analyzing HASH
...............................
Analyzing HELPSYS
.....................
Analyzing CLIPBOARD
..........
Analyzing MODERNIZE
..............
Analyzing PRETTYFILEINDEX
.............................................................
Analyzing WHO-LINE
.........................................................................
Analyzing UNIXCHAT
......
Analyzing NSDISPLAYSIZES
.....
Analyzing WHEELSCROLL
.....
Analyzing SAMEDIR
..
Analyzing COMPILEBANG
.
Analyzing WDWHACKS
.......
Analyzing FILEWATCH
.......................................
Analyzing CMLARRAY-SUPPORT
...............Warning: Possible comment not stripped (* *)
........

32
loadups/full.dribble
View File

@@ -1,5 +1,5 @@
Full loadup started at 30-Jul-2021 13:12:30 while connected to
Full loadup started at 19-Aug-2021 12:07:27 while connected to
{DSK}<Users>kaplan>Local>medley3.5>git-medley>
loading POSTSCRIPTSTREAM
@@ -144,7 +144,7 @@ compiled on 29-Apr-2021 22:44:22
File created 29-Apr-2021 22:44:22
TEDITMENUCOMS
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;3
compiled on 18-May-2018 09:17:25
File created 6-May-2018 17:15:13
TEDITFNKEYSCOMS
@@ -164,7 +164,7 @@ loading READNUMBER
loading EDITBITMAP
loading FILEBROWSER
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;4
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;6
compiled on 9-Jul-2021 23:09:57
File created 9-Jul-2021 23:09:57
@@ -174,9 +174,9 @@ File created 20-Feb-2021 23:02:39
TABLEBROWSERCOMS
loading THINFILES
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created 1-May-92 16:49:39
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;4
compiled on 8-Aug-2021 15:05:08
File created 8-Aug-2021 15:05:08
THINFILESCOMS
loading GRAPHER
@@ -204,7 +204,7 @@ Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;5
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;1
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31
@@ -218,9 +218,9 @@ COPYFILESCOMS
loading MSANALYZE
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MSANALYZE.;2
Source file created 3-Mar-2021 10:31:16
FASL file created Wednesday, 3 March 2021, 10:31:16
XCL Compiler output for source file {DSK}<home>larry>medley>library>MSANALYZE.;5
Source file created 18-Aug-2021 12:13:11
FASL file created Wednesday, 18 August 2021, 12:13:11
loading MSPARSE
@@ -256,15 +256,15 @@ File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS
loading UNICODE
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;30
compiled on 29-Jul-2021 21:16:01
File created 29-Jul-2021 21:16:01
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;43
compiled on 8-Aug-2021 13:10:17
File created 8-Aug-2021 13:10:17
UNICODECOMS
loading ISO8859IO
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;13
compiled on 23-Jun-2021 17:00:30
File created 23-Jun-2021 17:00:30
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;23
compiled on 8-Aug-2021 13:22:32
File created 8-Aug-2021 13:22:31
ISO8859IOCOMS
loading HELPSYS

BIN
loadups/full.sysout
View File

Binary file not shown.

46
loadups/lisp.dribble
View File

@@ -284,7 +284,7 @@ File created 19-Jan-93 10:27:05
DSPRINTDEFCOMS
loading NEWPRINTDEF
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.LCOM;3
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.LCOM;1
compiled on 31-Dec-2000 11:53:35
File created 31-Dec-2000 11:53:33
NEWPRINTDEFCOMS
@@ -302,13 +302,13 @@ File created 28-Apr-92 15:38:21
SPELLFILECOMS
loading PRINTFN
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.LCOM;17
compiled on 27-Jun-2021 23:29:20
File created 27-Jun-2021 23:29:20
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.LCOM;20
compiled on 8-Aug-2021 15:15:18
File created 8-Aug-2021 15:15:00
PRINTFNCOMS
loading LOADFNS
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.LCOM;11
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.LCOM;1
compiled on 16-Apr-2018 17:38:16
File created 16-Apr-2018 17:38:16
LOADFNSCOMS
@@ -404,7 +404,7 @@ File created 16-May-90 12:03:44
ARGLISTCOMS
loading ASKUSER
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.LCOM;6
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.LCOM;1
compiled on 12-Feb-2021 17:00:05
File created 12-Feb-2021 17:00:02
ASKUSERCOMS
@@ -450,9 +450,9 @@ compiled on 25-Jan-98 10:30:39
File created 16-May-90 14:19:02
loading CMLREAD
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.LCOM;12
compiled on 29-Jul-2021 20:34:35
File created 29-Jul-2021 20:34:35
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.LCOM;18
compiled on 16-Aug-2021 23:42:49
File created 16-Aug-2021 23:42:49
loading WALKER
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WALKER.DFASL;1
@@ -532,7 +532,7 @@ compiled on 25-Jan-98 10:31:47
File created 16-May-90 14:21:56
loading CMLMODULES
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.DFASL;5
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>CMLMODULES.;2
Source file created Monday, 16 April 2018, 22:46:19.
FASL file created Monday, 16 April 2018, 22:46:19.
@@ -625,9 +625,9 @@ File created 17-Feb-2021 13:49:06
WINDOWSCROLLCOMS
loading WINDOW
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.LCOM;2
compiled on 13-Jun-2021 10:14:32
File created 13-Jun-2021 10:14:32
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.LCOM;4
compiled on 2-Aug-2021 00:44:48
File created 2-Aug-2021 00:44:48
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PAINTW.LCOM;1
compiled on 16-Jul-99 15:49:39
@@ -659,7 +659,7 @@ File created 13-Jun-2021 14:41:44
XXFILLCOMS
loading DEXEC
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.LCOM;13
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.LCOM;1
compiled on 13-Aug-2020 12:36:18
File created 13-Aug-2020 12:36:18
loading INSPECT
@@ -682,7 +682,7 @@ compiled on 25-Jan-98 09:53:09
File created 31-Dec-93 12:26:35
CMLARRAYINSPECTORCOMS
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.LCOM;2
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.LCOM;1
compiled on 19-Feb-2021 14:31:33
File created 19-Feb-2021 14:31:33
TWODINSPECTORCOMS
@@ -697,9 +697,9 @@ compiled on 25-Jan-98 13:12:33
File created 7-Nov-91 18:15:13
loading TTYIN
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.LCOM;3
compiled on 13-Jun-2021 10:11:51
File created 13-Jun-2021 10:11:51
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.LCOM;12
compiled on 14-Aug-2021 00:00:35
File created 13-Aug-2021 11:07:59
TTYINCOMS
loading BREAK-AND-TRACE
@@ -732,7 +732,7 @@ Source file created Wednesday, 23 May 1990, 13:17:15.
FASL file created Monday, 26 January 1998, 14:01:24.
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.DFASL;10
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>XCLC-TOP-LEVEL.;10
Source file created 19-Sep-2020 22:02:59
FASL file created Saturday, 19 September 2020, 22:02:59
@@ -840,7 +840,7 @@ Source file created Tuesday, 19 January 1993, 11:16:06.
FASL file created Monday, 26 January 1998, 13:30:23.
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.DFASL;3
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.DFASL;1
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>sources>SEDIT-ATOMIC.;3
Source file created 16-May-90 21:37:57
FASL file created Sunday, 20 September 2020, 21:00:28
@@ -852,7 +852,7 @@ Source file created Wednesday, 2 December 1992, 17:40:24.
FASL file created Monday, 26 January 1998, 13:31:04.
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.DFASL;4
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.DFASL;8
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;3
Source file created Monday, 23 April 2018, 18:12:52.
FASL file created Monday, 23 April 2018, 18:13:51.
@@ -906,7 +906,7 @@ Source file created Wednesday, 10 July 1991, 19:03:29.
FASL file created Monday, 26 January 1998, 13:36:04.
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.DFASL;3
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;2
Source file created Monday, 14 May 2018, 14:12:02.
FASL file created Monday, 14 May 2018, 14:12:02.
@@ -917,7 +917,7 @@ loading UFSCALLC
loading MAIKOBITBLT
loading TIME
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.LCOM;5
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.LCOM;1
compiled on 16-Apr-2018 23:05:17
File created 16-Apr-2018 23:05:10
loading BRKDWN

BIN
loadups/lisp.sysout
View File

Binary file not shown.

240
loadups/whereis.dribble
View File

@@ -2,7 +2,7 @@
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AARITH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ACODE.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ACODE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADDARITH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADIR.;9 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;10 ... done.
@@ -10,19 +10,19 @@
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AERROR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AFONT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APRINT.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APRINT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APUTDQ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ARGLIST.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASTACK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;11 .
Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODEMASKS IL:READMACROCONTEXTS IL:READCLASSES IL:READMACROWAKEUPS IL:READMACROESCAPES) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;11.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;20 .
Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODEMASKS IL:READMACROCONTEXTS IL:READCLASSES IL:READMACROWAKEUPS IL:READMACROESCAPES) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;20.
.. done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;50 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;59 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BRKDWN.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;1 ... done.
@@ -35,8 +35,8 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.;1 ... done.
@@ -53,7 +53,7 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMVS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.;1 ... done.
@@ -62,8 +62,8 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLRAND.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;11 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;5 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;17 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.;1 ... done.
@@ -71,7 +71,7 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSETF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSORT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.;1 ... done.
@@ -92,9 +92,9 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;5 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COROUTINE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COURIER.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COURIER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.;1 ... done.
@@ -104,9 +104,9 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.;11 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKDLION.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKVMEMDECLS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DLAP.;1 ... done.
@@ -117,7 +117,7 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDIT.;1 ... done.
@@ -128,29 +128,29 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASDUMP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-SUPPORT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;62 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;88 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;5 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILEPATCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FREEMENU.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;7 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HIST.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ICONW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IDLER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;5 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;10 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT-CLOSURE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;9 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;18 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARITH.;1 ... done.
@@ -160,70 +160,70 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCODE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;12 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;8 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLERROR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLINTERP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLMVS.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.;16 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLMVS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNSDECLS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;51 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;90 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLRESTART.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSTK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;8 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-LISP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOGOW.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;16 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOGOW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;24 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX-OPTIMIZERS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1 .Warning: Couldn't find IL:MAIKOINITCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;7 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;9 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MEM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MENU.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MISC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MOD44IO.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MODARITH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSPRINT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;8 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;12 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PAINTW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PMAP.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PMAP.;8 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>POSTLOADUP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;16 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;19 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PUP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>READSYS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RECORD.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RESOURCE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;8 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-CONVERT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DEBUG.;1 ... done.
@@ -235,7 +235,7 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.;1 ... done.
@@ -244,25 +244,25 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>STACKFNS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TCPHTE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TRSERVER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;5 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;13 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNDO.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VMEM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WALKER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WRAPPERS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WTFIX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;36 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;49 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.;1 ... done.
@@ -276,7 +276,7 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;11 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.;2 ... done.
@@ -294,38 +294,38 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CMLFLOATARRAY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COLOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DANDELIONKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;3.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DATABASEFNS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:DANDELIONKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DATABASEFNS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDITPP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DORADOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;3.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOSPRINT.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DOVEKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;3.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:DORADOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOSPRINT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:DOVEKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVERS232C.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>ETHERRECORDS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILE-UPDATE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FONTSAMPLE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FOREIGN-FUNCTIONS.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FOREIGN-FUNCTIONS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FX-80DRIVER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GCHAX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHZOOM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDCONFIGS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LLCOLOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LOAD-SKETCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOCOLOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:MAIKOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;3.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:MAIKOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATMULT.;1 ... done.
@@ -333,37 +333,37 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSCHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSMAINTAIN.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSMAINTAIN.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>patches> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>patches>.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;11 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>RDSYS.;1 .Warning: Error attempting to LOADVARS (IL:RDSYSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>RDSYS.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>RDSYS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>REMOTEVMEM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;10 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SCALEBITMAP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;2 .Warning: Error attempting to LOADVARS (IL:SEDIT-COMMONLISPCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;2.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;1 .Warning: Error attempting to LOADVARS (IL:SEDIT-COMMONLISPCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHBMELT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOBJ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOPS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHSTREAM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SYSEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSERDECLS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TBDECLS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.;1 ... done.
@@ -375,7 +375,7 @@ Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODE
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TELERAID.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXEC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.;1 .
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.DFASL;2
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.DFASL;1
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>SEDIT-COMMONLISP.;1
Source file created 4-Jan-2021 22:52:01
FASL file created Wednesday, 5 May 2021, 10:37:50
@@ -387,15 +387,15 @@ Source file created Wednesday, 16 January 1991, 9:07:18.
FASL file created Tuesday, 12 July 1994, 12:31:02.
.. done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TTYCHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;179 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;192 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXTELNET.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VIRTUALKEYBOARDS.;9 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VIRTUALKEYBOARDS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VT100KP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VTCHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.;1 ... done.
@@ -444,9 +444,9 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMON-MAKE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMWINDOW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARE-PATHS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;275 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>comparetext.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>comparetext.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>compilebang.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERDEFS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIEREVALSERVE.;1 ... done.
@@ -470,13 +470,13 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIALPHONE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICOLOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;1 .Warning: Error attempting to LOADVARS (IL:DICT-WINDOW-TYPESCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGEST.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGI-CLOCK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIRGRAPHER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DLIONFNKEYS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;8 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>document.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>donz.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DORADOCOLOR.;1 ... done.
@@ -492,7 +492,7 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONFORMS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ETHERBOOT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EYECON.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FASTEDITBM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILECACHE-FIX.;1 ... done.
@@ -543,7 +543,7 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISNET.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISSTREAM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISVIEW.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;10 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;19 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KEYOBJ.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KINETIC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KOTOLOGO.;1 ... done.
@@ -551,11 +551,11 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITE-INDENT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEABBREV.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEPRIVATEDL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITETIMEDDELETE.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITETIMEDDELETE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAMBDATRAN.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAYOUT-SEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LIFE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADIRIS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADMENUITEMS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;1 ... done.
@@ -592,8 +592,8 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOVAFONT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSALLOCATION.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSCOPYFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSREADERPATCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSROUTINGHASH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALK.;1 ... done.
@@ -614,12 +614,12 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIXELBLT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAINTEXTSTREAM.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTANDNC-PATCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTBOXPATCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTEXAMPLES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTINSKETCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS1.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS2.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PORT-CLFILE.;1 ... done.
@@ -643,7 +643,7 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QIX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAIS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAPPLEFONT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READBRUSH.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READBRUSH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDATATYPE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDISPLAYFONT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READEBCDIC.;1 ... done.
@@ -666,7 +666,7 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-MENU-ALWAYS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PATCHES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PROFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SFFONT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SHOWTIME.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLECHAT.;1 ... done.
@@ -690,21 +690,21 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-LINE-NUMBERING.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tedit-process-killer.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITTALK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010CHAT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;6 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TILED-SEDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tkdorado.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-XREF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tmenu.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRAJECTORY-FOLLOWER.;1 ... done.
@@ -724,9 +724,9 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;1 .Warning: Error attempting to LOADVARS (IL:VANILLA-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VSTATS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WALKFILES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHOCALLS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WINK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WORDNERD.;1 ... done.
@@ -734,23 +734,23 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XORCURSORPATCH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XREF.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ABC.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARCLEANUP.;2 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARCLEANUP.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>AREDIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARHACK.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARINDEX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARQUERY.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1 .Warning: Error attempting to LOADVARS (IL:ARREPORT-TESTCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARSREPORT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CALENDARHACKS.;4 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CALENDARHACKS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CHANGECONTROL.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>COMPTEST.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CONDITIONGRAPH.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CONDITIONGRAPH.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DICOLOR.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DO-TEST.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DUMPFILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FASL-DEBUG.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FLOAT-ARRAY-SUPPORT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>GIVE-AND-TAKE.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>GIVE-AND-TAKE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTEST.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTESTAUX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAILCLIENT.;1 ... done.
@@ -760,7 +760,7 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MEDLEY-UTILS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MESATYPES.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;1 .Warning: Error attempting to LOADVARS (IL:MSXCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MULTI-COMPILE.;5 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MULTI-COMPILE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1 .Warning: Error attempting to LOADVARS (IL:NATIVE-TRANSLATORCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NSTOASCIIDISPLAYFONT.;1 ... done.
@@ -773,10 +773,10 @@ FASL file created Tuesday, 12 July 1994, 12:31:02.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TYPEHAX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>WHEREIS.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>XCLC-DEBUG.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;2 .Warning: Error attempting to LOADVARS (IL:INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;2.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>LOCAL-INIT.;46 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1 .Warning: Error attempting to LOADVARS (IL:INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>LOCAL-INIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>PARC-INIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>SIMPLE-INIT.;3 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>SIMPLE-INIT.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMINDEX.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMNAME.;1 ... done.
;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTEDIT.;1 ... done.

BIN
loadups/whereis.hash
View File

Binary file not shown.

52
sources/ATBL
View File

@@ -1,11 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Aug-2021 15:52:57" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;16 91732
(FILECREATED "21-Aug-2021 08:06:49" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;22 91541
changes to%: (VARS ATBLCOMS)
(FNS EQUAL-READER-ENVIRONMENT MAKE-READER-ENVIRONMENT)
changes to%: (FNS \ORIGTERMTABLE)
previous date%: "16-Aug-2021 23:44:27"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;15)
previous date%: "19-Aug-2021 14:45:21"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;21)
(* ; "
@@ -788,7 +787,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(T (LISPERROR "ILLEGAL TERMINAL TABLE" TTBL])
(\ORIGTERMTABLE
[LAMBDA NIL (* rrb " 5-Oct-85 10:33")
[LAMBDA NIL (* ; "Edited 21-Aug-2021 08:06 by rmk:")
(* ;; "Creates the original terminal table")
@@ -851,9 +850,8 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
'SIMULATE TBL))
NIL))
(for C from 128 to \MAXTHINCHAR do (ECHOCHAR C 'REAL TBL))
(for C from (CHARCODE 1,0) to (CHARCODE 1,377) do (ECHOCHAR
C
'INDICATE TBL))
(for C from (CHARCODE Meta,0) to (CHARCODE Meta,377)
do (ECHOCHAR C 'INDICATE TBL))
(RETURN TBL])
(\SETTERMSYNTAX
@@ -1906,22 +1904,22 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(PUTPROPS ATBL COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1993 2018
2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (18106 29258 (GETSYNTAX 18116 . 22947) (SETSYNTAX 22949 . 24022) (SYNTAXP 24024 . 26521)
(\COPYSYNTAX 26523 . 27240) (\GETCHARCODE 27242 . 27530) (\SETFATSYNCODE 27532 . 28823) (
\MAPCHARTABLE 28825 . 29256)) (29291 44378 (CONTROL 29301 . 29553) (COPYTERMTABLE 29555 . 29922) (
DELETECONTROL 29924 . 32565) (GETDELETECONTROL 32567 . 33529) (ECHOCHAR 33531 . 34972) (ECHOCONTROL
34974 . 35431) (ECHOMODE 35433 . 35679) (GETECHOMODE 35681 . 35845) (GETCONTROL 35847 . 36013) (
GETTERMTABLE 36015 . 36082) (RAISE 36084 . 36510) (GETRAISE 36512 . 36674) (RESETTERMTABLE 36676 .
37760) (SETTERMTABLE 37762 . 37996) (TERMTABLEP 37998 . 38159) (\GETTERMSYNTAX 38161 . 38432) (
\GTTERMTABLE 38434 . 38770) (\ORIGTERMTABLE 38772 . 42503) (\SETTERMSYNTAX 42505 . 43140) (
\TERMCLASSTOCODE 43142 . 43571) (\TERMCODETOCLASS 43573 . 43960) (\LITCHECK 43962 . 44376)) (46908
70732 (COPYREADTABLE 46918 . 47116) (FIND-READTABLE 47118 . 47265) (IN-READTABLE 47267 . 47427) (
ESCAPE 47429 . 47682) (GETBRK 47684 . 47822) (GETREADTABLE 47824 . 47960) (GETSEPR 47962 . 48100) (
READMACROS 48102 . 48365) (READTABLEP 48367 . 48530) (READTABLEPROP 48532 . 53690) (RESETREADTABLE
53692 . 57939) (SETBRK 57941 . 59551) (SETREADTABLE 59553 . 59741) (SETSEPR 59743 . 61285) (
\GETREADSYNTAX 61287 . 63977) (\GTREADTABLE 63979 . 64204) (\GTREADTABLE1 64206 . 64462) (
\ORIGREADTABLE 64464 . 66372) (\READCLASSTOCODE 66374 . 66825) (\SETMACROSYNTAX 66827 . 68622) (
\SETREADSYNTAX 68624 . 69685) (\READTABLEP.DEFPRINT 69687 . 70730)) (83824 88277 (\ATBLSET 83834 .
88275)) (88724 91256 (MAKE-READER-ENVIRONMENT 88734 . 89512) (EQUAL-READER-ENVIRONMENT 89514 . 90658)
(SET-READER-ENVIRONMENT 90660 . 91254)))))
(FILEMAP (NIL (18036 29188 (GETSYNTAX 18046 . 22877) (SETSYNTAX 22879 . 23952) (SYNTAXP 23954 . 26451)
(\COPYSYNTAX 26453 . 27170) (\GETCHARCODE 27172 . 27460) (\SETFATSYNCODE 27462 . 28753) (
\MAPCHARTABLE 28755 . 29186)) (29221 44187 (CONTROL 29231 . 29483) (COPYTERMTABLE 29485 . 29852) (
DELETECONTROL 29854 . 32495) (GETDELETECONTROL 32497 . 33459) (ECHOCHAR 33461 . 34902) (ECHOCONTROL
34904 . 35361) (ECHOMODE 35363 . 35609) (GETECHOMODE 35611 . 35775) (GETCONTROL 35777 . 35943) (
GETTERMTABLE 35945 . 36012) (RAISE 36014 . 36440) (GETRAISE 36442 . 36604) (RESETTERMTABLE 36606 .
37690) (SETTERMTABLE 37692 . 37926) (TERMTABLEP 37928 . 38089) (\GETTERMSYNTAX 38091 . 38362) (
\GTTERMTABLE 38364 . 38700) (\ORIGTERMTABLE 38702 . 42312) (\SETTERMSYNTAX 42314 . 42949) (
\TERMCLASSTOCODE 42951 . 43380) (\TERMCODETOCLASS 43382 . 43769) (\LITCHECK 43771 . 44185)) (46717
70541 (COPYREADTABLE 46727 . 46925) (FIND-READTABLE 46927 . 47074) (IN-READTABLE 47076 . 47236) (
ESCAPE 47238 . 47491) (GETBRK 47493 . 47631) (GETREADTABLE 47633 . 47769) (GETSEPR 47771 . 47909) (
READMACROS 47911 . 48174) (READTABLEP 48176 . 48339) (READTABLEPROP 48341 . 53499) (RESETREADTABLE
53501 . 57748) (SETBRK 57750 . 59360) (SETREADTABLE 59362 . 59550) (SETSEPR 59552 . 61094) (
\GETREADSYNTAX 61096 . 63786) (\GTREADTABLE 63788 . 64013) (\GTREADTABLE1 64015 . 64271) (
\ORIGREADTABLE 64273 . 66181) (\READCLASSTOCODE 66183 . 66634) (\SETMACROSYNTAX 66636 . 68431) (
\SETREADSYNTAX 68433 . 69494) (\READTABLEP.DEFPRINT 69496 . 70539)) (83633 88086 (\ATBLSET 83643 .
88084)) (88533 91065 (MAKE-READER-ENVIRONMENT 88543 . 89321) (EQUAL-READER-ENVIRONMENT 89323 . 90467)
(SET-READER-ENVIRONMENT 90469 . 91063)))))
STOP

BIN
sources/ATBL.LCOM
View File

Binary file not shown.

363
sources/CMLSTRING
View File

@@ -1,26 +1,26 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "16-May-90 14:45:59" {DSK}<usr>local>lde>lispcore>sources>CMLSTRING.;2 28996
(FILECREATED "20-Aug-2021 20:44:50" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;2 29739
changes to%: (VARS CMLSTRINGCOMS)
previous date%: "24-Mar-87 16:29:35" {DSK}<usr>local>lde>lispcore>sources>CMLSTRING.;1)
previous date%: "16-May-90 14:45:59"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;1)
(* ; "
Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1985-1987, 1990, 2021 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT CMLSTRINGCOMS)
(RPAQQ CMLSTRINGCOMS
(
(* ;; "run-time support ")
(* ;; "run-time support ")
(FUNCTIONS CL::SIMPLE-STRING= CL::SIMPLE-STRING-EQUAL)
(FUNCTIONS %%STRING-BASE-COMPARE %%STRING-BASE-COMPARE-EQUAL %%STRING-UPCASE
%%STRING-DOWNCASE)
(* ;; "User entry points ")
(* ;; "User entry points ")
(FUNCTIONS CL:MAKE-STRING CL:NSTRING-CAPITALIZE CL:NSTRING-DOWNCASE CL:NSTRING-UPCASE STRING
CL:STRING-CAPITALIZE CL:STRING-DOWNCASE STRING-EQUAL CL:STRING-GREATERP
@@ -29,14 +29,14 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
CL:STRING< CL:STRING<= CL:STRING= CL:STRING> CL:STRING>=)
(OPTIMIZERS CL:STRING= STRING-EQUAL)
(* ;; "Internal macros ")
(* ;; "Internal macros ")
(DECLARE%: DONTCOPY DOEVAL@COMPILE (FUNCTIONS WITH-ONE-STRING WITH-ONE-STRING-ONLY
WITH-STRING WITH-TWO-UNPACKED-STRINGS
%%UNPACK-STRING %%ADJUST-FOR-OFFSET %%CHECK-BOUNDS
%%PARSE-STRING-ARGS %%STRING-LENGTH))
(* ;; "Compiler options")
(* ;; "Compiler options")
(PROP FILETYPE CMLSTRING)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T))))
@@ -47,38 +47,38 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL::SIMPLE-STRING= (STRING1 STRING2)
[LET ((END1 (%%STRING-LENGTH STRING1))
(END2 (%%STRING-LENGTH STRING2)))
[LET ((END1 (%%STRING-LENGTH STRING1))
(END2 (%%STRING-LENGTH STRING2)))
(CL:IF (EQ END1 END2)
(LET (BASE1 BASE2 OFFSET1 OFFSET2 TYPENUMBER1 TYPENUMBER2)
(%%UNPACK-STRING STRING1 BASE1 OFFSET1 TYPENUMBER1)
(%%UNPACK-STRING STRING2 BASE2 OFFSET2 TYPENUMBER2)
(%%UNPACK-STRING STRING1 BASE1 OFFSET1 TYPENUMBER1)
(%%UNPACK-STRING STRING2 BASE2 OFFSET2 TYPENUMBER2)
(CL:IF (NOT (EQ 0 OFFSET1))
(SETQ END1 (+ END1 OFFSET1)))
(CL:IF (NOT (EQ 0 OFFSET2))
(SETQ END2 (+ END2 OFFSET2)))
(EQ END1 (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 OFFSET1 END1
(EQ END1 (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 OFFSET1 END1
OFFSET2 END2))))])
(CL:DEFUN CL::SIMPLE-STRING-EQUAL (STRING1 STRING2)
[LET ((END1 (%%STRING-LENGTH STRING1))
(END2 (%%STRING-LENGTH STRING2)))
[LET ((END1 (%%STRING-LENGTH STRING1))
(END2 (%%STRING-LENGTH STRING2)))
(CL:IF (EQ END1 END2)
(LET (BASE1 BASE2 OFFSET1 OFFSET2 TYPENUMBER1 TYPENUMBER2)
(%%UNPACK-STRING STRING1 BASE1 OFFSET1 TYPENUMBER1)
(%%UNPACK-STRING STRING2 BASE2 OFFSET2 TYPENUMBER2)
(%%UNPACK-STRING STRING1 BASE1 OFFSET1 TYPENUMBER1)
(%%UNPACK-STRING STRING2 BASE2 OFFSET2 TYPENUMBER2)
(CL:IF (NOT (EQ 0 OFFSET1))
(SETQ END1 (+ END1 OFFSET1)))
(CL:IF (NOT (EQ 0 OFFSET2))
(SETQ END2 (+ END2 OFFSET2)))
(EQ END1 (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 OFFSET1
END1 OFFSET2 END2))))])
(EQ END1 (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
OFFSET1 END1 OFFSET2 END2))))])
(CL:DEFUN %%STRING-BASE-COMPARE (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1 START2 END2)
(* ;; "Return index into base1 of first inequality ")
(* ;; "Return index into base1 of first inequality ")
(* ;; "Can use eq for character comparisons because they are immediate datatypes. Can use eq for numeric equality since Indices are always in the fixnum range")
(* ;; "Can use eq for character comparisons because they are immediate datatypes. Can use eq for numeric equality since Indices are always in the fixnum range")
(CL:IF (EQ START1 START2)
(CL:DO ((INDEX START1 (CL:1+ INDEX))
@@ -98,11 +98,11 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN %%STRING-BASE-COMPARE-EQUAL (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1 START2
END2)
(* ;; "Return index into base1 of first case insensitive inequality ")
(* ;; "Return index into base1 of first case insensitive inequality ")
(* ;; "Can use eq for character comparisons because they are immediate datatypes. ")
(* ;; "Can use eq for character comparisons because they are immediate datatypes. ")
(* ;; "Char-upcase has been expanded out and simplified below.")
(* ;; "Char-upcase has been expanded out and simplified below.")
(CL:IF (EQ START1 START2)
(CL:DO ((INDEX START1 (CL:1+ INDEX))
@@ -119,28 +119,28 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(%%CHAR-UPCASE-CODE (\LOLOC (%%ARRAY-READ BASE2 TYPENUMBER2 INDEX2]
INDEX1))))
(CL:DEFUN %%STRING-UPCASE (STRING START END)
(CL:DEFUN %%STRING-UPCASE (STRING START END)
(* ;; "Assumes string is a string. Start and end define a subsequence. Destructively upcases string and returns it ")
(* ;; "Assumes string is a string. Start and end define a subsequence. Destructively upcases string and returns it ")
(LET ((BASE (%%ARRAY-BASE STRING))
(OFFSET (%%ARRAY-OFFSET STRING))
(TYPENUMBER (%%ARRAY-TYPE-NUMBER STRING)))
(%%ADJUST-FOR-OFFSET START END OFFSET)
(%%ADJUST-FOR-OFFSET START END OFFSET)
(CL:DO ((INDEX START (CL:1+ INDEX)))
((EQ INDEX END)
STRING)
(%%ARRAY-WRITE (CL:CHAR-UPCASE (%%ARRAY-READ BASE TYPENUMBER INDEX))
BASE TYPENUMBER INDEX))))
(CL:DEFUN %%STRING-DOWNCASE (STRING START END)
(CL:DEFUN %%STRING-DOWNCASE (STRING START END)
(* ;; "Assumes string is a string. Start and end define a subsequence. Destructively downcases string and returns it ")
(* ;; "Assumes string is a string. Start and end define a subsequence. Destructively downcases string and returns it ")
(LET ((BASE (%%ARRAY-BASE STRING))
(OFFSET (%%ARRAY-OFFSET STRING))
(TYPENUMBER (%%ARRAY-TYPE-NUMBER STRING)))
(%%ADJUST-FOR-OFFSET START END OFFSET)
(%%ADJUST-FOR-OFFSET START END OFFSET)
(CL:DO ((INDEX START (CL:1+ INDEX)))
((EQ INDEX END)
STRING)
@@ -155,84 +155,85 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:MAKE-STRING (SIZE &KEY (INITIAL-ELEMENT NIL INITIAL-ELEMENT-P)
FATP)
"Makes a simple string"
(LET ((STRING (MAKE-VECTOR SIZE :ELEMENT-TYPE 'CL:STRING-CHAR :FATP FATP)))
(LET ((STRING (MAKE-VECTOR SIZE :ELEMENT-TYPE 'CL:STRING-CHAR :FATP FATP)))
(CL:IF INITIAL-ELEMENT-P (FILL-ARRAY STRING INITIAL-ELEMENT))
STRING))
(CL:DEFUN CL:NSTRING-CAPITALIZE (STRING &KEY START END)
(CL:DEFUN CL:NSTRING-CAPITALIZE (STRING &KEY START END)
"Given a string, returns it with the first letter of every word in uppercase and all other letters in lowercase. A word is defined to be a sequence of alphanumeric characters delimited by non-alphanumeric characters"
[WITH-ONE-STRING-ONLY STRING START END (CL:DO ((INDEX START (CL:1+ INDEX))
(ALPHA-P NIL)
(WAS-ALPHA-P NIL ALPHA-P)
CHAR)
((EQ INDEX END)
STRING)
(SETQ CHAR (CL:CHAR STRING INDEX))
(SETQ ALPHA-P (CL:ALPHANUMERICP CHAR))
(CL:SETF (CL:CHAR STRING INDEX)
(CL:IF (AND ALPHA-P (NOT WAS-ALPHA-P))
(CL:CHAR-UPCASE CHAR)
(CL:CHAR-DOWNCASE CHAR))))])
[WITH-ONE-STRING-ONLY STRING START END (CL:DO ((INDEX START (CL:1+ INDEX))
(ALPHA-P NIL)
(WAS-ALPHA-P NIL ALPHA-P)
CHAR)
((EQ INDEX END)
STRING)
(SETQ CHAR (CL:CHAR STRING INDEX))
(SETQ ALPHA-P (CL:ALPHANUMERICP CHAR))
(CL:SETF (CL:CHAR STRING INDEX)
(CL:IF (AND ALPHA-P (NOT WAS-ALPHA-P))
(CL:CHAR-UPCASE CHAR)
(CL:CHAR-DOWNCASE CHAR))))])
(CL:DEFUN CL:NSTRING-DOWNCASE (STRING &KEY START END)
(CL:DEFUN CL:NSTRING-DOWNCASE (STRING &KEY START END)
"Given a string, returns that string with all uppercase alphabetic characters converted to lowercase."
(WITH-ONE-STRING-ONLY STRING START END (%%STRING-DOWNCASE STRING START END)))
(WITH-ONE-STRING-ONLY STRING START END (%%STRING-DOWNCASE STRING START END)))
(CL:DEFUN CL:NSTRING-UPCASE (STRING &KEY START END)
(CL:DEFUN CL:NSTRING-UPCASE (STRING &KEY START END)
"Given a string, returns that string with all lower case alphabetic characters converted to uppercase."
(WITH-ONE-STRING-ONLY STRING START END (%%STRING-UPCASE STRING START END)))
(WITH-ONE-STRING-ONLY STRING START END (%%STRING-UPCASE STRING START END)))
(CL:DEFUN STRING (X)
"Coerces X into a string. If X is a string, X is returned. If X is a symbol, X's pname is returned. If X is a character then a one element string containing that character is returned. If X cannot be coerced into a string, an error occurs."
(CL:TYPECASE X
(STRING X)
(CL:SYMBOL (CL:SYMBOL-NAME X))
(CL:CHARACTER (CL:MAKE-STRING 1 :INITIAL-ELEMENT X))
(CL:CHARACTER (CL:MAKE-STRING 1 :INITIAL-ELEMENT X))
(CL:OTHERWISE (CL:ERROR "~S cannot be coerced into a string" X))))
(CL:DEFUN CL:STRING-CAPITALIZE (STRING &KEY START END)
(CL:DEFUN CL:STRING-CAPITALIZE (STRING &KEY START END)
"Given a string, returns a new string that is a copy of it with the first letter of every word in uppercase and all other letters in lowercase. A word is defined to be a sequence of alphanumeric characters delimited by non-alphanumeric characters"
(WITH-ONE-STRING STRING START END (LET ((NEW-STRING (CL:MAKE-STRING SLEN)))
(CL:DOTIMES (INDEX START)
(CL:SETF (CL:SCHAR NEW-STRING INDEX)
(CL:CHAR STRING INDEX)))
(CL:DO ((INDEX START (CL:1+ INDEX))
(ALPHA-P NIL)
(WAS-ALPHA-P NIL ALPHA-P)
CHAR)
((EQ INDEX END))
(SETQ CHAR (CL:CHAR STRING INDEX))
(SETQ ALPHA-P (CL:ALPHANUMERICP CHAR))
(CL:SETF (CL:SCHAR NEW-STRING INDEX)
(CL:IF (AND ALPHA-P (NOT WAS-ALPHA-P))
(CL:CHAR-UPCASE CHAR)
(CL:CHAR-DOWNCASE CHAR))))
(CL:DO ((INDEX END (CL:1+ INDEX)))
((EQ INDEX SLEN))
(CL:SETF (CL:SCHAR NEW-STRING INDEX)
(CL:CHAR STRING INDEX)))
NEW-STRING)))
(WITH-ONE-STRING STRING START END (LET ((NEW-STRING (CL:MAKE-STRING SLEN)))
(CL:DOTIMES (INDEX START)
(CL:SETF (CL:SCHAR NEW-STRING INDEX)
(CL:CHAR STRING INDEX)))
(CL:DO ((INDEX START (CL:1+ INDEX))
(ALPHA-P NIL)
(WAS-ALPHA-P NIL ALPHA-P)
CHAR)
((EQ INDEX END))
(SETQ CHAR (CL:CHAR STRING INDEX))
(SETQ ALPHA-P (CL:ALPHANUMERICP CHAR))
(CL:SETF (CL:SCHAR NEW-STRING INDEX)
(CL:IF (AND ALPHA-P (NOT WAS-ALPHA-P))
(CL:CHAR-UPCASE CHAR)
(CL:CHAR-DOWNCASE CHAR))))
(CL:DO ((INDEX END (CL:1+ INDEX)))
((EQ INDEX SLEN))
(CL:SETF (CL:SCHAR NEW-STRING INDEX)
(CL:CHAR STRING INDEX)))
NEW-STRING)))
(CL:DEFUN CL:STRING-DOWNCASE (STRING &KEY START END)
(CL:DEFUN CL:STRING-DOWNCASE (STRING &KEY START END)
"Given a string, returns a new string that is a copy of it with all uppercase case alphabetic characters converted to lowercase."
(WITH-ONE-STRING STRING START END (%%STRING-DOWNCASE (COPY-VECTOR STRING (CL:MAKE-STRING SLEN))
START END)))
(WITH-ONE-STRING STRING START END (%%STRING-DOWNCASE (COPY-VECTOR STRING (CL:MAKE-STRING
SLEN))
START END)))
(CL:DEFUN STRING-EQUAL (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Compare two strings for case insensitive equality"
(CL:IF (OR START1 END1 START2 END2)
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(CL:IF (EQ SLEN1 SLEN2)
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(EQ END1 (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2))))]
(CL::SIMPLE-STRING-EQUAL STRING1 STRING2)))
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(EQ END1 (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2
TYPENUMBER2 START1 END1 START2 END2))))]
(CL::SIMPLE-STRING-EQUAL STRING1 STRING2)))
(CL:DEFUN CL:STRING-GREATERP (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Case insensitive version of STRING>"
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
@@ -247,18 +248,18 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING-LEFT-TRIM (CHAR-BAG STRING)
"Trim only on left"
(WITH-STRING STRING (LET [(LEFT-END (CL:DO ((INDEX 0 (CL:1+ INDEX)))
((OR (EQ INDEX SLEN)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
INDEX))]
(CL:SUBSEQ STRING LEFT-END SLEN))))
(WITH-STRING STRING (LET [(LEFT-END (CL:DO ((INDEX 0 (CL:1+ INDEX)))
((OR (EQ INDEX SLEN)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
INDEX))]
(CL:SUBSEQ STRING LEFT-END SLEN))))
(CL:DEFUN CL:STRING-LESSP (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Case insensitive version of STRING<"
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
@@ -274,10 +275,10 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING-NOT-EQUAL (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Compare two string for case insensitive equality"
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2)))
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2)))
(CL:IF (AND (EQ INDEX END1)
(EQ SLEN1 SLEN2))
NIL
@@ -285,9 +286,9 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING-NOT-GREATERP (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Case insensitive version of STRING<="
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
@@ -302,9 +303,9 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING-NOT-LESSP (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Case insensitive version of STRING>="
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE-EQUAL BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
@@ -318,42 +319,43 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING-RIGHT-TRIM (CHAR-BAG STRING)
"Trim only on right"
(WITH-STRING STRING (LET [(RIGHT-END (CL:DO ((INDEX (CL:1- SLEN)
(CL:1- INDEX)))
((OR (< INDEX 0)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
(CL:1+ INDEX)))]
(CL:SUBSEQ STRING 0 RIGHT-END))))
(WITH-STRING STRING (LET [(RIGHT-END (CL:DO ((INDEX (CL:1- SLEN)
(CL:1- INDEX)))
((OR (< INDEX 0)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
(CL:1+ INDEX)))]
(CL:SUBSEQ STRING 0 RIGHT-END))))
(CL:DEFUN CL:STRING-TRIM (CHAR-BAG STRING)
(* ;; "Given a set of characters (a list or string) and a string, returns a copy of the string with the characters in the set removed from both ends.")
(* ;; "Given a set of characters (a list or string) and a string, returns a copy of the string with the characters in the set removed from both ends.")
(WITH-STRING STRING (LET* [(LEFT-END (CL:DO ((INDEX 0 (CL:1+ INDEX)))
((OR (EQ INDEX SLEN)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
INDEX)))
(RIGHT-END (CL:DO ((INDEX (CL:1- SLEN)
(CL:1- INDEX)))
((OR (< INDEX LEFT-END)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
(CL:1+ INDEX)))]
(CL:SUBSEQ STRING LEFT-END RIGHT-END))))
(WITH-STRING STRING (LET* [(LEFT-END (CL:DO ((INDEX 0 (CL:1+ INDEX)))
((OR (EQ INDEX SLEN)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
INDEX)))
(RIGHT-END (CL:DO ((INDEX (CL:1- SLEN)
(CL:1- INDEX)))
((OR (< INDEX LEFT-END)
(NOT (CL:FIND (CL:CHAR STRING INDEX)
CHAR-BAG)))
(CL:1+ INDEX)))]
(CL:SUBSEQ STRING LEFT-END RIGHT-END))))
(CL:DEFUN CL:STRING-UPCASE (STRING &KEY START END)
(CL:DEFUN CL:STRING-UPCASE (STRING &KEY START END)
"Given a string, returns a new string that is a copy of it with all lower case alphabetic characters converted to uppercase."
(WITH-ONE-STRING STRING START END (%%STRING-UPCASE (COPY-VECTOR STRING (CL:MAKE-STRING SLEN))
START END)))
(WITH-ONE-STRING STRING START END (%%STRING-UPCASE (COPY-VECTOR STRING (CL:MAKE-STRING
SLEN))
START END)))
(CL:DEFUN CL:STRING/= (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Compare two strings for case sensitive inequality"
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1
START2 END2)))
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2)))
(CL:IF (AND (EQ INDEX END1)
(EQ SLEN1 SLEN2))
NIL
@@ -361,10 +363,10 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING< (STRING1 STRING2 &KEY START1 END1 START2 END2)
"A string A is less than a string B if in the first position in which they differ the character of A is less than the corresponding character of B according to char< or if string A is a proper prefix of string B (of shorter length and matching in all the characters of A). Returns either NIL or an index into STRING1"
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1
START2 END2))
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
((EQ INDEX END1)
@@ -378,10 +380,10 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(- INDEX OFFSET1])
(CL:DEFUN CL:STRING<= (STRING1 STRING2 &KEY START1 END1 START2 END2)
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1
START2 END2))
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
((EQ INDEX END1)
@@ -396,18 +398,18 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(CL:DEFUN CL:STRING= (STRING1 STRING2 &KEY START1 END1 START2 END2)
"Compare two strings for case sensitive equality"
(CL:IF (OR START1 END1 START2 END2)
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(CL:IF (EQ SLEN1 SLEN2)
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(EQ END1 (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2))))]
(CL::SIMPLE-STRING= STRING1 STRING2)))
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(EQ END1 (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2
START1 END1 START2 END2))))]
(CL::SIMPLE-STRING= STRING1 STRING2)))
(CL:DEFUN CL:STRING> (STRING1 STRING2 &KEY START1 END1 START2 END2)
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1
START2 END2))
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
((EQ REL-INDEX SLEN2)
@@ -420,10 +422,10 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(- INDEX OFFSET1])
(CL:DEFUN CL:STRING>= (STRING1 STRING2 &KEY START1 END1 START2 END2)
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1 END1
START2 END2))
[%%PARSE-STRING-ARGS STRING1 STRING2 START1 END1 START2 END2
(WITH-TWO-UNPACKED-STRINGS STRING1 STRING2 START1 END1 START2 END2
(LET* ((INDEX (%%STRING-BASE-COMPARE BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 START1
END1 START2 END2))
(REL-INDEX (- INDEX START1)))
(COND
((EQ REL-INDEX SLEN2)
@@ -437,12 +439,12 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(DEFOPTIMIZER CL:STRING= (STRING1 STRING2 &REST OPTIONS)
(CL:IF OPTIONS
'COMPILER:PASS
`(CL::SIMPLE-STRING= ,STRING1 ,STRING2)))
`(CL::SIMPLE-STRING= ,STRING1 ,STRING2)))
(DEFOPTIMIZER STRING-EQUAL (STRING1 STRING2 &REST OPTIONS)
(CL:IF OPTIONS
'COMPILER:PASS
`(CL::SIMPLE-STRING-EQUAL ,STRING1 ,STRING2)))
`(CL::SIMPLE-STRING-EQUAL ,STRING1 ,STRING2)))
@@ -450,38 +452,38 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(DECLARE%: DONTCOPY DOEVAL@COMPILE
(DEFMACRO WITH-ONE-STRING (STRING START END &REST FORMS)
(DEFMACRO WITH-ONE-STRING (STRING START END &REST FORMS)
"WITH-ONE-STRING is used to set up string operations. The keywords are parsed, and STRING is coerced into a string. SLEN is bound to the string length"
`(LET [(SLEN (VECTOR-LENGTH (SETQ ,STRING (STRING ,STRING]
(%%CHECK-BOUNDS ,START ,END SLEN)
`(LET [(SLEN (VECTOR-LENGTH (SETQ ,STRING (STRING ,STRING]
(%%CHECK-BOUNDS ,START ,END SLEN)
,@FORMS))
(DEFMACRO WITH-ONE-STRING-ONLY (STRING START END &REST FORMS)
(DEFMACRO WITH-ONE-STRING-ONLY (STRING START END &REST FORMS)
(* ;; "Like WITH-ONE-STRING but only strings allowed")
(* ;; "Like WITH-ONE-STRING but only strings allowed")
`(PROGN (CL:IF (NOT (CL:STRINGP ,STRING))
(CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR :EXPECTED-TYPE 'STRING :CULPRIT ,STRING))
(LET [(SLEN (VECTOR-LENGTH ,STRING]
(%%CHECK-BOUNDS ,START ,END SLEN)
(%%CHECK-BOUNDS ,START ,END SLEN)
,@FORMS)))
(DEFMACRO WITH-STRING (STRING &REST FORMS)
(DEFMACRO WITH-STRING (STRING &REST FORMS)
(* ;; "WITH-STRING is like WITH-ONE-STRING, but doesn't process keywords")
(* ;; "WITH-STRING is like WITH-ONE-STRING, but doesn't process keywords")
`(LET [(SLEN (VECTOR-LENGTH (SETQ ,STRING (STRING ,STRING]
`(LET [(SLEN (VECTOR-LENGTH (SETQ ,STRING (STRING ,STRING]
,@FORMS))
(DEFMACRO WITH-TWO-UNPACKED-STRINGS (STRING1 STRING2 START1 END1 START2 END2 &REST FORMS)
(* ;; "Used to set up string comparison operations. String1 and string2 are unpacked and start1, end1, start2, end2 are adjusted for non-zero offsets. Base1 and base2, typenumber1, typenumber2 , offset1 and offset2 are bound to the appropriate unpacked quantities")
(* ;; "Used to set up string comparison operations. String1 and string2 are unpacked and start1, end1, start2, end2 are adjusted for non-zero offsets. Base1 and base2, typenumber1, typenumber2 , offset1 and offset2 are bound to the appropriate unpacked quantities")
`(LET (BASE1 BASE2 OFFSET1 OFFSET2 TYPENUMBER1 TYPENUMBER2)
(%%UNPACK-STRING ,STRING1 BASE1 OFFSET1 TYPENUMBER1)
(%%UNPACK-STRING ,STRING2 BASE2 OFFSET2 TYPENUMBER2)
(%%ADJUST-FOR-OFFSET ,START1 ,END1 OFFSET1)
(%%ADJUST-FOR-OFFSET ,START2 ,END2 OFFSET2)
(%%UNPACK-STRING ,STRING1 BASE1 OFFSET1 TYPENUMBER1)
(%%UNPACK-STRING ,STRING2 BASE2 OFFSET2 TYPENUMBER2)
(%%ADJUST-FOR-OFFSET ,START1 ,END1 OFFSET1)
(%%ADJUST-FOR-OFFSET ,START2 ,END2 OFFSET2)
,@FORMS))
(DEFMACRO %%UNPACK-STRING (OBJECT BASE OFFSET TYPENUMBER &OPTIONAL LENGTH)
@@ -524,24 +526,24 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(DEFMACRO %%PARSE-STRING-ARGS (STRING1 STRING2 START1 END1 START2 END2 &REST FORMS)
(* ;; "Used to set up string comparison operations. The keywords are defaulted, bounds are checked and Slen1 and Slen1 are bound to substring lengths%"")
(* ;; "Used to set up string comparison operations. The keywords are defaulted, bounds are checked and Slen1 and Slen1 are bound to substring lengths%"")
`(LET [(SLEN1 (%%STRING-LENGTH ,STRING1))
(SLEN2 (%%STRING-LENGTH ,STRING2]
(%%CHECK-BOUNDS ,START1 ,END1 SLEN1)
(%%CHECK-BOUNDS ,START2 ,END2 SLEN2)
`(LET [(SLEN1 (%%STRING-LENGTH ,STRING1))
(SLEN2 (%%STRING-LENGTH ,STRING2]
(%%CHECK-BOUNDS ,START1 ,END1 SLEN1)
(%%CHECK-BOUNDS ,START2 ,END2 SLEN2)
(SETQ SLEN1 (- ,END1 ,START1))
(SETQ SLEN2 (- ,END2 ,START2))
,@FORMS))
(DEFMACRO %%STRING-LENGTH (STRING)
(DEFMACRO %%STRING-LENGTH (STRING)
`(COND
((%%STRINGP ,STRING)
(fetch (ARRAY-HEADER FILL-POINTER) of ,STRING))
((CL:SYMBOLP ,STRING)
(fetch (LITATOM PNAMELENGTH) of ,STRING))
[(CL:CHARACTERP ,STRING)
(VECTOR-LENGTH (SETQ ,STRING (STRING ,STRING]
(VECTOR-LENGTH (SETQ ,STRING (STRING ,STRING]
(T (CL:ERROR 'XCL:TYPE-MISMATCH :EXPECTED-TYPE '(OR STRING CL:SYMBOL CL:CHARACTER)
:NAME
,STRING :VALUE ,STRING :MESSAGE "a string, symbol or character"))))
@@ -559,7 +561,20 @@ Copyright (c) 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights r
(LOCALVARS . T)
)
)
(PUTPROPS CMLSTRING COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990))
(PUTPROPS CMLSTRING COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
(FILEMAP (NIL (1837 2573 (CL::SIMPLE-STRING= 1837 . 2573)) (2575 3323 (CL::SIMPLE-STRING-EQUAL 2575 .
3323)) (3325 4321 (%%STRING-BASE-COMPARE 3325 . 4321)) (4323 5506 (%%STRING-BASE-COMPARE-EQUAL 4323 .
5506)) (5508 6096 (%%STRING-UPCASE 5508 . 6096)) (6098 6692 (%%STRING-DOWNCASE 6098 . 6692)) (6730
7047 (CL:MAKE-STRING 6730 . 7047)) (7049 8278 (CL:NSTRING-CAPITALIZE 7049 . 8278)) (8280 8536 (
CL:NSTRING-DOWNCASE 8280 . 8536)) (8538 8791 (CL:NSTRING-UPCASE 8538 . 8791)) (8793 9273 (STRING 8793
. 9273)) (9275 11185 (CL:STRING-CAPITALIZE 9275 . 11185)) (11187 11637 (CL:STRING-DOWNCASE 11187 .
11637)) (11639 12234 (STRING-EQUAL 11639 . 12234)) (12236 13199 (CL:STRING-GREATERP 12236 . 13199)) (
13201 13721 (CL:STRING-LEFT-TRIM 13201 . 13721)) (13723 14718 (CL:STRING-LESSP 13723 . 14718)) (14720
15346 (CL:STRING-NOT-EQUAL 14720 . 15346)) (15348 16300 (CL:STRING-NOT-GREATERP 15348 . 16300)) (16302
17210 (CL:STRING-NOT-LESSP 16302 . 17210)) (17212 17811 (CL:STRING-RIGHT-TRIM 17212 . 17811)) (17813
18947 (CL:STRING-TRIM 17813 . 18947)) (18949 19389 (CL:STRING-UPCASE 18949 . 19389)) (19391 20004 (
CL:STRING/= 19391 . 20004)) (20006 21264 (CL:STRING< 20006 . 21264)) (21266 22147 (CL:STRING<= 21266
. 22147)) (22149 22729 (CL:STRING= 22149 . 22729)) (22731 23630 (CL:STRING> 22731 . 23630)) (23632
24475 (CL:STRING>= 23632 . 24475)))))
STOP

BIN
sources/CMLSTRING.LCOM
View File

Binary file not shown.

109
sources/FILEPKG
View File

@@ -1,12 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 3-Jul-2021 11:08:42" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;5 284528
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "23-Aug-2021 16:42:18" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;6 284495
changes to%: (FNS MAKEFILE)
(VARS FILEPKGCOMS)
changes to%: (FNS GATHEREXPORTS)
previous date%: "29-Jun-2021 17:25:04"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;4)
previous date%: " 3-Jul-2021 11:08:42"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;5)
(* ; "
@@ -3115,14 +3114,14 @@ compiling " T)
(ADDTOVAR USERMACROS
(M NIL (MAKE FILE FILE))
(M (X . Y)
(E (MARKASCHANGED (COND ((LISTP 'X)
(CAR 'X))
(T 'X))
'USERMACROS)
T)
(ORIGINAL (M X . Y))))
(ORIGINAL (M X . Y)))
(M NIL (MAKE FILE FILE)))
(ADDTOVAR EDITMACROS
(M (X . Y)
@@ -4872,16 +4871,16 @@ compiling " T)
(for FILE in FILES do (IMPORTFILE (CADR FILE])
(GATHEREXPORTS
[LAMBDA (FROMFILES TOFILE FLG) (* bvm%: "14-Oct-86 23:12")
(* ;
 "Copies all exported definitions from FROMFILES to TOFILE.")
[LAMBDA (FROMFILES TOFILE FLG) (* ; "Edited 23-Aug-2021 16:40 by rmk:")
(* ;
 "Copies all exported definitions from FROMFILES to TOFILE.")
(RESETLST
[RESETSAVE NIL (LIST (FUNCTION CLOSE-AND-MAYBE-DELETE)
(SETQ TOFILE (OPENSTREAM TOFILE 'OUTPUT]
(RESETSAVE (OUTPUT TOFILE))
(LET ((ENV *DEFAULT-MAKEFILE-ENVIRONMENT*))
(SETQ ENV (if ENV
then (\DO-DEFINE-FILE-INFO NIL ENV)
then (\DO-DEFINE-FILE-INFO TOFILE ENV)
else *OLD-INTERLISP-READ-ENVIRONMENT*))
(WITH-READER-ENVIRONMENT ENV
(PRINT-READER-ENVIRONMENT ENV)
@@ -5037,46 +5036,46 @@ compiling " T)
(PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989
1990 1991 1992 1993 1995 2018 2020 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (20669 22374 (SEARCHPRETTYTYPELST 20679 . 21658) (PRETTYDEFMACROS 21660 . 22118) (
FILEPKGCOMPROPS 22120 . 22372)) (23176 57665 (CLEANUP 23186 . 24574) (COMPILEFILES 24576 . 24852) (
COMPILEFILES0 24854 . 25574) (CONTINUEDIT 25576 . 26996) (MAKEFILE 26998 . 39006) (FILECHANGES 39008
. 41343) (FILEPKG.MERGECHANGES 41345 . 42168) (FILEPKG.CHANGEDFNS 42170 . 42482) (MAKEFILE1 42484 .
46711) (COMPILE-FILE? 46713 . 48270) (MAKEFILES 48272 . 49965) (ADDFILE 49967 . 52488) (ADDFILE0 52490
. 56626) (LISTFILES 56628 . 57663)) (58361 93601 (FILEPKGCHANGES 58371 . 59721) (GETFILEPKGTYPE 59723
. 62796) (MARKASCHANGED 62798 . 64435) (FILECOMS 64437 . 64821) (WHEREIS 64823 . 66243) (
SMASHFILECOMS 66245 . 66480) (FILEFNSLST 66482 . 66644) (FILECOMSLST 66646 . 67130) (UPDATEFILES 67132
. 72432) (INFILECOMS? 72434 . 74337) (INFILECOMTAIL 74339 . 75479) (INFILECOMS 75481 . 75642) (
INFILECOM 75644 . 85853) (INFILECOMSVALS 85855 . 86182) (INFILECOMSVAL 86184 . 87186) (INFILECOMSPROP
87188 . 88017) (IFCPROPS 88019 . 89280) (IFCEXPRTYPE 89282 . 89793) (IFCPROPSCAN 89795 . 90848) (
IFCDECLARE 90850 . 92161) (INFILEPAIRS 92163 . 92495) (INFILECOMSMACRO 92497 . 93599)) (93636 125056 (
FILES? 93646 . 95839) (FILES?1 95841 . 96539) (FILES?PRINTLST 96541 . 97323) (ADDTOFILES? 97325 .
108371) (ADDTOFILE 108373 . 109289) (WHATIS 109291 . 111267) (ADDTOCOMS 111269 . 112913) (ADDTOCOM
112915 . 119462) (ADDTOCOM1 119464 . 120635) (ADDNEWCOM 120637 . 121687) (MAKENEWCOM 121689 . 123532)
(DEFAULTMAKENEWCOM 123534 . 125054)) (125126 127943 (MERGEINSERT 125136 . 127479) (MERGEINSERT1 127481
. 127941)) (128097 129454 (ADDTOFILEKEYLST 128107 . 129452)) (129571 140483 (DELFROMFILES 129581 .
130431) (DELFROMCOMS 130433 . 132112) (DELFROMCOM 132114 . 137982) (DELFROMCOM1 137984 . 138781) (
REMOVEITEM 138783 . 139657) (MOVETOFILE 139659 . 140481)) (140697 143066 (SAVEPUT 140707 . 143064)) (
143191 151515 (UNMARKASCHANGED 143201 . 144909) (PREEDITFN 144911 . 147422) (POSTEDITPROPS 147424 .
149925) (POSTEDITALISTS 149927 . 151513)) (151664 172218 (ALISTS.GETDEF 151674 . 152053) (
ALISTS.WHENCHANGED 152055 . 152699) (CLEARCLISPARRAY 152701 . 153875) (EXPRESSIONS.WHENCHANGED 153877
. 154251) (MAKEALISTCOMS 154253 . 155326) (MAKEFILESCOMS 155328 . 156765) (MAKELISPXMACROSCOMS 156767
. 158785) (MAKEPROPSCOMS 158787 . 159485) (MAKEUSERMACROSCOMS 159487 . 161287) (PROPS.WHENCHANGED
161289 . 161910) (FILEGETDEF.LISPXMACROS 161912 . 163354) (FILEGETDEF.ALISTS 163356 . 163975) (
FILEGETDEF.RECORDS 163977 . 164908) (FILEGETDEF.PROPS 164910 . 165702) (FILEGETDEF.MACROS 165704 .
166764) (FILEGETDEF.VARS 166766 . 167182) (FILEGETDEF.FNS 167184 . 168548) (FILEPKGCOMS.PUTDEF 168550
. 170990) (FILES.PUTDEF 170992 . 171949) (VARS.PUTDEF 171951 . 172094) (FILES.WHENCHANGED 172096 .
172216)) (174240 181673 (RENAME 174250 . 175651) (CHANGECALLERS 175653 . 181671)) (181674 229622 (
SHOWDEF 181684 . 182477) (COPYDEF 182479 . 184953) (GETDEF 184955 . 187231) (GETDEFCOM 187233 . 188199
) (GETDEFCOM0 188201 . 189547) (GETDEFCURRENT 189549 . 195969) (GETDEFERR 195971 . 197272) (
GETDEFFROMFILE 197274 . 201554) (GETDEFSAVED 201556 . 202660) (PUTDEF 202662 . 203365) (EDITDEF 203367
. 204344) (DEFAULT.EDITDEF 204346 . 207182) (EDITDEF.FILES 207184 . 207385) (LOADDEF 207387 . 207563)
(DWIMDEF 207565 . 208419) (DELDEF 208421 . 211435) (DELFROMLIST 211437 . 211941) (HASDEF 211943 .
218265) (GETFILEDEF 218267 . 218789) (SAVEDEF 218791 . 220450) (UNSAVEDEF 220452 . 221348) (
COMPAREDEFS 221350 . 224652) (COMPARE 224654 . 225358) (TYPESOF 225360 . 229620)) (229689 234732 (
FIXEDITDATE 229699 . 233202) (EDITDATE? 233204 . 234730)) (235151 243922 (FILEPKGCOM 235161 . 240094)
(FILEPKGTYPE 240096 . 243920)) (255959 270891 (FINDCALLERS 255969 . 256484) (EDITCALLERS 256486 .
264396) (EDITFROMFILE 264398 . 270206) (FINDATS 270208 . 270480) (LOOKIN 270482 . 270889)) (270892
272619 (SEPRCASE 270902 . 272617)) (273136 278678 (IMPORTFILE 273146 . 274120) (IMPORTEVAL 274122 .
275002) (IMPORTFILESCAN 275004 . 275425) (CHECKIMPORTS 275427 . 276763) (GATHEREXPORTS 276765 . 278088
) (\DUMPEXPORTS 278090 . 278676)) (279016 281224 (CLEARFILEPKG 279026 . 281222)))))
(FILEMAP (NIL (20621 22326 (SEARCHPRETTYTYPELST 20631 . 21610) (PRETTYDEFMACROS 21612 . 22070) (
FILEPKGCOMPROPS 22072 . 22324)) (23128 57617 (CLEANUP 23138 . 24526) (COMPILEFILES 24528 . 24804) (
COMPILEFILES0 24806 . 25526) (CONTINUEDIT 25528 . 26948) (MAKEFILE 26950 . 38958) (FILECHANGES 38960
. 41295) (FILEPKG.MERGECHANGES 41297 . 42120) (FILEPKG.CHANGEDFNS 42122 . 42434) (MAKEFILE1 42436 .
46663) (COMPILE-FILE? 46665 . 48222) (MAKEFILES 48224 . 49917) (ADDFILE 49919 . 52440) (ADDFILE0 52442
. 56578) (LISTFILES 56580 . 57615)) (58313 93553 (FILEPKGCHANGES 58323 . 59673) (GETFILEPKGTYPE 59675
. 62748) (MARKASCHANGED 62750 . 64387) (FILECOMS 64389 . 64773) (WHEREIS 64775 . 66195) (
SMASHFILECOMS 66197 . 66432) (FILEFNSLST 66434 . 66596) (FILECOMSLST 66598 . 67082) (UPDATEFILES 67084
. 72384) (INFILECOMS? 72386 . 74289) (INFILECOMTAIL 74291 . 75431) (INFILECOMS 75433 . 75594) (
INFILECOM 75596 . 85805) (INFILECOMSVALS 85807 . 86134) (INFILECOMSVAL 86136 . 87138) (INFILECOMSPROP
87140 . 87969) (IFCPROPS 87971 . 89232) (IFCEXPRTYPE 89234 . 89745) (IFCPROPSCAN 89747 . 90800) (
IFCDECLARE 90802 . 92113) (INFILEPAIRS 92115 . 92447) (INFILECOMSMACRO 92449 . 93551)) (93588 125008 (
FILES? 93598 . 95791) (FILES?1 95793 . 96491) (FILES?PRINTLST 96493 . 97275) (ADDTOFILES? 97277 .
108323) (ADDTOFILE 108325 . 109241) (WHATIS 109243 . 111219) (ADDTOCOMS 111221 . 112865) (ADDTOCOM
112867 . 119414) (ADDTOCOM1 119416 . 120587) (ADDNEWCOM 120589 . 121639) (MAKENEWCOM 121641 . 123484)
(DEFAULTMAKENEWCOM 123486 . 125006)) (125078 127895 (MERGEINSERT 125088 . 127431) (MERGEINSERT1 127433
. 127893)) (128049 129406 (ADDTOFILEKEYLST 128059 . 129404)) (129523 140435 (DELFROMFILES 129533 .
130383) (DELFROMCOMS 130385 . 132064) (DELFROMCOM 132066 . 137934) (DELFROMCOM1 137936 . 138733) (
REMOVEITEM 138735 . 139609) (MOVETOFILE 139611 . 140433)) (140649 143018 (SAVEPUT 140659 . 143016)) (
143143 151467 (UNMARKASCHANGED 143153 . 144861) (PREEDITFN 144863 . 147374) (POSTEDITPROPS 147376 .
149877) (POSTEDITALISTS 149879 . 151465)) (151616 172170 (ALISTS.GETDEF 151626 . 152005) (
ALISTS.WHENCHANGED 152007 . 152651) (CLEARCLISPARRAY 152653 . 153827) (EXPRESSIONS.WHENCHANGED 153829
. 154203) (MAKEALISTCOMS 154205 . 155278) (MAKEFILESCOMS 155280 . 156717) (MAKELISPXMACROSCOMS 156719
. 158737) (MAKEPROPSCOMS 158739 . 159437) (MAKEUSERMACROSCOMS 159439 . 161239) (PROPS.WHENCHANGED
161241 . 161862) (FILEGETDEF.LISPXMACROS 161864 . 163306) (FILEGETDEF.ALISTS 163308 . 163927) (
FILEGETDEF.RECORDS 163929 . 164860) (FILEGETDEF.PROPS 164862 . 165654) (FILEGETDEF.MACROS 165656 .
166716) (FILEGETDEF.VARS 166718 . 167134) (FILEGETDEF.FNS 167136 . 168500) (FILEPKGCOMS.PUTDEF 168502
. 170942) (FILES.PUTDEF 170944 . 171901) (VARS.PUTDEF 171903 . 172046) (FILES.WHENCHANGED 172048 .
172168)) (174192 181625 (RENAME 174202 . 175603) (CHANGECALLERS 175605 . 181623)) (181626 229574 (
SHOWDEF 181636 . 182429) (COPYDEF 182431 . 184905) (GETDEF 184907 . 187183) (GETDEFCOM 187185 . 188151
) (GETDEFCOM0 188153 . 189499) (GETDEFCURRENT 189501 . 195921) (GETDEFERR 195923 . 197224) (
GETDEFFROMFILE 197226 . 201506) (GETDEFSAVED 201508 . 202612) (PUTDEF 202614 . 203317) (EDITDEF 203319
. 204296) (DEFAULT.EDITDEF 204298 . 207134) (EDITDEF.FILES 207136 . 207337) (LOADDEF 207339 . 207515)
(DWIMDEF 207517 . 208371) (DELDEF 208373 . 211387) (DELFROMLIST 211389 . 211893) (HASDEF 211895 .
218217) (GETFILEDEF 218219 . 218741) (SAVEDEF 218743 . 220402) (UNSAVEDEF 220404 . 221300) (
COMPAREDEFS 221302 . 224604) (COMPARE 224606 . 225310) (TYPESOF 225312 . 229572)) (229641 234684 (
FIXEDITDATE 229651 . 233154) (EDITDATE? 233156 . 234682)) (235103 243874 (FILEPKGCOM 235113 . 240046)
(FILEPKGTYPE 240048 . 243872)) (255911 270843 (FINDCALLERS 255921 . 256436) (EDITCALLERS 256438 .
264348) (EDITFROMFILE 264350 . 270158) (FINDATS 270160 . 270432) (LOOKIN 270434 . 270841)) (270844
272571 (SEPRCASE 270854 . 272569)) (273088 278645 (IMPORTFILE 273098 . 274072) (IMPORTEVAL 274074 .
274954) (IMPORTFILESCAN 274956 . 275377) (CHECKIMPORTS 275379 . 276715) (GATHEREXPORTS 276717 . 278055
) (\DUMPEXPORTS 278057 . 278643)) (278983 281191 (CLEARFILEPKG 278993 . 281189)))))
STOP

BIN
sources/FILEPKG.LCOM
View File

Binary file not shown.

211
sources/LLREAD
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED "14-Aug-2021 00:27:49" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;85 102555
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "21-Aug-2021 13:00:01" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;98 103410
changes to%: (FNS \BACKCCODE \BACKCCODE.EOLC)
changes to%: (FNS CHARCODE.DECODE)
previous date%: "13-Aug-2021 14:19:45"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;84)
previous date%: "20-Aug-2021 00:02:20"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;96)
(* ; "
@@ -274,8 +274,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
(CL:PARSE-INTEGER
[CL:LAMBDA
(STRING &KEY START END (RADIX 10)
JUNK-ALLOWED) (* ;
 "Edited 8-Feb-91 13:24 by gadener")
JUNK-ALLOWED) (* ; "Edited 20-Aug-2021 00:02 by rmk:")
(CL:IF (NOT (CL:STRINGP STRING))
(ERROR "This is not a string : ~S" STRING)
(PROG ((SA (fetch (READTABLEP READSA) of CMLRDTBL))
@@ -303,28 +302,28 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
RADIX -11)))
(while (AND (< INDEX STOP)
(EQ (\SYNCODE SA (\GETBASECHAR FATP BASE INDEX))
SEPRCHAR.RC)) do (* ; "Skip over separators")
SEPRCHAR.RC)) do (* ; "Skip over separators")
(SETQ INDEX (CL:1+ INDEX)))
[COND
((>= INDEX STOP) (* ; "no characters remain")
((>= INDEX STOP) (* ; "no characters remain")
(RETURN (COND
(JUNK-ALLOWED (* ; "don't error")
(JUNK-ALLOWED (* ; "don't error")
(CL:VALUES NIL STOP))
(T (SETQ ERR "No non-whitespace characters in integer string: ~S")
(GO FAIL]
(* ;; "Start parsing a number. Allowed to start with a single sign, then digits in radix, nothing else. Assume collating sequence is (+, -) < digits < uppercase letters < lowercase letters.")
(* ;; "Start parsing a number. Allowed to start with a single sign, then digits in radix, nothing else. Assume collating sequence is (+, -) < digits < uppercase letters < lowercase letters.")
(do (SETQ CHAR (\GETBASECHAR FATP BASE INDEX))
(if (<= CHAR MAXDIGITCODE)
then (* ; "sign or digit")
then (* ; "sign or digit")
(if (>= CHAR (CHARCODE 0))
then (* ; " digit")
then (* ; " digit")
(OR STARTINT (SETQ STARTINT INDEX))
elseif (AND (NOT SIGN)
(NOT STARTINT))
then (* ;
 "maybe sign. No good if not at start")
then (* ;
 "maybe sign. No good if not at start")
(SELCHARQ CHAR
(- (SETQ SIGN '-))
(+ (SETQ SIGN '+))
@@ -332,12 +331,12 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
else (RETURN))
elseif (AND MAXALPHACODE (<= (if (>= CHAR (CHARCODE "a"))
then
(* ; "uppercase it first")
(* ; "uppercase it first")
(- CHAR (- (CHARCODE "a")
(CHARCODE "A")))
else CHAR)
MAXALPHACODE))
then (* ; "is alphabetic digit")
then (* ; "is alphabetic digit")
(OR STARTINT (SETQ STARTINT INDEX))
else (RETURN)) repeatwhile (< (add INDEX 1)
STOP))
@@ -348,12 +347,12 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
(do (if (NEQ (\SYNCODE SA CHAR)
SEPRCHAR.RC)
then
(* ; " junk found")
(* ; " junk found")
(RETURN NIL)
elseif (EQ (add INDEX 1)
STOP)
then
(* ; "at end of string, win")
(* ; "at end of string, win")
(RETURN T)
else (SETQ CHAR (\GETBASECHAR FATP BASE
INDEX]
@@ -1397,14 +1396,17 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
(READ-EXTENDED-TOKEN STREAM])
(CHARCODE.DECODE
[LAMBDA (C NOERROR) (* ;
 "Edited 1-Aug-2020 18:52 by rmk:")
(* ; "Edited 18-Feb-87 22:03 by bvm:")
[LAMBDA (C NOERROR) (* ; "Edited 21-Aug-2021 12:59 by rmk:")
(* ; "Edited 18-Feb-87 22:03 by bvm:")
(DECLARE (GLOBALVARS CHARACTERNAMES CHARACTERSETNAMES))
(* ;; "RMK 2020: Added hexstring decoding for Unicode: no commas or other delimiters")
(* ;; "RMK 2020: Added hexstring decoding for Unicode: no commas or other delimiters")
(* ;; "This overrides the definition in LLREAD. It should be placed there, but for some reason it is not possible to then recompile that file: loading a new .LCOM says that \INVALID.SYMBOL is a bad compiled function, and then it loses track of the keyword package. Could be a load-sequence problem that would be resolved if this is installed in a new INIT.SYSOUT rather than an overlay of files already loaded into the LISP.SYSOUT")
(* ;; "RMK 2021: Moved single chars above atom test to be more precise about digits.")
(* ;; "Moved Unicode up, out of comma testing, allowed lower-case u.")
(* ;; "Also disallowed unknown junk in the parse-integer strings and substrings so we know what's happening")
(COND
((NOT C)
@@ -1414,70 +1416,89 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
NOERROR)
(CHARCODE.DECODE (CDR C)
NOERROR)))
((NOT (OR (ATOM C)
(STRINGP C)))
((EQ (NCHARS C)
1) (* ;
 "Includes singleton digits 0-9, the only FIXP's allowed. 0 is 0, not 48")
(CHCON1 C))
((NOT (OR (LITATOM C)
(STRINGP C))) (* ;
 "LITATOM instead of ATOM stops numbers right here. ")
(AND (NOT NOERROR)
(ERROR "BAD CHARACTER SPECIFICATION" C)))
((EQ (NCHARS C)
1)
(CHCON1 C))
[(AND (SELCHARQ (CHCON1 C)
(0 (* ; "Hex? 0X or 0x")
(FMEMB (NTHCHARCODE C 2)
(CHARCODE (x X))))
((U u) (* ; "Unicode U+ or u+")
(EQ (NTHCHARCODE C 2)
(CHARCODE +)))
NIL)
(CAR (NLSETQ (CL:PARSE-INTEGER (SUBSTRING C 3)
:RADIX 16]
(T
(SELCHARQ (CHCON1 C)
(^ (AND (SETQ C (CHARCODE.DECODE (SUBSTRING C 2 -1)
NOERROR))
(LOGAND C (LOGNOT 96))))
(%#
(* ;; "We use IPLUS instead of LOGOR here because some people want ##char to read as Xerox Meta, i.e., 1,char")
(* ;; "We use IPLUS instead of LOGOR here because some people want ##char to read as Xerox Meta, i.e., 1,char")
(* ;; "RMK: I don't understand that comment: %"X,#a%" would map to the high panel corresponding to %"a%" in any character set X, including Meta or Function, wherever they happen to be. Won't adding and orring be the same?")
(AND (SETQ C (CHARCODE.DECODE (SUBSTRING C 2 -1)
NOERROR))
(IPLUS C 128)))
(LET
((STR (MKSTRING C)))
(for X in CHARACTERNAMES when (STRING.EQUAL (CAR X)
STR)
do (RETURN (OR (NUMBERP (CADR X))
(CHARCODE.DECODE (CADR X)
NOERROR)))
finally
(RETURN (LET ((POS (STRPOSL '(%, - "." "|")
STR))
CH CSET) (* ; "In the form charset,char")
(COND
((AND POS (SETQ CH (OR (CL:PARSE-INTEGER STR :START POS :RADIX 8
:JUNK-ALLOWED T)
(CHARCODE.DECODE (SUBSTRING STR
(ADD1 POS))
NOERROR)))
(< CH 256)
(>= CH 0)) (* ;
 "parsed the char part as an octal number or character spec")
(if (AND [SETQ CSET (OR (CL:PARSE-INTEGER STR :END
(SUB1 POS)
:RADIX 8 :JUNK-ALLOWED T)
(for PAIR in CHARACTERSETNAMES
first (SETQ POS
(SUBSTRING STR 1
(SUB1 POS)))
when (STRING.EQUAL (CAR PAIR)
POS)
do (RETURN (CADR PAIR]
(< CSET 256)
(>= CSET 0))
then (* ;
 "parsed the charset part as an octal number or standard charset name")
(LOGOR CH (LLSH CSET 8))
elseif (NOT NOERROR)
then (ERROR "BAD CHARACTERSET SPECIFICATION" C)))
((AND (NOT (FIXP C))
(CL:PARSE-INTEGER (CL:IF (EQ 1 (OR (STRPOS "0x" STR)
(STRPOS "0X" STR)
(STRPOS "U+" STR)))
(SUBSTRING STR 3)
STR)
:RADIX 16 :JUNK-ALLOWED T)))
((NOT NOERROR)
(ERROR "BAD CHARACTER SPECIFICATION" C])
(for X in CHARACTERNAMES when (STRING.EQUAL (CAR X)
C)
do (RETURN (OR (NUMBERP (CADR X))
(CHARCODE.DECODE (CADR X)
NOERROR)))
finally
(RETURN (LET ((POS (STRPOSL '(%, - "." "|")
C))
CH CSET SSTR) (* ; "In the form charset,char")
(* ;; "The character set loop is like the character loop with a different search list and no recursion for character sets.")
(COND
((AND POS (SETQ CH (OR (CAR (NLSETQ (CL:PARSE-INTEGER
(SETQ SSTR (SUBSTRING
C
(ADD1 POS)))
:RADIX 8)))
(CHARCODE.DECODE SSTR NOERROR)))
(< CH 256)
(>= CH 0)
[SETQ CSET
(OR (CAR (NLSETQ (CL:PARSE-INTEGER (SETQ SSTR
(SUBSTRING
C 1 (SUB1 POS)))
:RADIX 8)))
(CADR (find PAIR in CHARACTERSETNAMES
suchthat
(* ;;
 "No recursion, if not a number the list is bad, not C")
(STRING.EQUAL (CAR PAIR)
SSTR)))
(AND (SELCHARQ (CHCON1 SSTR)
(0 (* ; "Hex? 0X or 0x")
(FMEMB (NTHCHARCODE SSTR 2)
(CHARCODE (x X))))
((U u) (* ; "Unicode U+ or u+")
(EQ (NTHCHARCODE SSTR 2)
(CHARCODE +)))
NIL)
(CAR (NLSETQ (CL:PARSE-INTEGER (SUBSTRING SSTR 3)
:RADIX 16]
(< CSET 256)
(>= CSET 0)) (* ;
 "parsed the charset part as an octal, standard charset name, or hex")
(LOGOR (LLSH CSET 8)
CH))
((NOT NOERROR)
(ERROR "BAD CHARACTER SPECIFICATION" C])
)
(RPAQQ CHARACTERNAMES
@@ -1503,8 +1524,8 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
("Linefeed" 10)
("LF" 10)))
(RPAQQ CHARACTERSETNAMES ((Meta 1)
(Function 2)
(RPAQQ CHARACTERSETNAMES (("Meta" 1)
("Function" 2)
("Greek" 38)
("Cyrillic" 39)
("Hira" 36)
@@ -1891,20 +1912,20 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
(PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
1991 1993 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3501 11730 (LASTC 3511 . 3817) (PEEKC 3819 . 4207) (PEEKCCODE 4209 . 4502) (RATOM 4504
. 5585) (READ 5587 . 6147) (READC 6149 . 6790) (READCCODE 6792 . 7551) (READP 7553 . 8105) (
SETREADMACROFLG 8107 . 8406) (SKIPSEPRCODES 8408 . 9391) (SKIPSEPRS 9393 . 9779) (SKREAD 9781 . 11728)
) (11776 20451 (CL:READ 11786 . 12335) (CL:READ-PRESERVING-WHITESPACE 12337 . 13059) (
CL:READ-DELIMITED-LIST 13061 . 13976) (CL:PARSE-INTEGER 13978 . 20449)) (20544 33021 (RSTRING 20554 .
21286) (READ-EXTENDED-TOKEN 21288 . 25160) (\RSTRING2 25162 . 33019)) (33057 64197 (\TOP-LEVEL-READ
33067 . 35050) (\SUBREAD 35052 . 60613) (\SUBREADCONCAT 60615 . 61238) (\ORIG-READ.SYMBOL 61240 .
62308) (\ORIG-INVALID.SYMBOL 62310 . 63209) (\APPLYREADMACRO 63211 . 63627) (INREADMACROP 63629 .
64195)) (64356 64531 (READQUOTE 64366 . 64529)) (64556 76460 (READVBAR 64566 . 65897) (READHASHMACRO
65899 . 71709) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71711 . 71931) (DIGITBASEP 71933 . 72667) (
READNUMBERINBASE 72669 . 74555) (ESTIMATE-DIMENSIONALITY 74557 . 74882) (SKIP.HASH.COMMENT 74884 .
75852) (CMLREAD.FEATURE.PARSER 75854 . 76458)) (76504 83037 (CHARACTER.READ 76514 . 77768) (
CHARCODE.DECODE 77770 . 83035)) (87505 99999 (\OUTCHAR 87515 . 88651) (\INCCODE 88653 . 89839) (
\BACKCCODE 89841 . 90735) (\BACKCCODE.EOLC 90737 . 93500) (\PEEKCCODE 93502 . 93818) (
\PEEKCCODE.NOEOLC 93820 . 94082) (\INCCODE.EOLC 94084 . 95943) (\FORMATBYTESTREAM 95945 . 97431) (
\CHECKEOLC.CRLF 97433 . 99997)))))
(FILEMAP (NIL (3476 11705 (LASTC 3486 . 3792) (PEEKC 3794 . 4182) (PEEKCCODE 4184 . 4477) (RATOM 4479
. 5560) (READ 5562 . 6122) (READC 6124 . 6765) (READCCODE 6767 . 7526) (READP 7528 . 8080) (
SETREADMACROFLG 8082 . 8381) (SKIPSEPRCODES 8383 . 9366) (SKIPSEPRS 9368 . 9754) (SKREAD 9756 . 11703)
) (11751 20360 (CL:READ 11761 . 12310) (CL:READ-PRESERVING-WHITESPACE 12312 . 13034) (
CL:READ-DELIMITED-LIST 13036 . 13951) (CL:PARSE-INTEGER 13953 . 20358)) (20453 32930 (RSTRING 20463 .
21195) (READ-EXTENDED-TOKEN 21197 . 25069) (\RSTRING2 25071 . 32928)) (32966 64106 (\TOP-LEVEL-READ
32976 . 34959) (\SUBREAD 34961 . 60522) (\SUBREADCONCAT 60524 . 61147) (\ORIG-READ.SYMBOL 61149 .
62217) (\ORIG-INVALID.SYMBOL 62219 . 63118) (\APPLYREADMACRO 63120 . 63536) (INREADMACROP 63538 .
64104)) (64265 64440 (READQUOTE 64275 . 64438)) (64465 76369 (READVBAR 64475 . 65806) (READHASHMACRO
65808 . 71618) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71620 . 71840) (DIGITBASEP 71842 . 72576) (
READNUMBERINBASE 72578 . 74464) (ESTIMATE-DIMENSIONALITY 74466 . 74791) (SKIP.HASH.COMMENT 74793 .
75761) (CMLREAD.FEATURE.PARSER 75763 . 76367)) (76413 83888 (CHARACTER.READ 76423 . 77677) (
CHARCODE.DECODE 77679 . 83886)) (88360 100854 (\OUTCHAR 88370 . 89506) (\INCCODE 89508 . 90694) (
\BACKCCODE 90696 . 91590) (\BACKCCODE.EOLC 91592 . 94355) (\PEEKCCODE 94357 . 94673) (
\PEEKCCODE.NOEOLC 94675 . 94937) (\INCCODE.EOLC 94939 . 96798) (\FORMATBYTESTREAM 96800 . 98286) (
\CHECKEOLC.CRLF 98288 . 100852)))))
STOP

BIN
sources/LLREAD.LCOM
View File

Binary file not shown.

155
sources/SEDIT-COMMANDS
View File

@@ -1,14 +1,14 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)))
(IL:FILECREATED "23-Apr-2018 18:12:52" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;3| 124949
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)
(IL:FILECREATED "15-Aug-2021 21:22:22" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;7| 125181
IL:|changes| IL:|to:| (IL:FUNCTIONS GET-SELECTION)
IL:|changes| IL:|to:| (IL:VARS IL:SEDIT-COMMANDSCOMS)
IL:|previous| IL:|date:| "22-Apr-2018 17:13:59"
IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;2|)
IL:|previous| IL:|date:| "14-Aug-2021 12:59:29"
IL:|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;6|)
; Copyright (c) 1986, 1987, 1988, 1990, 1991, 2018 by Venue & Xerox Corporation. All rights reserved.
; Copyright (c) 1986-1988, 1990-1991, 2018, 2021 by Venue & Xerox Corporation.
(IL:PRETTYCOMPRINT IL:SEDIT-COMMANDSCOMS)
@@ -112,13 +112,13 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;2|)
((VERIFY-STRUCTURE NIL T T)
NIL NIL "^L")
((VERIFY-STRUCTURE NIL T NIL)
NIL NIL "1,^L")
NIL NIL "Meta,^L")
(IL:* IL:|;;| "COMPLETION")
((COMPLETE :ABORT NIL)
("Abort" "M-A" "Complete this edit without installing changes.")
NIL "1,A" "1,a" (ABORT))
NIL "Meta,A" "Meta,a" (ABORT))
(NULL ("" "" "")
NIL 0)
((COMPLETE :DONE NIL)
@@ -126,93 +126,92 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;2|)
NIL "^X" (DONE))
((COMPLETE :CLOSE)
("Done & Close" "C-M-X" "Complete this edit and close the window.")
NIL "1,^X" (EXIT))
NIL "Meta,^X" (EXIT))
((COMPLETE :DONE T)
("Done & Compile" "C-C" "Complete this edit, compile, and leave the window open.")
NIL "^C" (COMPILE))
((COMPLETE :CLOSE T)
("Done, Compile, & Close" "C-M-C" "Complete this edit, compile, and close the window.")
NIL "1,^C")
NIL "Meta,^C")
(IL:* IL:|;;| "COMMANDS")
(NULL ("" "" "")
NIL 0)
(UNDO ("Undo" "M-U" "Undo the last change made.")
NIL "1,U" "1,u" 516 (UNDO))
NIL "Meta,U" "Meta,u" "Function,^D" (UNDO))
(REDO ("Redo" "M-R" "Redo the last change undone.")
NIL "1,R" "1,r" 520 (REDO))
NIL "Meta,R" "Meta,r" "Function,Bs" (REDO))
(NULL ("" "" "")
NIL 0)
(FIND-OBJ ("Find" "M-F" "Find the current selection, or prompt for structure to Find.")
T "1,F" "1,f" 515 (FIND))
T "Meta,F" "Meta,f" "Function,^C" (FIND))
((FIND-OBJ NIL T)
("Reverse Find" "C-M-F" "Find the current selection, or prompt for structure to Find.")
T "1,^F")
T "Meta,^F")
((SUBSTITUTE-OBJ NIL NIL T)
("Remove" "C-M-S" "Remove structures from within the current selection.")
NIL "1,^S")
NIL "Meta,^S")
(SUBSTITUTE-OBJ ("Substitute" "M-S" "Substitute structures within the current selection.")
NIL "1,S" "1,s" 547 (SUBSTITUTE))
NIL "Meta,S" "Meta,s" "Function,#" (SUBSTITUTE))
(SKIP-TO-GAP ("Find Gap" "M-N" "Skip to the next fill in gap.")
T "1,N" "1,n" 530)
T "Meta,N" "Meta,n" "Function,^R")
(NULL ("" "" "")
NIL 0)
(EDIT-HELP ("Arglist" "M-H" "Show the argument list for the selected function.")
NIL "1,H" "1,h" 513 (ARGLIST))
NIL "Meta,H" "Meta,h" "Function,^A" (ARGLIST))
(CONVERT-COMMENT ("Convert Comment" "M-;"
"Convert the old style comments in the current selection.")
NIL "1,;")
(COMMENT-OUT-SELECTION NIL NIL "1,^;")
NIL "Meta,;")
(COMMENT-OUT-SELECTION NIL NIL "Meta,^;")
(EDIT-SELECTION ("Edit" "M-O" "Edit the definition of the current selection.")
NIL "1,O" "1,o" (EDIT))
NIL "Meta,O" "Meta,o" (EDIT))
((EDIT-SELECTION (:CURRENT))
("Edit Fast" "C-M-O" "Edit the current definition of the selection.")
NIL "1,^O")
NIL "Meta,^O")
(EVAL-SELECTION ("Eval" "M-E" "Evaluate the current selection.")
NIL "1,E" "1,e" (EVAL))
NIL "Meta,E" "Meta,e" (EVAL))
(EXPAND ("Expand" "M-X" "Replace the current selection with its definition.")
NIL "1,X" "1,x" IL:ESC 532 (EXPAND))
NIL "Meta,X" "Meta,x" IL:ESC "Function,^T" (EXPAND))
(EXTRACT-CURRENT-SELECTION ("Extract" "M-/"
"Extract one level of structure: unquote or unlist.")
NIL "1,/" (EXTRACT))
NIL "Meta,/" (EXTRACT))
(INSPECT-SELECTION ("Inspect" "M-I" "Inspect the current selection.")
NIL "1,I" "1,i" (INSPECT))
NIL "Meta,I" "Meta,i" (INSPECT))
(JOIN ("Join" "M-J" "Join selected items together.")
NIL "1,J" "1,j" (JOIN))
NIL "Meta,J" "Meta,j" (JOIN))
(MUTATE ("Mutate" "M-Z" "Prompt for a function to operate on the current selection.")
NIL "1,Z" "1,z")
NIL "Meta,Z" "Meta,z")
((PARENTHESIZE-CURRENT-SELECTION NIL)
("Parenthesize" "M-(" "Parenthesize the current selection.")
NIL "1,(" "1,71" (PAREN))
NIL "Meta,(" "Meta,71" (PAREN))
((PARENTHESIZE-CURRENT-SELECTION T)
NIL NIL "1,)" "1,60")
NIL NIL "Meta,)" "Meta,60")
((QUOTE-CURRENT-SELECTION QUOTE)
("Quote" "M-'" "Quote the current selection.")
NIL "1,'" (QUOTE))
NIL "Meta,'" (QUOTE))
((QUOTE-CURRENT-SELECTION IL:BQUOTE)
NIL NIL "1,`")
NIL NIL "Meta,`")
((QUOTE-CURRENT-SELECTION IL:COMMA)
NIL NIL "1,,")
NIL NIL "Meta,,")
((QUOTE-CURRENT-SELECTION COMMA-AT)
NIL NIL "1,@" "1,62")
NIL NIL "Meta,@" "Meta,62")
((QUOTE-CURRENT-SELECTION COMMA-DOT)
NIL NIL "1,.")
NIL NIL "Meta,.")
((QUOTE-CURRENT-SELECTION FUNCTION)
NIL NIL "1,#" "1,63")
NIL NIL "Meta,#" "Meta,63")
(NULL ("" "" "")
NIL 0)
(CHANGE-PRINTBASE ("Set Print-Base" "M-B" "Set the print-base for this edit.")
NIL "1,B" "1,b" (SET-PRINT-BASE))
NIL "Meta,B" "Meta,b" (SET-PRINT-BASE))
(CHANGE-PACKAGE ("Set Package" "M-P" "Set the package to edit in.")
NIL "1,P" "1,p" (SET-PACKAGE))
NIL "Meta,P" "Meta,p" (SET-PACKAGE))
(ADD-MENU ("Attach Menu" "M-M" "Attach a command menu.")
NIL "1,M" "1,m")
NIL "Meta,M" "Meta,m")
(IL:* IL:|;;| "RANDOM: tells Meta-Space or Meta-Return to scroll to the selection, using the auto-scroller for free.")
(TRUE NIL T "1, " "1,
")))
(TRUE NIL T "Meta, " "Meta,CR")))
(DEFPARAMETER *EDIT-FN* 'DEFAULT-EDIT-FN)
@@ -1587,41 +1586,41 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;2|)
)
)
(IL:PUTPROPS IL:SEDIT-COMMANDS IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2018
))
2021))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL (13416 13986 (PSEUDO-SELECTION-FROM-SELECTION 13416 . 13986)) (13988 14742 (
COMPOSE-PSEUDO-SELECTION 13988 . 14742)) (14744 15283 (DECOMPOSE-PSEUDO-SELECTION 14744 . 15283)) (
15285 16082 (SELECTION-FROM-PSEUDO-SELECTION 15285 . 16082)) (16084 16387 (SELECT-PSEUDO-SEGMENT 16084
. 16387)) (16452 17342 (ADD-COMMAND 16452 . 17342)) (17344 19507 (GET-SELECTION 17344 . 19507)) (
19509 20689 (REPLACE-SELECTION 19509 . 20689)) (20691 21183 (RESET-COMMANDS 20691 . 21183)) (21185
21354 (DEFAULT-COMMANDS 21185 . 21354)) (21832 22935 (EQUALIZE-STRING-WIDTHS 21832 . 22935)) (22937
23135 (MINIMUM-STRING-WIDTH 22937 . 23135)) (23137 23335 (MAXIMUM-STRING-WIDTH 23137 . 23335)) (23337
24208 (FIND-AND-DISPLAY-STRUCTURE 23337 . 24208)) (24210 24894 (FIND-AND-DISPLAY-STRUCTURE-BACKWARDS
24210 . 24894)) (24896 25800 (FIND-AND-DISPLAY-SUBSTRUCTURE 24896 . 25800)) (25802 26505 (
FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS 25802 . 26505)) (26507 27148 (FIND-NTH-STRUCTURE 26507 . 27148
)) (27150 29880 (FIND-NODE-SUBSTRUCTURE 27150 . 29880)) (29882 31135 (FIND-NODE-SUBSTRUCTURE-BACKWARDS
29882 . 31135)) (31137 32116 (FIND-OBJ 31137 . 32116)) (32118 33518 (FIND-SELECTION 32118 . 33518)) (
33520 35212 (FIND-SELECTION-BACKWARDS 33520 . 35212)) (35214 37943 (FIND-STRUCTURE 35214 . 37943)) (
37945 40292 (FIND-STRUCTURE-BACKWARDS 37945 . 40292)) (40294 43223 (FIND-SUBSTRUCTURE 40294 . 43223))
(43225 45525 (FIND-SUBSTRUCTURE-BACKWARDS 43225 . 45525)) (45527 45763 (GET-USER-STRING 45527 . 45763)
) (45765 49473 (SEARCH-OBJ 45765 . 49473)) (49475 53140 (SEARCH-OBJ-BACKWARDS 49475 . 53140)) (53142
57968 (SUBSTITUTE-OBJ 53142 . 57968)) (57970 62626 (SUBSTITUTE-STRUCTURE 57970 . 62626)) (62628 65800
(SUBSTITUTE-SUBSTRUCTURE 62628 . 65800)) (65802 66964 (STRUCTURE-FROM-SELECTION 65802 . 66964)) (66966
67809 (STRUCTURE-FROM-STRING 66966 . 67809)) (67811 69952 (COMMENT-OUT-SELECTION 67811 . 69952)) (
69953 124814 (ADD-MENU 69966 . 70629) (BACKSPACE 70631 . 71610) (CHANGE-PACKAGE 71612 . 74412) (
CHANGE-PRINTBASE 74414 . 76596) (CHANGE-QUOTE 76598 . 76953) (CONVERT-COMMENT 76955 . 78715) (
CONVERT-COMMENT-STRUCTURE 78717 . 80020) (CONVERT-COMMENT-TAIL 80022 . 81422) (CREATE-COMMAND-TABLE
81424 . 83402) (DEFAULT-EDIT-FN 83404 . 83541) (DELETE-SELECTION 83543 . 84225) (DELETE-WORD 84227 .
86328) (DO-MUTATION 86330 . 86878) (EDIT-SELECTION 86880 . 87328) (EVAL-SELECTION 87330 . 89199) (
EXPAND 89201 . 90330) (EXTRACT-CURRENT-SELECTION 90332 . 92700) (FIND-COMMENT 92702 . 93396) (GET-MENU
93398 . 93775) (EDIT-HELP 93777 . 94852) (HELPMENU 94854 . 97643) (INPUT-DOT 97645 . 99777) (
INPUT-ESCAPE 99779 . 100027) (INPUT-NORMAL-CHAR 100029 . 102062) (INPUT-QUOTE 102064 . 105146) (
INPUT-SQUARE-BRACKET 105148 . 105499) (INPUT-STRINGDELIM 105501 . 106900) (INPUT-TOKENDELIM 106902 .
107882) (INSERT-MULTI-ESCAPE 107884 . 109012) (INSERT-SPECIAL-CHARACTER 109014 . 110274) (
INSPECT-SELECTION 110276 . 110811) (JOIN 110813 . 114483) (MENU-CLOSEFN 114485 . 114703) (
MENU-FIND-SELECTEDFN 114705 . 115405) (MENU-INIT-STATE 115407 . 116214) (MENU-PACKAGE-SELECTEDFN
116216 . 117267) (MENU-PRINTBASE-SELECTEDFN 117269 . 118145) (MENU-SELECTEDFN 118147 . 118573) (
MENU-SUBSTITUTE-SELECTEDFN 118575 . 119535) (MUTATE 119537 . 120647) (QUOTE-CURRENT-SELECTION 120649
. 121416) (REDISPLAY 121418 . 121657) (REDO 121659 . 122153) (SELECTED-FN-NAME 122155 . 122600) (
SKIP-TO-GAP 122602 . 123379) (UNDO 123381 . 124181) (UNDO-EXTRACT 124183 . 124812)))))
(IL:FILEMAP (NIL (13643 14213 (PSEUDO-SELECTION-FROM-SELECTION 13643 . 14213)) (14215 14969 (
COMPOSE-PSEUDO-SELECTION 14215 . 14969)) (14971 15510 (DECOMPOSE-PSEUDO-SELECTION 14971 . 15510)) (
15512 16309 (SELECTION-FROM-PSEUDO-SELECTION 15512 . 16309)) (16311 16614 (SELECT-PSEUDO-SEGMENT 16311
. 16614)) (16679 17569 (ADD-COMMAND 16679 . 17569)) (17571 19734 (GET-SELECTION 17571 . 19734)) (
19736 20916 (REPLACE-SELECTION 19736 . 20916)) (20918 21410 (RESET-COMMANDS 20918 . 21410)) (21412
21581 (DEFAULT-COMMANDS 21412 . 21581)) (22059 23162 (EQUALIZE-STRING-WIDTHS 22059 . 23162)) (23164
23362 (MINIMUM-STRING-WIDTH 23164 . 23362)) (23364 23562 (MAXIMUM-STRING-WIDTH 23364 . 23562)) (23564
24435 (FIND-AND-DISPLAY-STRUCTURE 23564 . 24435)) (24437 25121 (FIND-AND-DISPLAY-STRUCTURE-BACKWARDS
24437 . 25121)) (25123 26027 (FIND-AND-DISPLAY-SUBSTRUCTURE 25123 . 26027)) (26029 26732 (
FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS 26029 . 26732)) (26734 27375 (FIND-NTH-STRUCTURE 26734 . 27375
)) (27377 30107 (FIND-NODE-SUBSTRUCTURE 27377 . 30107)) (30109 31362 (FIND-NODE-SUBSTRUCTURE-BACKWARDS
30109 . 31362)) (31364 32343 (FIND-OBJ 31364 . 32343)) (32345 33745 (FIND-SELECTION 32345 . 33745)) (
33747 35439 (FIND-SELECTION-BACKWARDS 33747 . 35439)) (35441 38170 (FIND-STRUCTURE 35441 . 38170)) (
38172 40519 (FIND-STRUCTURE-BACKWARDS 38172 . 40519)) (40521 43450 (FIND-SUBSTRUCTURE 40521 . 43450))
(43452 45752 (FIND-SUBSTRUCTURE-BACKWARDS 43452 . 45752)) (45754 45990 (GET-USER-STRING 45754 . 45990)
) (45992 49700 (SEARCH-OBJ 45992 . 49700)) (49702 53367 (SEARCH-OBJ-BACKWARDS 49702 . 53367)) (53369
58195 (SUBSTITUTE-OBJ 53369 . 58195)) (58197 62853 (SUBSTITUTE-STRUCTURE 58197 . 62853)) (62855 66027
(SUBSTITUTE-SUBSTRUCTURE 62855 . 66027)) (66029 67191 (STRUCTURE-FROM-SELECTION 66029 . 67191)) (67193
68036 (STRUCTURE-FROM-STRING 67193 . 68036)) (68038 70179 (COMMENT-OUT-SELECTION 68038 . 70179)) (
70180 125041 (ADD-MENU 70193 . 70856) (BACKSPACE 70858 . 71837) (CHANGE-PACKAGE 71839 . 74639) (
CHANGE-PRINTBASE 74641 . 76823) (CHANGE-QUOTE 76825 . 77180) (CONVERT-COMMENT 77182 . 78942) (
CONVERT-COMMENT-STRUCTURE 78944 . 80247) (CONVERT-COMMENT-TAIL 80249 . 81649) (CREATE-COMMAND-TABLE
81651 . 83629) (DEFAULT-EDIT-FN 83631 . 83768) (DELETE-SELECTION 83770 . 84452) (DELETE-WORD 84454 .
86555) (DO-MUTATION 86557 . 87105) (EDIT-SELECTION 87107 . 87555) (EVAL-SELECTION 87557 . 89426) (
EXPAND 89428 . 90557) (EXTRACT-CURRENT-SELECTION 90559 . 92927) (FIND-COMMENT 92929 . 93623) (GET-MENU
93625 . 94002) (EDIT-HELP 94004 . 95079) (HELPMENU 95081 . 97870) (INPUT-DOT 97872 . 100004) (
INPUT-ESCAPE 100006 . 100254) (INPUT-NORMAL-CHAR 100256 . 102289) (INPUT-QUOTE 102291 . 105373) (
INPUT-SQUARE-BRACKET 105375 . 105726) (INPUT-STRINGDELIM 105728 . 107127) (INPUT-TOKENDELIM 107129 .
108109) (INSERT-MULTI-ESCAPE 108111 . 109239) (INSERT-SPECIAL-CHARACTER 109241 . 110501) (
INSPECT-SELECTION 110503 . 111038) (JOIN 111040 . 114710) (MENU-CLOSEFN 114712 . 114930) (
MENU-FIND-SELECTEDFN 114932 . 115632) (MENU-INIT-STATE 115634 . 116441) (MENU-PACKAGE-SELECTEDFN
116443 . 117494) (MENU-PRINTBASE-SELECTEDFN 117496 . 118372) (MENU-SELECTEDFN 118374 . 118800) (
MENU-SUBSTITUTE-SELECTEDFN 118802 . 119762) (MUTATE 119764 . 120874) (QUOTE-CURRENT-SELECTION 120876
. 121643) (REDISPLAY 121645 . 121884) (REDO 121886 . 122380) (SELECTED-FN-NAME 122382 . 122827) (
SKIP-TO-GAP 122829 . 123606) (UNDO 123608 . 124408) (UNDO-EXTRACT 124410 . 125039)))))
IL:STOP

BIN
sources/SEDIT-COMMANDS.DFASL
View File

Binary file not shown.

148
sources/TTYIN
View File

@@ -1,10 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED "13-Aug-2021 11:07:59" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;7 329042
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "16-Aug-2021 23:40:36" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;12 329478
changes to%: (FNS TTYIN.SCRATCHFILE)
changes to%: (FNS \TTYIN.RPEOF)
previous date%: "13-Jun-2021 10:11:51"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;5)
previous date%: "14-Aug-2021 10:55:39"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;10)
(* ; "
@@ -5608,11 +5609,19 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
TTYINEDIT.SCRATCH])
(\TTYIN.RPEOF
[LAMBDA (STREAM) (* lmm "14-Nov-86 17:06")
(* ;
 "End of stream op for ttyin scratch file -- supplies as many closing parens as needed")
[LAMBDA (STREAM) (* ; "Edited 16-Aug-2021 23:40 by rmk:")
(CHARCODE ")"])
(* ;; "End of stream op for ttyin scratch file -- supplies as many closing parens as needed")
(LET (BYTESTREAM)
(CL:UNLESS (SETQ BYTESTREAM (STREAMPROP STREAM 'BYTESTREAM))
(SETQ BYTESTREAM (\FORMATBYTESTREAM STREAM NIL))(* ; "First time, set it up")
(STREAMPROP STREAM 'BYTESTREAM BYTESTREAM)
(\OUTCHAR BYTESTREAM (CHARCODE ")"))
(SETFILEPTR BYTESTREAM 0))
(OR (BIN BYTESTREAM)
(PROGN (SETFILEPTR BYTESTREAM 0)
(BIN BYTESTREAM])
)
(RPAQ? TTYINEDIT.SCRATCH )
@@ -5845,13 +5854,14 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
(PUTPROPS METACHARP MACRO ((C)
(EQ (LRSH C 8)
1)))
(LRSH (CHARCODE Meta,0)
8))))
(PUTPROPS NONMETACHARBITS MACRO ((C)
(LOGAND C 255)))
(PUTPROPS METACHAR MACRO ((C)
(LOGOR C 256)))
(LOGOR C (CHARCODE Meta,0))))
(PUTPROPS COMPLEXCHARP MACRO (= . LISTP))
@@ -6089,62 +6099,62 @@ DONTEVAL@LOAD EVAL@COMPILE
(PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (7722 207400 (TTYIN 7732 . 20965) (TTYIN.SETUP 20967 . 24043) (TTYIN.CLEANUP 24045 .
24873) (TTYIN1 24875 . 51393) (TTYIN1RESTART 51395 . 52659) (TTYIN.FINISH 52661 . 62078) (
TTYIN.BALANCE 62080 . 63206) (ADDCHAR 63208 . 65394) (TTMAKECOMPLEXCHAR 65396 . 65870) (ADDNAKEDCHAR
65872 . 67382) (TTADDTAB 67384 . 68319) (ADJUSTLINE 68321 . 82232) (ADJUSTLINE.AND.RESTORE 82234 .
82672) (AT.END.OF.SCREEN 82674 . 82962) (AT.END.OF.TEXT 82964 . 83419) (AUTOCR? 83421 . 83895) (
BACKSKREAD 83897 . 88482) (BACKWARD.DELETE.TO 88484 . 88666) (BREAKLINE 88668 . 90935) (BUFTAILP 90937
. 91255) (CHECK.MARGIN 91257 . 91880) (CLEAR.LINE? 91882 . 92175) (CURRENT.WORD 92177 . 94577) (
DELETE.TO.END 94579 . 95298) (DELETELINE 95300 . 98257) (DELETETO 98259 . 100081) (DELETETO1 100083 .
101426) (DO.EDIT.COMMAND 101428 . 118747) (DO.EDIT.PP 118749 . 121411) (TTDOTABS 121413 . 122783) (
EDITCOLUMN 122785 . 123241) (EDITNUMBERP 123243 . 123474) (END.DELETE.MODE 123476 . 123993) (ENDREAD?
123995 . 126430) (FIND.LINE 126432 . 127968) (FIND.LINE.BREAK 127970 . 128640) (FIND.MATCHING.QUOTE
128642 . 129487) (FIND.NEXT.WORD 129489 . 130868) (FIND.NON.SPACE 130870 . 131143) (FIND.START.OF.WORD
131145 . 131508) (FORWARD.DELETE.TO 131510 . 133732) (GO.TO.ADDRESSING 133734 . 134690) (
GO.TO.FREELINE 134692 . 135273) (GO.TO.RELATIVE 135275 . 136055) (INIT.CURSOR 136057 . 136954) (
INSERT.NODE 136956 . 137478) (INSERTLINE 137480 . 138984) (KILL.LINES 138986 . 139524) (KILLSEGMENT
139526 . 140649) (L-CASECODE 140651 . 140812) (MOVE.BACK.TO 140814 . 141043) (MOVE.FORWARD.TO 141045
. 141466) (MOVE.TO.LINE 141468 . 142383) (MOVE.TO.NEXT.LINE 142385 . 142655) (MOVE.TO.START.OF.WORD
142657 . 143421) (MOVE.TO.WHEREVER 143423 . 143646) (NTH.COLUMN.OF 143648 . 143979) (
NTH.RELATIVE.COLUMN.OF 143981 . 145281) (OVERFLOW? 145283 . 146231) (OVERFLOWLINE? 146233 . 146559) (
PREVLINE 146561 . 147741) (PREVWORD 147743 . 149884) (PROPERTAILP 149886 . 150093) (READFROMBUF 150095
. 152684) (RENUMBER.LINES 152686 . 153079) (RESTORE.CURSOR 153081 . 153235) (RESTOREBUF 153237 .
155421) (RETYPE.BUFFER 155423 . 157686) (SAVE.CURSOR 157688 . 157860) (SCANBACK 157862 . 159220) (
SCANFORWARD 159222 . 160090) (SCRATCHCONS 160092 . 160694) (SEGMENT.LENGTH 160696 . 161232) (
SEGMENT.BIT.LENGTH 161234 . 161841) (SETLASTC 161843 . 162140) (SETTAIL? 162142 . 162958) (
SHOW.MATCHING.PAREN 162960 . 165460) (SKIP/ZAP 165462 . 167941) (START.NEW.LINE 167943 . 168275) (
START.OF.PARAGRAPH? 168277 . 168658) (TTADJUSTWORD 168660 . 169834) (TTBIN 169836 . 171042) (
TTBITWIDTH 171044 . 171193) (TTCRLF 171195 . 171402) (TTCRLF.ACCOUNT 171404 . 172044) (TTDELETECHAR
172046 . 173190) (TTDELETELINE 173192 . 175140) (TTDELETEWORD 175142 . 175810) (TTECHO.TO.FILE 175812
. 179360) (TTGIVEHELP 179362 . 180627) (TTGIVEHELP1 180629 . 181211) (TTGIVEHELP2 181213 . 181908) (
TTLASTLINE 181910 . 182278) (TTLOADBUF 182280 . 185794) (TTNEXTLINE 185796 . 186116) (TTNEXTNODE
186118 . 186357) (TTNLEFT 186359 . 187586) (TTNTH 187588 . 188047) (TTNTHLINE 188049 . 188581) (
TTPRIN1 188583 . 192396) (TTPRINSPACE 192398 . 192791) (TTPRIN1COMMENT 192793 . 193117) (TTPRIN2
193119 . 195438) (TTPROMPTCHAR 195440 . 196336) (TTRUBOUT 196338 . 197301) (TTUNREADBUF 197303 .
197712) (TTWAITFORINPUT 197714 . 201922) (TTYINSTRING 201924 . 202883) (TYPE.BUFFER 202885 . 204637) (
U-CASECODE 204639 . 204798) (U/L-CASE 204800 . 207398)) (207555 217268 (TTRATOM 207565 . 208009) (
TTREADLIST 208011 . 208378) (TTSKIPSEPR 208380 . 208754) (TTSKREAD 208756 . 213396) (TTYIN.READ 213398
. 217266)) (217315 237359 (FIND.MATCHING.WORD 217325 . 217853) (TTCOMPLETEWORD 217855 . 232283) (
WORD.MATCHES.BUFFER 232285 . 233845) (TTYIN.SHOW.?ALTERNATIVES 233847 . 237357)) (237393 255703 (
DO?CMD 237403 . 243305) (TTYIN.PRINTARGS 243307 . 254165) (TTYIN.READ?=ARGS 254167 . 254948) (
DO?CMD.ERRORHANDLER 254950 . 255701)) (255737 263810 (BEEP 255747 . 255922) (BITBLT.DELETE 255924 .
256571) (BITBLT.ERASE 256573 . 256758) (BITBLT.INSERT 256760 . 257071) (DO.CRLF 257073 . 257392) (
DO.DELETE.LINES 257394 . 258438) (DO.INSERT.LINE 258440 . 260374) (DO.LF 260376 . 260542) (
ERASE.TO.END.OF.LINE 260544 . 260869) (ERASE.TO.END.OF.PAGE 260871 . 261476) (INSERT.TEXT 261478 .
261982) (TTDELSECTION 261984 . 262282) (TTADJUSTWIDTH 262284 . 263148) (TTINSERTSECTION 263150 .
263489) (TTSETCURSOR 263491 . 263808)) (263845 268822 (TTYINBUFFERDEVICE 263855 . 265171) (
TTYINBUFFERSTREAM 265173 . 265935) (TTYINBUFFERBIN 265937 . 266473) (TTYINBUFFERPEEK 266475 . 266953)
(TTYINBUFFERREADP 266955 . 267210) (TTYINBUFFEREOFP 267212 . 267464) (TTYINBUFFERBACKPTR 267466 .
268018) (TTYINWORDRDTBL 268020 . 268820)) (268983 294540 (DO.MOUSE 268993 . 271750) (
DO.SHIFTED.SELECTION 271752 . 282191) (COPY.SEGMENT 282193 . 282397) (DELETE.LONG.SEGMENT 282399 .
282758) (DELETE.LONG.SEGMENT1 282760 . 285236) (INVERT.LONG.SEGMENT 285238 . 286267) (INVERT.SEGMENT
286269 . 287784) (BRACKET.CURRENT.WORD 287786 . 289320) (TTBEFOREPOS 289322 . 290052) (TTNEXTPOS
290054 . 290762) (TTRACKMOUSE 290764 . 294538)) (294684 299940 (SETREADFN 294694 . 295172) (
TTYINENTRYFN 295174 . 295599) (TTYINREADP 295601 . 296066) (TTYINREAD 296068 . 297462) (TTYINFIX
297464 . 298663) (CHARMACRO? 298665 . 299232) (TTYINMETA 299234 . 299362) (TTYIN.LASTINPUT 299364 .
299938)) (299941 308210 (TTYINEDIT 299951 . 302068) (SIMPLETEXTEDIT 302070 . 305114) (
SET.TTYINEDIT.WINDOW 305116 . 306267) (TTYIN.PPTOFILE 306269 . 308208)) (308268 308445 (
MAKE-TTSCRATCHFILE 308278 . 308443)) (308592 309357 (TTYIN.SCRATCHFILE 308602 . 309048) (\TTYIN.RPEOF
309050 . 309355)) (309569 313202 (TTYINPROMPTFORWORD 309579 . 313200)))))
(FILEMAP (NIL (7706 207384 (TTYIN 7716 . 20949) (TTYIN.SETUP 20951 . 24027) (TTYIN.CLEANUP 24029 .
24857) (TTYIN1 24859 . 51377) (TTYIN1RESTART 51379 . 52643) (TTYIN.FINISH 52645 . 62062) (
TTYIN.BALANCE 62064 . 63190) (ADDCHAR 63192 . 65378) (TTMAKECOMPLEXCHAR 65380 . 65854) (ADDNAKEDCHAR
65856 . 67366) (TTADDTAB 67368 . 68303) (ADJUSTLINE 68305 . 82216) (ADJUSTLINE.AND.RESTORE 82218 .
82656) (AT.END.OF.SCREEN 82658 . 82946) (AT.END.OF.TEXT 82948 . 83403) (AUTOCR? 83405 . 83879) (
BACKSKREAD 83881 . 88466) (BACKWARD.DELETE.TO 88468 . 88650) (BREAKLINE 88652 . 90919) (BUFTAILP 90921
. 91239) (CHECK.MARGIN 91241 . 91864) (CLEAR.LINE? 91866 . 92159) (CURRENT.WORD 92161 . 94561) (
DELETE.TO.END 94563 . 95282) (DELETELINE 95284 . 98241) (DELETETO 98243 . 100065) (DELETETO1 100067 .
101410) (DO.EDIT.COMMAND 101412 . 118731) (DO.EDIT.PP 118733 . 121395) (TTDOTABS 121397 . 122767) (
EDITCOLUMN 122769 . 123225) (EDITNUMBERP 123227 . 123458) (END.DELETE.MODE 123460 . 123977) (ENDREAD?
123979 . 126414) (FIND.LINE 126416 . 127952) (FIND.LINE.BREAK 127954 . 128624) (FIND.MATCHING.QUOTE
128626 . 129471) (FIND.NEXT.WORD 129473 . 130852) (FIND.NON.SPACE 130854 . 131127) (FIND.START.OF.WORD
131129 . 131492) (FORWARD.DELETE.TO 131494 . 133716) (GO.TO.ADDRESSING 133718 . 134674) (
GO.TO.FREELINE 134676 . 135257) (GO.TO.RELATIVE 135259 . 136039) (INIT.CURSOR 136041 . 136938) (
INSERT.NODE 136940 . 137462) (INSERTLINE 137464 . 138968) (KILL.LINES 138970 . 139508) (KILLSEGMENT
139510 . 140633) (L-CASECODE 140635 . 140796) (MOVE.BACK.TO 140798 . 141027) (MOVE.FORWARD.TO 141029
. 141450) (MOVE.TO.LINE 141452 . 142367) (MOVE.TO.NEXT.LINE 142369 . 142639) (MOVE.TO.START.OF.WORD
142641 . 143405) (MOVE.TO.WHEREVER 143407 . 143630) (NTH.COLUMN.OF 143632 . 143963) (
NTH.RELATIVE.COLUMN.OF 143965 . 145265) (OVERFLOW? 145267 . 146215) (OVERFLOWLINE? 146217 . 146543) (
PREVLINE 146545 . 147725) (PREVWORD 147727 . 149868) (PROPERTAILP 149870 . 150077) (READFROMBUF 150079
. 152668) (RENUMBER.LINES 152670 . 153063) (RESTORE.CURSOR 153065 . 153219) (RESTOREBUF 153221 .
155405) (RETYPE.BUFFER 155407 . 157670) (SAVE.CURSOR 157672 . 157844) (SCANBACK 157846 . 159204) (
SCANFORWARD 159206 . 160074) (SCRATCHCONS 160076 . 160678) (SEGMENT.LENGTH 160680 . 161216) (
SEGMENT.BIT.LENGTH 161218 . 161825) (SETLASTC 161827 . 162124) (SETTAIL? 162126 . 162942) (
SHOW.MATCHING.PAREN 162944 . 165444) (SKIP/ZAP 165446 . 167925) (START.NEW.LINE 167927 . 168259) (
START.OF.PARAGRAPH? 168261 . 168642) (TTADJUSTWORD 168644 . 169818) (TTBIN 169820 . 171026) (
TTBITWIDTH 171028 . 171177) (TTCRLF 171179 . 171386) (TTCRLF.ACCOUNT 171388 . 172028) (TTDELETECHAR
172030 . 173174) (TTDELETELINE 173176 . 175124) (TTDELETEWORD 175126 . 175794) (TTECHO.TO.FILE 175796
. 179344) (TTGIVEHELP 179346 . 180611) (TTGIVEHELP1 180613 . 181195) (TTGIVEHELP2 181197 . 181892) (
TTLASTLINE 181894 . 182262) (TTLOADBUF 182264 . 185778) (TTNEXTLINE 185780 . 186100) (TTNEXTNODE
186102 . 186341) (TTNLEFT 186343 . 187570) (TTNTH 187572 . 188031) (TTNTHLINE 188033 . 188565) (
TTPRIN1 188567 . 192380) (TTPRINSPACE 192382 . 192775) (TTPRIN1COMMENT 192777 . 193101) (TTPRIN2
193103 . 195422) (TTPROMPTCHAR 195424 . 196320) (TTRUBOUT 196322 . 197285) (TTUNREADBUF 197287 .
197696) (TTWAITFORINPUT 197698 . 201906) (TTYINSTRING 201908 . 202867) (TYPE.BUFFER 202869 . 204621) (
U-CASECODE 204623 . 204782) (U/L-CASE 204784 . 207382)) (207539 217252 (TTRATOM 207549 . 207993) (
TTREADLIST 207995 . 208362) (TTSKIPSEPR 208364 . 208738) (TTSKREAD 208740 . 213380) (TTYIN.READ 213382
. 217250)) (217299 237343 (FIND.MATCHING.WORD 217309 . 217837) (TTCOMPLETEWORD 217839 . 232267) (
WORD.MATCHES.BUFFER 232269 . 233829) (TTYIN.SHOW.?ALTERNATIVES 233831 . 237341)) (237377 255687 (
DO?CMD 237387 . 243289) (TTYIN.PRINTARGS 243291 . 254149) (TTYIN.READ?=ARGS 254151 . 254932) (
DO?CMD.ERRORHANDLER 254934 . 255685)) (255721 263794 (BEEP 255731 . 255906) (BITBLT.DELETE 255908 .
256555) (BITBLT.ERASE 256557 . 256742) (BITBLT.INSERT 256744 . 257055) (DO.CRLF 257057 . 257376) (
DO.DELETE.LINES 257378 . 258422) (DO.INSERT.LINE 258424 . 260358) (DO.LF 260360 . 260526) (
ERASE.TO.END.OF.LINE 260528 . 260853) (ERASE.TO.END.OF.PAGE 260855 . 261460) (INSERT.TEXT 261462 .
261966) (TTDELSECTION 261968 . 262266) (TTADJUSTWIDTH 262268 . 263132) (TTINSERTSECTION 263134 .
263473) (TTSETCURSOR 263475 . 263792)) (263829 268806 (TTYINBUFFERDEVICE 263839 . 265155) (
TTYINBUFFERSTREAM 265157 . 265919) (TTYINBUFFERBIN 265921 . 266457) (TTYINBUFFERPEEK 266459 . 266937)
(TTYINBUFFERREADP 266939 . 267194) (TTYINBUFFEREOFP 267196 . 267448) (TTYINBUFFERBACKPTR 267450 .
268002) (TTYINWORDRDTBL 268004 . 268804)) (268967 294524 (DO.MOUSE 268977 . 271734) (
DO.SHIFTED.SELECTION 271736 . 282175) (COPY.SEGMENT 282177 . 282381) (DELETE.LONG.SEGMENT 282383 .
282742) (DELETE.LONG.SEGMENT1 282744 . 285220) (INVERT.LONG.SEGMENT 285222 . 286251) (INVERT.SEGMENT
286253 . 287768) (BRACKET.CURRENT.WORD 287770 . 289304) (TTBEFOREPOS 289306 . 290036) (TTNEXTPOS
290038 . 290746) (TTRACKMOUSE 290748 . 294522)) (294668 299924 (SETREADFN 294678 . 295156) (
TTYINENTRYFN 295158 . 295583) (TTYINREADP 295585 . 296050) (TTYINREAD 296052 . 297446) (TTYINFIX
297448 . 298647) (CHARMACRO? 298649 . 299216) (TTYINMETA 299218 . 299346) (TTYIN.LASTINPUT 299348 .
299922)) (299925 308194 (TTYINEDIT 299935 . 302052) (SIMPLETEXTEDIT 302054 . 305098) (
SET.TTYINEDIT.WINDOW 305100 . 306251) (TTYIN.PPTOFILE 306253 . 308192)) (308252 308429 (
MAKE-TTSCRATCHFILE 308262 . 308427)) (308576 309709 (TTYIN.SCRATCHFILE 308586 . 309032) (\TTYIN.RPEOF
309034 . 309707)) (309921 313554 (TTYINPROMPTFORWORD 309931 . 313552)))))
STOP

BIN
sources/TTYIN.LCOM
View File

Binary file not shown.