Merge pull request #1308 from Interlisp/fgh_loadups3

Fix issue with tmp/logindir remaining after loadup-all and loadup-db scripts
In loadup- scripts, at end remove the tmp and tmp/logindir directories if they don't exist before the script runs
2026-03-29 03:16:04 +00:00 · 2023-08-15 15:31:33 -07:00 · 2023-08-14 23:29:38 -07:00 · 2023-08-14 10:56:57 -07:00 · 2023-08-13 21:13:48 -07:00 · 2023-08-07 22:30:12 -07:00
75 changed files with 3601 additions and 3982 deletions
--- a/.github/workflows/buildLoadup.yml
+++ b/.github/workflows/buildLoadup.yml
@@ -226,44 +226,12 @@ jobs:
          export DISPLAY=":0"
          PATH="$PWD/maiko:$PATH"
          scripts/loadup-all.sh -apps
+          scripts/loadup-db.sh

-      - name: Build loadups release tar
+      - name: Build release tars
        run: |
-          cd ..
-          mkdir -p medley/${TARBALL_DIR}
-          tar cfz medley/${TARBALL_DIR}/${MEDLEY_RELEASE_TAG}-loadups.tgz        \
-            medley/loadups/lisp.sysout               \
-            medley/loadups/full.sysout               \
-            medley/loadups/apps.sysout               \
-            medley/loadups/whereis.hash              \
-            medley/library/exports.all
-
-      - name: Build runtime release tar
-        run: |
-          cd ..
-          mkdir -p medley/${TARBALL_DIR}
-          tar cfz medley/${TARBALL_DIR}/${MEDLEY_RELEASE_TAG}-runtime.tgz          \
-                     --exclude "*~" --exclude "*#*"              \
-                     --exclude exports.all                       \
-                     medley/clos                                 \
-                     medley/docs/dinfo                           \
-                     medley/docs/man-page/medley.1.gz            \
-                     medley/doctools                             \
-                     medley/greetfiles                           \
-                     medley/rooms                                \
-                     medley/medley                               \
-                     medley/run-medley                           \
-                     medley/scripts                              \
-                     medley/fonts/displayfonts                   \
-                     medley/fonts/altofonts                      \
-                     medley/fonts/adobe                          \
-                     medley/fonts/postscriptfonts                \
-                     medley/fonts/ipfonts                        \
-                     medley/library                              \
-                     medley/lispusers                            \
-                     medley/sources                              \
-                     medley/internal
-
+          scripts/release-make-tars.sh "${MEDLEY_RELEASE_TAG}"
+          mv releases/"${MEDLEY_SHORT_RELEASE_TAG}"/*.tgz "${TARBALL_DIR}"

      # Build the deb files as well as the tgz files
      - name: Build .deb files for 3 architectures
--- a/.gitignore
+++ b/.gitignore
@@ -2,15 +2,20 @@

 tmp/*

+# releases directory
+releases/*
+
+
 # all loadup files 

-library/exports.all
+loadups/exports.all
 library/RDSYS*
 loadups/lisp.sysout
 loadups/full.sysout
 loadups/*.dribble
 loadups/whereis.hash
 loadups/apps.sysout
+loadups/fuller.database

 # manual cross-reference files

--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

-(FILECREATED "23-May-2023 07:10:58" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;12| 10354  
+(FILECREATED " 3-Aug-2023 18:40:12" |{DSK}<home>frank>il>medley>gmedley>internal>MEDLEY-UTILS.;6| 10695  

-      :EDIT-BY "lmm"
+      :EDIT-BY "frank"

-      :CHANGES-TO (FNS GATHER-INFO)
+      :CHANGES-TO (FNS MAKE-FULLER-DB MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)

-      :PREVIOUS-DATE "22-May-2023 22:57:21" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;11|)
+      :PREVIOUS-DATE " 1-Aug-2023 22:43:13" 
+|{DSK}<home>frank>il>medley>gmedley>internal>MEDLEY-UTILS.;5|)


 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -102,18 +103,19 @@
        (HELP))))

 (MAKE-FULLER-DB
-  (LAMBDA NIL                                             (* \; "Edited 16-Jul-2022 22:07 by larry")
+  (LAMBDA (DRIBBLEFILE DBFILE SYSOUTFILE)                 (* \; "Edited  3-Aug-2023 18:12 by frank")
+                                                          (* \; "Edited 16-Jul-2022 22:07 by larry")
                                                          (* \; "Edited 20-Jun-2022 17:23 by larry")
    (FILESLOAD (SOURCE)
           FILESETS)
-    (DRIBBLE (MEDLEYDIR "tmp" "fuller.dribble" T T))
+    (DRIBBLE (OR DRIBBLEFILE "fuller.dribble"))
    (DOFILESLOAD (SUBSET (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
                        'FINDFILE))
    (GATHER-INFO 'ALL)
    (MASTERSCOPE '(WHO CALLS XYZZY))
-    (DUMPDATABASE NIL (MKATOM (MEDLEYDIR "tmp" "fuller.database" T T)))
+    (DUMPDATABASE NIL (MKATOM (OR DBFILE "fuller.database")))
    (DRIBBLE)
-    (MAKESYS (MEDLEYDIR "tmp" "fuller.sysout" T T)
+    (MAKESYS (OR SYSOUTFILE "fuller.sysout")
           "Welcome to Fuller sysout")))

 (MEDLEY-FIX-LINKS
@@ -146,7 +148,8 @@
 (DEFINEQ

 (MAKE-EXPORTS-ALL
-  (LAMBDA NIL                                             (* \; "Edited  9-Mar-2021 16:11 by larry")
+  (LAMBDA (OUTFILE)                                       (* \; "Edited  3-Aug-2023 18:34 by frank")
+                                                          (* \; "Edited  9-Mar-2021 16:11 by larry")
                                                             (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")
                                                             (* 
          "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
@@ -156,24 +159,25 @@
                                                             "Edited September 29, 1986 by van Melle")
    (CNDIR (MEDLEYDIR "sources"))
    (LOAD 'FILESETS)
-    (GATHEREXPORTS EXPORTFILES (MEDLEYDIR "tmp" "exports.all" T))))
+    (GATHEREXPORTS EXPORTFILES (OR OUTFILE "exports.all"))))

 (MAKE-WHEREIS-HASH
-  (LAMBDA NIL                                               (* \; "Edited 12-Mar-2022 12:46 by rmk")
+  (LAMBDA (DRIBBLEFILE TMPFILE WHEREISFILE)               (* \; "Edited  3-Aug-2023 18:37 by frank")
+                                                            (* \; "Edited 12-Mar-2022 12:46 by rmk")
                                                          (* \; "Edited 24-Mar-2021 13:26 by larry")
    (LET ((FILING.ENUMERATION.DEPTH 2)
          HASHFILE)
-         (DRIBBLE (MEDLEYDIR "tmp" "whereis.dribble" T))
-         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "tmp" "whereis.hash-tmp" T)
+         (DRIBBLE (OR DRIBBLEFILE "whereis.dribble"))
+         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (OR TMPFILE "whereis.hash-tmp")
                               :FILES
                               (|for| X |in| MEDLEY-FIX-DIRS |collect| (CONCAT (MEDLEYDIR X)
                                                                              "*.;"))
                               :HASH-FILE-SIZE 60000 :NEW T))
-         (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T))
+         (RENAMEFILE HASHFILE (OR WHEREISFILE "whereis.hash"))
         (DRIBBLE))))
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (624 7499 (GATHER-INFO 634 . 6162) (MAKE-FULLER-DB 6164 . 6854) (MEDLEY-FIX-LINKS 6856
- . 7253) (MEDLEY-FIX-DATES 7255 . 7497)) (8538 10331 (MAKE-EXPORTS-ALL 8548 . 9507) (MAKE-WHEREIS-HASH
- 9509 . 10329)))))
+  (FILEMAP (NIL (679 7642 (GATHER-INFO 689 . 6217) (MAKE-FULLER-DB 6219 . 6997) (MEDLEY-FIX-LINKS 6999
+ . 7396) (MEDLEY-FIX-DATES 7398 . 7640)) (8681 10672 (MAKE-EXPORTS-ALL 8691 . 9752) (MAKE-WHEREIS-HASH
+ 9754 . 10670)))))
 STOP
--- a/internal/MEDLEY-UTILS.LCOM
+++ b/internal/MEDLEY-UTILS.LCOM
--- a/internal/loadups/LOADUP-APPS
+++ b/internal/loadups/LOADUP-APPS
--- a/internal/loadups/LOADUP-APPS.LCOM
+++ b/internal/loadups/LOADUP-APPS.LCOM
--- a/internal/loadups/LOADUP-FULL
+++ b/internal/loadups/LOADUP-FULL
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;2 4636   
+(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4 4521   

      :CHANGES-TO (FNS LOADUP-FULL)

-      :PREVIOUS-DATE "12-Aug-2022 12:30:09" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;1
+      :PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
 )


@@ -39,7 +39,7 @@
               (PRINTOUT T "FULL fonts loaded" T])

 (LOADUP-FULL
-  [LAMBDA NIL                                                (* ; "Edited 18-Jan-2023 16:22 by FGH")
+  [LAMBDA (DRIBBLEFILE)                                      (* ; "Edited 18-Jan-2023 16:22 by FGH")
                                                             (* ; "Edited 12-Aug-2022 11:17 by lmm")
                                                             (* ; "Edited 14-Jul-2022 12:32 by rmk")
                                                             (* ; "Edited 12-Jul-2022 21:57 by rmk")
@@ -55,9 +55,7 @@
    (PROGN (SETQ MEDLEYDIR)
           (CNDIR (MEDLEYDIR)))
    (MEDLEY-INIT-VARS)
-    (SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
-    (SETQ MAKESYSNAME :MEDLEY)
-    (DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))
+    (DRIBBLE DRIBBLEFILE)

    (* ;; "BKSYSBUF stops page holding ")

@@ -88,5 +86,5 @@

 (FIXMETA)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (467 4598 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4348) (FIXMETA 4350 . 4596)))))
+  (FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
 STOP
--- a/internal/loadups/LOADUP-FULL.LCOM
+++ b/internal/loadups/LOADUP-FULL.LCOM
--- a/internal/loadups/LOADUP-LISP
+++ b/internal/loadups/LOADUP-LISP
@@ -1,12 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

-(FILECREATED "27-Feb-2023 17:15:53" |{DSK}<home>larry>il>medley>sources>LOADUP-LISP.;2| 5263   
-
-      :EDIT-BY "lmm"
+(FILECREATED "31-Jul-2023 18:22:53" |{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;2| 5235   

      :CHANGES-TO (FNS LOADUP-LISP)

-      :PREVIOUS-DATE "12-Aug-2022 12:29:57" |{DSK}<home>larry>il>medley>sources>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE "27-Feb-2023 17:15:53" 
+|{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;1|)


 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,13 +18,13 @@
 (DEFINEQ

 (LOADUP-LISP
-  (LAMBDA NIL                                               (* \; "Edited 26-Feb-2023 12:17 by lmm")
+  (LAMBDA (DRIBBLEFILE)                                     (* \; "Edited 26-Feb-2023 12:17 by lmm")
                                                            (* \; "Edited 13-Jul-2022 14:09 by rmk")
                                                          (* \; "Edited  4-Mar-2022 19:13 by larry")
                                                           (* \; "Edited 29-Apr-2021 22:30 by rmk:")
    (SETQQ COMPILE.EXT LCOM)
    (MEDLEY-INIT-VARS)                                       (* \; "should be set earlier")
-    (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
+    (DRIBBLE DRIBBLEFILE)
    (FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
                                     (PRINTOUT T X " bootloaded" T)
                                     (SETQ SYSFILES (CONS X SYSFILES))))
@@ -124,5 +123,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (654 5057 (LOADUP-LISP 664 . 5055)))))
+  (FILEMAP (NIL (649 5029 (LOADUP-LISP 659 . 5027)))))
 STOP
--- a/internal/loadups/LOADUP-LISP.LCOM
+++ b/internal/loadups/LOADUP-LISP.LCOM
--- a/internal/loadups/MAKEINIT
+++ b/internal/loadups/MAKEINIT
@@ -1,18 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "11-Jul-2022 20:00:23" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>MAKEINIT.;3 54607  
+(FILECREATED " 7-Aug-2023 13:31:49" {DSK}<home>frank>il>medley>gmedley>internal>loadups>MAKEINIT.;4 54490  

-      :CHANGES-TO (FNS I.FIXUPNUM I.FIXUPSYM)
+      :CHANGES-TO (FNS MAKEINITGREET)

-      :PREVIOUS-DATE "19-Jul-2021 23:50:29" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>MAKEINIT.;2)
+      :PREVIOUS-DATE " 3-Aug-2023 17:37:51" 
+{DSK}<home>frank>il>medley>gmedley>internal>loadups>MAKEINIT.;1)


-(* ; "
-Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT MAKEINITCOMS)

 (RPAQQ MAKEINITCOMS
@@ -83,7 +78,8 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
 (DEFINEQ

 (MAKEINITGREET
-  [LAMBDA NIL                                          (* ; "Edited 11-Mar-2021 22:14 by larry")
+  [LAMBDA (SYSOUTFILE DLINITFILE)                          (* ; "Edited  3-Aug-2023 17:37 by frank")
+                                                           (* ; "Edited 11-Mar-2021 22:14 by larry")
                                                            (* ; "Edited  5-Dec-2017 15:26 by rmk:")

    (* ;; "")
@@ -93,12 +89,13 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
    (* ;; "")
                                                             (* Versions are Lisp Microcode Bcpl)
    (MEDLEY-INIT-VARS)
-    (DORENAME 'I)
-    (DORENAME 'R)
-    (DLFIXINIT (MAKEINIT '(39424 5682 11008)
-                          (MEDLEYDIR "tmp" "init.sysout" T)
-                          NIL DIRECTORIES DISPLAYFONTDIRECTORIES)
-           (MEDLEYDIR "tmp" "init.dlinit" T])
+    (RESETLST
+        (RESETSAVE OK.TO.MODIFY.FNS T)
+        (DORENAME 'I)
+        (DORENAME 'R)
+        (DLFIXINIT (MAKEINIT '(39424 5682 11008)
+                          SYSOUTFILE NIL DIRECTORIES DISPLAYFONTDIRECTORIES)
+               DLINITFILE))])
 )

 (FILESLOAD (SOURCE)
@@ -1053,28 +1050,26 @@ DONTCOPY
 (GLOBALVARS DLPRIMARYMAP DLSECONDARYMAP DLLOCKBITS DLLASTDOMINOPAGE DLIFPAGE DLNEXTPM DLPAGEMAPFP 
       FPTOVP NEWFPFROMOLD VMEMFILE VMEMFILEX)
 )
-(PUTPROPS MAKEINIT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
- 1992 1998 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3971 4718 (MAKEINITGREET 3981 . 4716)) (4901 11286 (LOADMAKEINIT 4911 . 6114) (
-LOADMKIFILES 6116 . 6431) (RELOAD 6433 . 6916) (MAKEINIT 6918 . 10578) (MKI.START 10580 . 11284)) (
-11364 17082 (MKI.PASSFILE 11374 . 14984) (SCRATCHARRAY 14986 . 15635) (DOFORM 15637 . 16314) (
-CONSTFORMP 16316 . 16550) (NOTICECOMS 16552 . 16860) (EVALFORMAKEINIT 16862 . 17080)) (17083 19203 (
-I.ADDTOVAR 17093 . 17187) (I.DECLARE%: 17189 . 17465) (I.DEFINE-FILE-INFO 17467 . 17657) (
-I.FILECREATED 17659 . 18033) (I.PUTPROPS 18035 . 18148) (I.RPAQ 18150 . 18371) (I.RPAQQ 18373 . 18569)
- (I.RPAQ? 18571 . 18786) (I.SETTOPVAL 18788 . 19020) (I.NOUNDO 19022 . 19201)) (19839 26055 (
-I.ATOMNUMBER 19849 . 20340) (I.\ATOMCELL 20342 . 22095) (I.FIXUPNUM 22097 . 23022) (I.FIXUPPTR 23024
- . 23505) (I.FIXUPSYM 23507 . 24563) (I.WORDSPERNAMEENTRY 24565 . 25320) (I.SETSTKNTOFFSET 25322 . 
-26053)) (26087 27595 (MKI.ATOM 26097 . 26293) (MKI.IEEE 26295 . 27593)) (27692 28457 (MKI.DSET 27702
- . 27985) (MKI.ADDTO 27987 . 28172) (MKI.PUTPROP 28174 . 28455)) (28631 29183 (DUMPVP 28641 . 28738) (
-BOUTZEROS 28740 . 28819) (BIN16 28821 . 29002) (BOUT16 29004 . 29181)) (30074 52808 (DLFIXINIT 30084
- . 31059) (DLSORTSYSOUTPAGES 31061 . 36187) (DLNEXTFP 36189 . 36526) (DLLOCKEDPAGEP 36528 . 36742) (
-DLSETLOCKBIT 36744 . 37006) (DLCOPYPAGEMAP 37008 . 40059) (DLCOPYVMPAGE 40061 . 40451) (
-DLADDPAGEMAPENTRIES 40453 . 41268) (ASSIGNFILEPAGE 41270 . 42503) (ASSIGNFILEPAGERANGE 42505 . 42912) 
-(DLDUMPSYSOUT 42914 . 44666) (DLDUMPFPTOVP 44668 . 45707) (DLDUMPPAGEMAPS 45709 . 46409) (
-DLDUMPVMEMPAGES 46411 . 47067) (DLSETBOOTPTR 47069 . 47299) (DLDUMPARRAY 47301 . 47688) (
-DLMARKASDUMPED 47690 . 48143) (DLDUMPVMEMPAGE 48145 . 48833) (INSTALLDOMINO 48835 . 49482) (
-INSTALLDOMINO.DIRECT 49484 . 50636) (INSTALLNEWDOMINO 50638 . 52806)) (52830 54187 (DLPRINTFPTOVP 
-52840 . 53129) (PRINTPRIMARYMAP 53131 . 53845) (DLREADPAGEOFWORDS 53847 . 54014) (SETDIF 54016 . 54185
+  (FILEMAP (NIL (3862 4722 (MAKEINITGREET 3872 . 4720)) (4905 11290 (LOADMAKEINIT 4915 . 6118) (
+LOADMKIFILES 6120 . 6435) (RELOAD 6437 . 6920) (MAKEINIT 6922 . 10582) (MKI.START 10584 . 11288)) (
+11368 17086 (MKI.PASSFILE 11378 . 14988) (SCRATCHARRAY 14990 . 15639) (DOFORM 15641 . 16318) (
+CONSTFORMP 16320 . 16554) (NOTICECOMS 16556 . 16864) (EVALFORMAKEINIT 16866 . 17084)) (17087 19207 (
+I.ADDTOVAR 17097 . 17191) (I.DECLARE%: 17193 . 17469) (I.DEFINE-FILE-INFO 17471 . 17661) (
+I.FILECREATED 17663 . 18037) (I.PUTPROPS 18039 . 18152) (I.RPAQ 18154 . 18375) (I.RPAQQ 18377 . 18573)
+ (I.RPAQ? 18575 . 18790) (I.SETTOPVAL 18792 . 19024) (I.NOUNDO 19026 . 19205)) (19843 26059 (
+I.ATOMNUMBER 19853 . 20344) (I.\ATOMCELL 20346 . 22099) (I.FIXUPNUM 22101 . 23026) (I.FIXUPPTR 23028
+ . 23509) (I.FIXUPSYM 23511 . 24567) (I.WORDSPERNAMEENTRY 24569 . 25324) (I.SETSTKNTOFFSET 25326 . 
+26057)) (26091 27599 (MKI.ATOM 26101 . 26297) (MKI.IEEE 26299 . 27597)) (27696 28461 (MKI.DSET 27706
+ . 27989) (MKI.ADDTO 27991 . 28176) (MKI.PUTPROP 28178 . 28459)) (28635 29187 (DUMPVP 28645 . 28742) (
+BOUTZEROS 28744 . 28823) (BIN16 28825 . 29006) (BOUT16 29008 . 29185)) (30078 52812 (DLFIXINIT 30088
+ . 31063) (DLSORTSYSOUTPAGES 31065 . 36191) (DLNEXTFP 36193 . 36530) (DLLOCKEDPAGEP 36532 . 36746) (
+DLSETLOCKBIT 36748 . 37010) (DLCOPYPAGEMAP 37012 . 40063) (DLCOPYVMPAGE 40065 . 40455) (
+DLADDPAGEMAPENTRIES 40457 . 41272) (ASSIGNFILEPAGE 41274 . 42507) (ASSIGNFILEPAGERANGE 42509 . 42916) 
+(DLDUMPSYSOUT 42918 . 44670) (DLDUMPFPTOVP 44672 . 45711) (DLDUMPPAGEMAPS 45713 . 46413) (
+DLDUMPVMEMPAGES 46415 . 47071) (DLSETBOOTPTR 47073 . 47303) (DLDUMPARRAY 47305 . 47692) (
+DLMARKASDUMPED 47694 . 48147) (DLDUMPVMEMPAGE 48149 . 48837) (INSTALLDOMINO 48839 . 49486) (
+INSTALLDOMINO.DIRECT 49488 . 50640) (INSTALLNEWDOMINO 50642 . 52810)) (52834 54191 (DLPRINTFPTOVP 
+52844 . 53133) (PRINTPRIMARYMAP 53135 . 53849) (DLREADPAGEOFWORDS 53851 . 54018) (SETDIF 54020 . 54189
 )))))
 STOP
--- a/internal/loadups/MAKEINIT.LCOM
+++ b/internal/loadups/MAKEINIT.LCOM
--- a/internal/loadups/README.md
+++ b/internal/loadups/README.md
--- a/internal/loadups/starter.sysout
+++ b/internal/loadups/starter.sysout
--- a/internal/venuesysouts/full.venuesysout
+++ b/internal/venuesysouts/full.venuesysout
--- a/internal/venuesysouts/lisp.venuesysout
+++ b/internal/venuesysouts/lisp.venuesysout
--- a/library/FILEBROWSER
+++ b/library/FILEBROWSER
@@ -1,24 +1,19 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

-(FILECREATED " 4-Aug-2022 09:32:02" |{DSK}<home>larry>medley>library>FILEBROWSER.;2| 266567 
+(FILECREATED "19-Jul-2023 09:30:47" |{WMEDLEY}<library>FILEBROWSER.;25| 265978 
+
+      :EDIT-BY |rmk|

      :CHANGES-TO (VARS FILEBROWSERCOMS)

-      :PREVIOUS-DATE " 2-Dec-2021 19:33:12" |{DSK}<home>larry>medley>library>FILEBROWSER.;1|)
+      :PREVIOUS-DATE "18-Jul-2023 22:19:30" |{WMEDLEY}<library>FILEBROWSER.;24|)


-; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
-
 (PRETTYCOMPRINT FILEBROWSERCOMS)

 (RPAQQ FILEBROWSERCOMS
-       ((COMS (DECLARE\: EVAL@COMPILE DONTCOPY (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-                                                      (TERPRI T)
-                                                      (PRIN1 
-                                                            "NOTE:  FILEBROWSER requires EXPORTS.ALL"
-                                                             T)
-                                                      (TERPRI T)
-                                                      (TERPRI T))))
+       ((COMS (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
+                                                      EXPORTS.ALL))
              (FILES ATTACHEDWINDOW ICONW TABLEBROWSER)
              (P 
                 (* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded")
@@ -250,11 +245,8 @@ You specify how many versions to keep.")))
        ))
 (DECLARE\: EVAL@COMPILE DONTCOPY 

-(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-    (TERPRI T)
-    (PRIN1 "NOTE:  FILEBROWSER requires EXPORTS.ALL" T)
-    (TERPRI T)
-    (TERPRI T))
+(FILESLOAD (FROM LOADUPS)
+       EXPORTS.ALL)
 )

 (FILESLOAD ATTACHEDWINDOW ICONW TABLEBROWSER)
@@ -463,8 +455,7 @@ Your deletions are thus ignored.")))
 (* \; "Entries")


-(DEFCOMMAND "fb" (&REST PAT&PROPS)
-   (APPLY 'FB PAT&PROPS))
+(DEFCOMMAND "fb" (&REST PAT&PROPS) (APPLY 'FB PAT&PROPS))
 (DEFINEQ

 (FB
@@ -943,8 +934,9 @@ Your deletions are thus ignored.")))
         (AND OLDFONT (DSPFONT OLDFONT STREAM)))))

 (FB.COPYFN
-  (LAMBDA (TBROWSER ITEM)                                    (* |bvm:| "13-Oct-85 17:44")
-    (BKSYSBUF (|fetch| (FBFILEDATA FILENAME) |of| (|fetch| TIDATA |of| ITEM)))))
+  (LAMBDA (TBROWSER ITEM)                                   (* \; "Edited 18-Jul-2023 22:19 by rmk")
+                                                             (* |bvm:| "13-Oct-85 17:44")
+    (COPYINSERT (|fetch| (FBFILEDATA FILENAME) |of| (|fetch| TIDATA |of| ITEM)))))
 )


@@ -4253,54 +4245,52 @@ then click Recompute"))))

 (ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
 )
-(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 (32375 55256 (FB 32385 . 33520) (FB.COPYBINARYCOMMAND 33522 . 33868) (FB.COPYTEXTCOMMAND
- 33870 . 34212) (FILEBROWSER 34214 . 47320) (FB.TABLEBROWSER 47322 . 47539) (FB.SELECTEDFILES 47541 . 
-48178) (FB.FETCHFILENAME 48180 . 48572) (FB.DIRECTORYP 48574 . 48968) (FB.PROMPTWPRINT 48970 . 50016) 
-(FB.PROMPTW.FORMAT 50018 . 50755) (FB.PROMPTFORINPUT 50757 . 53009) (FB.YES-OR-NO-P 53011 . 54045) (
-FB.ALLOW.ABORT 54047 . 54901) (\\FB.HARDCOPY.TOFILE.EXTENSION 54903 . 55254)) (55280 56233 (FB.STARTUP
- 55290 . 55805) (FB.MAKERIGIDWINDOW 55807 . 56231)) (56234 61606 (FB.PRINTFN 56244 . 61397) (FB.COPYFN
- 61399 . 61604)) (61656 67996 (FB.MENU.WHENSELECTEDFN 61666 . 62024) (FB.COMMANDSELECTEDFN 62026 . 
-63565) (FB.SUBITEMP 63567 . 64168) (FB.MAKE.BROWSER.BUSY 64170 . 64974) (FB.FINISH.COMMAND 64976 . 
-67007) (FB.HANDLE.ABORT.BUTTON 67009 . 67994)) (67997 73513 (FB.DELETECOMMAND 68007 . 68288) (
-FB.DELVERCOMMAND 68290 . 71483) (FB.IS.NOT.SUBDIRECTORY.ITEM 71485 . 71666) (FB.DELVER.FILES 71668 . 
-72757) (FB.DELETE.FILE 72759 . 73511)) (73514 74839 (FB.UNDELETECOMMAND 73524 . 73809) (
-FB.UNDELETEALLCOMMAND 73811 . 74090) (FB.UNDELETE.FILE 74092 . 74837)) (74840 99021 (FB.COPYCOMMAND 
-74850 . 75119) (FB.RENAMECOMMAND 75121 . 75396) (FB.COPY/RENAME.COMMAND 75398 . 76321) (
-FB.COPY/RENAME.ONE 76323 . 78645) (FB.COPY/RENAME.MANY 78647 . 84867) (FB.MERGE.DIRECTORIES 84869 . 
-85287) (FB.GREATEST.PREFIX 85289 . 86645) (FB.MAYBE.INSERT.FILE 86647 . 94087) (FB.GET.NEW.FILE.SPEC 
-94089 . 97920) (FB.CANONICAL.DIRECTORY 97922 . 99019)) (99022 106806 (FB.HARDCOPYCOMMAND 99032 . 
-100162) (FB.HARDCOPY.TOFILE 100164 . 106804)) (106807 117006 (FB.EDITCOMMAND 106817 . 107684) (
-FB.EDITCOMMAND.ONEFILE 107686 . 111090) (FB.EDITLISPFILE 111092 . 112197) (FB.BROWSECOMMAND 112199 . 
-117004)) (117007 128928 (FB.FASTSEECOMMAND 117017 . 120467) (FB.FASTSEE.ONEFILE 120469 . 123626) (
-FB.SEEFULLFN 123628 . 127759) (FB.SEEBUTTONFN 127761 . 128926)) (128929 130675 (FB.LOADCOMMAND 128939
- . 129446) (FB.COMPILECOMMAND 129448 . 129986) (FB.OPERATE.ON.FILES 129988 . 130673)) (130676 178861 (
-FB.UPDATECOMMAND 130686 . 130911) (FB.FIX-DIRECTORY-DATES 130913 . 131936) (FB.MAYBE.EXPUNGE 131938 . 
-132999) (FB.UPDATEBROWSERITEMS 133001 . 146216) (FB.DATE 146218 . 146859) (FB.ADJUST.DATE.WIDTH 146861
- . 149829) (FB.SET.BROWSER.TITLE 149831 . 150833) (FB.MAYBE.WIDEN.NAMES 150835 . 152954) (
-FB.SET.DEFAULT.NAME.WIDTH 152956 . 154320) (FB.CREATE.FILEBUCKET 154322 . 161542) (
-FB.CHECK.NAME.LENGTH 161544 . 163965) (FB.ADD.FILEGROUP 163967 . 165494) (FB.INSERT.DIRECTORY 165496
- . 165734) (FB.MAKE.SUBDIRECTORY.ITEM 165736 . 167145) (FB.ADD.FILE 167147 . 167760) (FB.INSERT.FILE 
-167762 . 171174) (FB.ANALYZE.PATTERN 171176 . 176440) (FB.CANONICALIZE.PATTERN 176442 . 177754) (
-FB.GETALLFILEINFO 177756 . 178859)) (178862 187021 (FB.SORT.VERSIONS 178872 . 181643) (
-FB.DECREASING.VERSION 181645 . 182314) (FB.INCREASING.VERSION 182316 . 182937) (
-FB.NAMES.DECREASING.VERSION 182939 . 183974) (FB.NAMES.INCREASING.VERSION 183976 . 184973) (
-FB.DECREASING.NUMERIC.ATTR 184975 . 185655) (FB.INCREASING.NUMERIC.ATTR 185657 . 186331) (
-FB.ALPHABETIC.ATTR 186333 . 187019)) (187022 196864 (FB.SORTCOMMAND 187032 . 193862) (
-FB.INSERT.SUBDIRECTORIES 193864 . 194661) (FB.GET.SORT.MENU 194663 . 196862)) (196865 213086 (
-FB.EXPUNGECOMMAND 196875 . 199460) (FB.NEWPATTERNCOMMAND 199462 . 199860) (FB.NEWINFOCOMMAND 199862 . 
-202694) (FB.DEPTHCOMMAND 202696 . 204471) (FB.SHAPECOMMAND 204473 . 207815) (FB.REMOVE.FILE 207817 . 
-209638) (FB.COUNT.FILE.CHANGE 209640 . 211085) (FB.SETNEWPATTERN 211087 . 212257) (FB.GET.NEWPATTERN 
-212259 . 212843) (FB.OPTIONSCOMMAND 212845 . 213084)) (213121 214174 (FB.GETWINDOW 213131 . 214172)) (
-214175 215187 (FB.INFOMENU.SHADEINITIALSELECTIONS 214185 . 214832) (FB.INFO.ITEM.NAMED 214834 . 215185
-)) (215188 224720 (FB.MAKECOUNTERWINDOW 215198 . 216726) (FB.COUNTERW.REDISPLAYFN 216728 . 217315) (
-FB.UPDATE.COUNTERS 217317 . 219389) (FB.DISPLAY.COUNTERS 219391 . 224451) (FB.COUNTER.STRING 224453 . 
-224718)) (224721 229430 (FB.MAKEHEADINGWINDOW 224731 . 226345) (FB.HEADINGW.REDISPLAYFN 226347 . 
-226613) (FB.HEADINGW.RESHAPEFN 226615 . 226991) (FB.HEADINGW.DISPLAY 226993 . 229428)) (229431 233614 
-(FB.ICONFN 229441 . 229788) (FB.INFOMENU.WHENSELECTEDFN 229790 . 230520) (FB.CLOSEFN 230522 . 231725) 
-(FB.EXPUNGE?.MENU 231727 . 232139) (FB.AFTERCLOSEFN 232141 . 232502) (FB.CLOSE&EXPUNGE 232504 . 233612
-)) (233615 245673 (FB.HARDCOPY.DIRECTORY 233625 . 243982) (FB.HARDCOPY.PRINT.TITLE 243984 . 244310) (
-FB.HARDCOPY.MAXWIDTH 244312 . 245671)))))
+  (FILEMAP (NIL (31814 54695 (FB 31824 . 32959) (FB.COPYBINARYCOMMAND 32961 . 33307) (FB.COPYTEXTCOMMAND
+ 33309 . 33651) (FILEBROWSER 33653 . 46759) (FB.TABLEBROWSER 46761 . 46978) (FB.SELECTEDFILES 46980 . 
+47617) (FB.FETCHFILENAME 47619 . 48011) (FB.DIRECTORYP 48013 . 48407) (FB.PROMPTWPRINT 48409 . 49455) 
+(FB.PROMPTW.FORMAT 49457 . 50194) (FB.PROMPTFORINPUT 50196 . 52448) (FB.YES-OR-NO-P 52450 . 53484) (
+FB.ALLOW.ABORT 53486 . 54340) (\\FB.HARDCOPY.TOFILE.EXTENSION 54342 . 54693)) (54719 55672 (FB.STARTUP
+ 54729 . 55244) (FB.MAKERIGIDWINDOW 55246 . 55670)) (55673 61156 (FB.PRINTFN 55683 . 60836) (FB.COPYFN
+ 60838 . 61154)) (61206 67546 (FB.MENU.WHENSELECTEDFN 61216 . 61574) (FB.COMMANDSELECTEDFN 61576 . 
+63115) (FB.SUBITEMP 63117 . 63718) (FB.MAKE.BROWSER.BUSY 63720 . 64524) (FB.FINISH.COMMAND 64526 . 
+66557) (FB.HANDLE.ABORT.BUTTON 66559 . 67544)) (67547 73063 (FB.DELETECOMMAND 67557 . 67838) (
+FB.DELVERCOMMAND 67840 . 71033) (FB.IS.NOT.SUBDIRECTORY.ITEM 71035 . 71216) (FB.DELVER.FILES 71218 . 
+72307) (FB.DELETE.FILE 72309 . 73061)) (73064 74389 (FB.UNDELETECOMMAND 73074 . 73359) (
+FB.UNDELETEALLCOMMAND 73361 . 73640) (FB.UNDELETE.FILE 73642 . 74387)) (74390 98571 (FB.COPYCOMMAND 
+74400 . 74669) (FB.RENAMECOMMAND 74671 . 74946) (FB.COPY/RENAME.COMMAND 74948 . 75871) (
+FB.COPY/RENAME.ONE 75873 . 78195) (FB.COPY/RENAME.MANY 78197 . 84417) (FB.MERGE.DIRECTORIES 84419 . 
+84837) (FB.GREATEST.PREFIX 84839 . 86195) (FB.MAYBE.INSERT.FILE 86197 . 93637) (FB.GET.NEW.FILE.SPEC 
+93639 . 97470) (FB.CANONICAL.DIRECTORY 97472 . 98569)) (98572 106356 (FB.HARDCOPYCOMMAND 98582 . 99712
+) (FB.HARDCOPY.TOFILE 99714 . 106354)) (106357 116556 (FB.EDITCOMMAND 106367 . 107234) (
+FB.EDITCOMMAND.ONEFILE 107236 . 110640) (FB.EDITLISPFILE 110642 . 111747) (FB.BROWSECOMMAND 111749 . 
+116554)) (116557 128478 (FB.FASTSEECOMMAND 116567 . 120017) (FB.FASTSEE.ONEFILE 120019 . 123176) (
+FB.SEEFULLFN 123178 . 127309) (FB.SEEBUTTONFN 127311 . 128476)) (128479 130225 (FB.LOADCOMMAND 128489
+ . 128996) (FB.COMPILECOMMAND 128998 . 129536) (FB.OPERATE.ON.FILES 129538 . 130223)) (130226 178411 (
+FB.UPDATECOMMAND 130236 . 130461) (FB.FIX-DIRECTORY-DATES 130463 . 131486) (FB.MAYBE.EXPUNGE 131488 . 
+132549) (FB.UPDATEBROWSERITEMS 132551 . 145766) (FB.DATE 145768 . 146409) (FB.ADJUST.DATE.WIDTH 146411
+ . 149379) (FB.SET.BROWSER.TITLE 149381 . 150383) (FB.MAYBE.WIDEN.NAMES 150385 . 152504) (
+FB.SET.DEFAULT.NAME.WIDTH 152506 . 153870) (FB.CREATE.FILEBUCKET 153872 . 161092) (
+FB.CHECK.NAME.LENGTH 161094 . 163515) (FB.ADD.FILEGROUP 163517 . 165044) (FB.INSERT.DIRECTORY 165046
+ . 165284) (FB.MAKE.SUBDIRECTORY.ITEM 165286 . 166695) (FB.ADD.FILE 166697 . 167310) (FB.INSERT.FILE 
+167312 . 170724) (FB.ANALYZE.PATTERN 170726 . 175990) (FB.CANONICALIZE.PATTERN 175992 . 177304) (
+FB.GETALLFILEINFO 177306 . 178409)) (178412 186571 (FB.SORT.VERSIONS 178422 . 181193) (
+FB.DECREASING.VERSION 181195 . 181864) (FB.INCREASING.VERSION 181866 . 182487) (
+FB.NAMES.DECREASING.VERSION 182489 . 183524) (FB.NAMES.INCREASING.VERSION 183526 . 184523) (
+FB.DECREASING.NUMERIC.ATTR 184525 . 185205) (FB.INCREASING.NUMERIC.ATTR 185207 . 185881) (
+FB.ALPHABETIC.ATTR 185883 . 186569)) (186572 196414 (FB.SORTCOMMAND 186582 . 193412) (
+FB.INSERT.SUBDIRECTORIES 193414 . 194211) (FB.GET.SORT.MENU 194213 . 196412)) (196415 212636 (
+FB.EXPUNGECOMMAND 196425 . 199010) (FB.NEWPATTERNCOMMAND 199012 . 199410) (FB.NEWINFOCOMMAND 199412 . 
+202244) (FB.DEPTHCOMMAND 202246 . 204021) (FB.SHAPECOMMAND 204023 . 207365) (FB.REMOVE.FILE 207367 . 
+209188) (FB.COUNT.FILE.CHANGE 209190 . 210635) (FB.SETNEWPATTERN 210637 . 211807) (FB.GET.NEWPATTERN 
+211809 . 212393) (FB.OPTIONSCOMMAND 212395 . 212634)) (212671 213724 (FB.GETWINDOW 212681 . 213722)) (
+213725 214737 (FB.INFOMENU.SHADEINITIALSELECTIONS 213735 . 214382) (FB.INFO.ITEM.NAMED 214384 . 214735
+)) (214738 224270 (FB.MAKECOUNTERWINDOW 214748 . 216276) (FB.COUNTERW.REDISPLAYFN 216278 . 216865) (
+FB.UPDATE.COUNTERS 216867 . 218939) (FB.DISPLAY.COUNTERS 218941 . 224001) (FB.COUNTER.STRING 224003 . 
+224268)) (224271 228980 (FB.MAKEHEADINGWINDOW 224281 . 225895) (FB.HEADINGW.REDISPLAYFN 225897 . 
+226163) (FB.HEADINGW.RESHAPEFN 226165 . 226541) (FB.HEADINGW.DISPLAY 226543 . 228978)) (228981 233164 
+(FB.ICONFN 228991 . 229338) (FB.INFOMENU.WHENSELECTEDFN 229340 . 230070) (FB.CLOSEFN 230072 . 231275) 
+(FB.EXPUNGE?.MENU 231277 . 231689) (FB.AFTERCLOSEFN 231691 . 232052) (FB.CLOSE&EXPUNGE 232054 . 233162
+)) (233165 245223 (FB.HARDCOPY.DIRECTORY 233175 . 243532) (FB.HARDCOPY.PRINT.TITLE 243534 . 243860) (
+FB.HARDCOPY.MAXWIDTH 243862 . 245221)))))
 STOP
--- a/library/FILEBROWSER.LCOM
+++ b/library/FILEBROWSER.LCOM
--- a/library/SKETCHOPS
+++ b/library/SKETCHOPS
--- a/library/SKETCHOPS.LCOM
+++ b/library/SKETCHOPS.LCOM
--- a/library/SPY
+++ b/library/SPY
@@ -1,18 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED " 4-Jan-2022 14:09:48" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>SPY.;2 63314  
+(FILECREATED "28-Jul-2023 20:13:45" {DSK}<home>larry>il>medley>library>SPY.;4 64149  
+
+      :EDIT-BY "lmm"

      :CHANGES-TO (VARS SPYCOMS)
-                  (FNS SPY.MAKE.TREE)
+                  (FNS \SPY.INTERRUPT SPY.BUFFER.ENTRY SPY.ADD.ENTRY)

-      :PREVIOUS-DATE "29-Apr-94 14:13:52" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>SPY.;1
-)
+      :PREVIOUS-DATE " 4-Jan-2022 14:09:48" {DSK}<home>larry>il>medley>library>SPY.;1)


-(* ; "
-Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT SPYCOMS)

 (RPAQQ SPYCOMS
@@ -33,12 +30,13 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
             SPY.UPDATE.TITLE SPY.DELETE SPY.DRAWBOX SPY.BUFFER.ENTRY SPY.BUTTON SPY.END.ENTRY 
             SPY.START SPY.INIT \SPY.INTERRUPT SPY.DUMP.BUFFER SPY.START.ENTRY SPY.ADD.ENTRY 
             SPY.ORIGINAL SPY.OVERFLOW SPY.MERGE.CALLEES SPY.PRINT)
-        (COMS (INITVARS (SPY.BUTTON))
+        (COMS (INITVARS (\BACKGROUND)
+                     (SPY.BUTTON))
              (VARS SPY.OPEN SPY.CLOSED))
-        (VARIABLES SPY.POINTERS)
        (GLOBALVARS SPY.OVERFLOWED \PERIODIC.INTERRUPT SPY.TREE SPY.BUFFER.SIZE SPY.NEXT 
               SPY.BUFFER.THRESHOLD SPY.BUFFER SPY.FREQUENCY SPY.SHOW.THRESHOLD SPY.MAXLINES SPY.FONT
               )
+        (SPECVARS \BACKGROUND)
        (MACROS WITH-SPY WITH.SPY)
        (DECLARE%: DONTCOPY (RECORDS SPYRECORD SPYDATA))
        (INITRECORDS SPYRECORD)
@@ -836,8 +834,11 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )

 (SPY.BUFFER.ENTRY
-(LAMBDA (N) (* ; "Edited  9-Sep-87 18:27 by Masinter") (COND (SPY.POINTERS (AND (ILEQ (SETQ N (LLSH N 1)) SPY.BUFFER.SIZE) (\GETBASEPTR SPY.BUFFER N))) ((ILEQ N SPY.BUFFER.SIZE) (\VAG2 0 (\GETBASE SPY.BUFFER N)))))
-)
+  [LAMBDA (N)                                                (* ; "Edited 28-Jul-2023 08:16 by lmm")
+                                                          (* ; "Edited  9-Sep-87 18:27 by Masinter")
+    (AND (ILEQ (SETQ N (LLSH N 1))
+               SPY.BUFFER.SIZE)
+         (\GETBASEPTR SPY.BUFFER N])

 (SPY.BUTTON
 (LAMBDA (POS) (* gbn " 2-Jun-85 13:12") (PROG ((REG (if POS then (CREATEREGION (fetch XCOORD of POS) (fetch YCOORD of POS) (WIDTHIFWINDOW (BITMAPWIDTH SPY.CLOSED)) (HEIGHTIFWINDOW (BITMAPHEIGHT SPY.CLOSED))) else (GETBOXREGION (WIDTHIFWINDOW (BITMAPWIDTH SPY.CLOSED)) (HEIGHTIFWINDOW (BITMAPHEIGHT SPY.CLOSED)) NIL NIL NIL "Specify region for window %"Spy Control%"")))) (BITBLT SPY.CLOSED NIL NIL (SETQ SPY.BUTTON (CREATEW REG NIL NIL T))) (WINDOWPROP SPY.BUTTON (QUOTE BUTTONEVENTFN) (FUNCTION (LAMBDA (W) (AND (LASTMOUSESTATE UP) (SPY.TOGGLE)))))))
@@ -855,8 +856,34 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )

 (\SPY.INTERRUPT
-(LAMBDA NIL (* ; "Edited  9-Sep-87 18:32 by Masinter") (SETQ \PERIODIC.INTERRUPT) (* ; "turn off sampling while gathering sample") (PROG ((FRAME (fetch (FX CLINK) (\MYALINK)))) (COND ((IGEQ (if SPY.POINTERS then (LLSH SPY.NEXT 1) else SPY.NEXT) SPY.BUFFER.THRESHOLD) (COND (\INTERRUPTABLE (SPY.DUMP.BUFFER)) (T (* ; "this sample might overflow;  just don't do it") (RETURN))))) (SPY.START.ENTRY) SAMPLELOOP (SPY.ADD.ENTRY (fetch (FX FRAMENAME) FRAME)) (COND ((NOT (fetch (FX INVALIDP) (SETQ FRAME (fetch (FX CLINK) FRAME)))) (GO SAMPLELOOP)) (T (SPY.END.ENTRY)))) (SETQ \PERIODIC.INTERRUPT (QUOTE \SPY.INTERRUPT)))
-)
+  [LAMBDA NIL                                                (* ; "Edited 28-Jul-2023 08:59 by lmm")
+                                                          (* ; "Edited  9-Sep-87 18:32 by Masinter")
+    (DECLARE (SPECVARS \BACKGROUND))
+    [PROG [(FRAME (fetch (FX CLINK)
+                         (\MYALINK]
+          (IF \BACKGROUND
+              THEN (RETURN))
+          (SETQ \PERIODIC.INTERRUPT)                         (* ; 
+                                                           "turn off sampling while gathering sample")
+          [COND
+             ((IGEQ (LLSH SPY.NEXT 1)
+                    SPY.BUFFER.THRESHOLD)
+              (COND
+                 (\INTERRUPTABLE (SPY.DUMP.BUFFER))
+                 (T                                          (* ; 
+                                                      "this sample might overflow;  just don't do it")
+                    (RETURN]
+          (SPY.START.ENTRY)
+      SAMPLELOOP
+          (SPY.ADD.ENTRY (fetch (FX FRAMENAME)
+                                FRAME))
+          (COND
+             ([NOT (fetch (FX INVALIDP)
+                          (SETQ FRAME (fetch (FX CLINK)
+                                             FRAME]
+              (GO SAMPLELOOP))
+             (T (SPY.END.ENTRY]
+    (SETQ \PERIODIC.INTERRUPT '\SPY.INTERRUPT])

 (SPY.DUMP.BUFFER
  [LAMBDA NIL                                         (* ; "Edited 28-Apr-94 14:00 by sybalsky")
@@ -885,8 +912,15 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )

 (SPY.ADD.ENTRY
-(LAMBDA (NAME) (* ; "Edited  9-Sep-87 18:29 by Masinter") (COND (SPY.POINTERS (\PUTBASEPTR SPY.BUFFER (LLSH SPY.NEXT 1) NAME) (COND ((IGEQ (LLSH (add SPY.NEXT 1) 1) SPY.BUFFER.SIZE) (SPY.OVERFLOW)))) (T (OR (LITATOM NAME) (SETQ NAME (QUOTE *FORM*))) (\PUTBASE SPY.BUFFER SPY.NEXT (\LOLOC NAME)) (COND ((IGEQ (add SPY.NEXT 1) SPY.BUFFER.SIZE) (SPY.OVERFLOW))))))
-)
+  [LAMBDA (NAME)                                             (* ; "Edited 28-Jul-2023 08:17 by lmm")
+                                                          (* ; "Edited  9-Sep-87 18:29 by Masinter")
+    (\PUTBASEPTR SPY.BUFFER (LLSH SPY.NEXT 1)
+           NAME)
+    (COND
+       ((IGEQ (LLSH (add SPY.NEXT 1)
+                    1)
+              SPY.BUFFER.SIZE)
+        (SPY.OVERFLOW])

 (SPY.ORIGINAL
  [LAMBDA (TREES)                                     (* ; "Edited 28-Apr-94 14:00 by sybalsky")
@@ -951,6 +985,8 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
                           else (fetch (SPYRECORD NAME) of X])
 )

+(RPAQ? \BACKGROUND )
+
 (RPAQ? SPY.BUTTON )

 (RPAQQ SPY.OPEN #*(56 59)@@@@@@@@@@@@@@@@GLOLLC@@@@@@@@@@LFLFLC@@@@@@@@@@LFLFFF@@@@@@@@@@O@LFFF@@GLOL@@@@GLLFCL@@LFLF@@@@ANOLAH@@LFLF@@@@LFL@AH@@LFLF@@@@LFL@AH@@LFLF@@@@LFL@AH@@LFLF@@@@GLL@AH@@GLLF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IEGOOJ@@@@J@@HJ@@BOONHH@@BA@@@@HKOOOFNJHA@D@@HHBGOKNOEB@@@B@@@EDOMMBIGNJH@I@@@HBONJMEEKE@HA@@ECONMJB@KOOJCE@@@KOOJJHEAONHDJ@@KONJD@@@@AONIE@@GOMJH@@@BMOJEB@@FOB@@D@B@@AOEM@@GODDHA@@@AENMG@@KLH@@D@@@@BONM@@GM@HB@@@@BEFKG@@JJDBH@@@@@@INM@@ODA@DDD@@@BEOG@@@KJOMKB@@@AEEK@@JJEBNLIB@@DEOG@@DKNOKONHDDABFI@@BBKFOOMD@AAEFM@@IEIABEEOD@@@JJ@@EFLJKKGEB@EFEB@@J@@BOOHNHD@AEE@@EEEDONKEJ@EEBJ@@H@IOOOOOIEB@HD@@MDDOOOOMDHIEBJ@@BAOKOOOGONNJ@A@@HBKGOOOOOJKHBE@@DHLKMGMGOONJ@I@@@EMBOOJOOOKHBD@@BKDEOOJAOONJ@B@@BKIBOOHEOOOH@D@@HNDAONJBOJDDAA@@BO@DMGDEGOEB@A@@A@DBFJ@BL@@@@D@@@E@ICMAEOJDH@A@@B@@D@ADI@@@@BD@@HDA@JDBEFHH@@A@@@@@H@IDID@@B@D@@AA@A@@@B@A@@AA@@@@@D@@B@J@@A@A@@@@@H@@@D@@@@@J@@@A@@@D@AB@@@BA@@@@@@@@E@@@@@@D@@HH@@@B@@@@@@@B@@
@@ -958,13 +994,15 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor

 (RPAQQ SPY.CLOSED #*(56 59)@@@@@@@@@@@@@@@@GLOLLC@@@@CHND@@LFLFLC@@@@FAHA@@LFLFFF@@@@FAH@@@O@LFFF@@GLOKNA@@GLLFCL@@LFFAH@@@ANOLAH@@LFFAHA@@LFL@AH@@LFFAH@@@LFL@AH@@LFFAHJ@@LFL@AH@@LFFAH@@@GLL@AH@@GLFAHB@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@IEGOOJ@@@@J@@HJ@@BOONHH@@BA@@@@HKOOOFNJHA@D@@HHBGOKNOEB@@@B@@@EDOMMBIGNJH@I@@@HBONJMEEKE@HA@@ECONMJB@KOOBCE@@@KOOJJHEAOOHDJ@@KONJD@@@@AONIE@@GOMJH@@@BMOJEB@@FOB@@D@B@@AOEM@@GODDHA@@@AENMG@@KLH@@D@@@@BONM@@GM@HB@@@@BEFKG@@JJDBH@@@@@@INM@@ODA@DDD@@@BEOG@@@KJOMKB@@@AEEK@@JJEBNLIB@@DEOG@@DKNOKONHDDABFI@@BBKFOOOD@AAEFM@@IEIABEGND@@@JJ@@EFLLDGGGB@EFEB@@J@@@@@IOHD@AEE@@EEAAEA@FI@EEBJ@@H@HDL@EAME@@HD@@MDEB@NHDJHDABJ@@BAB@@ABICF@J@A@@HB@KDDI@BLI@BE@@DID@A@@JHKDJ@I@@@D@DDDE@EBKEBD@@BAD@@@@A@OED@B@@BHAAAAA@CGNH@D@@H@D@@@@@MOE@AA@@BK@DDDDDGOJJ@A@@B@DA@B@CODFBBD@@EE@HBIAENK@@@A@@BLHBDDDON@@@BD@@KGDHJJIGJHB@@A@@BOBBECGOLB@B@D@@AAMLMKGOH@@@AA@@@GGONNON@H@A@A@@@IKKKKOLJ@@@@J@@@DFOKOO@D@@@BA@@@AEGMMD@A@@@@D@@HHBJMBLA@@@@@B@@
 )
-
-(DEFGLOBALVAR SPY.POINTERS T)
 (DECLARE%: DOEVAL@COMPILE DONTCOPY

 (GLOBALVARS SPY.OVERFLOWED \PERIODIC.INTERRUPT SPY.TREE SPY.BUFFER.SIZE SPY.NEXT SPY.BUFFER.THRESHOLD
       SPY.BUFFER SPY.FREQUENCY SPY.SHOW.THRESHOLD SPY.MAXLINES SPY.FONT)
 )
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(SPECVARS \BACKGROUND)
+)
 (DECLARE%: EVAL@COMPILE 

 (PUTPROPS WITH-SPY MACRO [(FORM)
@@ -1014,19 +1052,18 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )

 (MOVD? 'NILL 'MODERNWINDOW)
-(PUTPROPS SPY COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1987 1988 1990 1991 1993 1994))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4753 7360 (SPYOBJ 4763 . 5052) (SPYOBJ.BUTTON 5054 . 5164) (SPYOBJ.SAVE 5166 . 5285) (
-SPYOBJ.COPY 5287 . 5349) (SPYOBJ.GET 5351 . 5480) (SPYOBJ.IMAGEBOX 5482 . 6006) (SPYOBJ.DISPLAY 6008
- . 6307) (SPYOBJ.LABEL 6309 . 6445) (SPYOBJ.HEIGHT 6447 . 6660) (SPYOBJ.COPYIN 6662 . 6705) (
-SPY.COPYBUTTON 6707 . 6799) (SPY.MERGEINFO 6801 . 7358)) (18202 59509 (SPY.FIND.TREE 18212 . 18621) (
-SPY.TOGGLE 18623 . 18813) (SPY.TREE 18815 . 19927) (SPY.LEGEND 19929 . 20279) (SPY.GRAPH.EDITOR 20281
- . 29846) (SPY.END 29848 . 30090) (SPY.MAKEGRAPHNODES 30092 . 32192) (SPY.MAX 32194 . 33077) (
-SPY.MERGE 33079 . 34510) (SPY.MERGE1 34512 . 40995) (SPY.MERGETREE 40997 . 43927) (SPY.NEXT.TREE 43929
- . 44603) (SPY.SUM 44605 . 45294) (SPY.TITLE 45296 . 45513) (SPY.MAKE.TREE 45515 . 47540) (
-SPY.UPDATE.TITLE 47542 . 50118) (SPY.DELETE 50120 . 50655) (SPY.DRAWBOX 50657 . 51182) (
-SPY.BUFFER.ENTRY 51184 . 51422) (SPY.BUTTON 51424 . 51993) (SPY.END.ENTRY 51995 . 52075) (SPY.START 
-52077 . 52361) (SPY.INIT 52363 . 52598) (\SPY.INTERRUPT 52600 . 53236) (SPY.DUMP.BUFFER 53238 . 54698)
- (SPY.START.ENTRY 54700 . 54828) (SPY.ADD.ENTRY 54830 . 55212) (SPY.ORIGINAL 55214 . 56041) (
-SPY.OVERFLOW 56043 . 56144) (SPY.MERGE.CALLEES 56146 . 59182) (SPY.PRINT 59184 . 59507)))))
+  (FILEMAP (NIL (4707 7314 (SPYOBJ 4717 . 5006) (SPYOBJ.BUTTON 5008 . 5118) (SPYOBJ.SAVE 5120 . 5239) (
+SPYOBJ.COPY 5241 . 5303) (SPYOBJ.GET 5305 . 5434) (SPYOBJ.IMAGEBOX 5436 . 5960) (SPYOBJ.DISPLAY 5962
+ . 6261) (SPYOBJ.LABEL 6263 . 6399) (SPYOBJ.HEIGHT 6401 . 6614) (SPYOBJ.COPYIN 6616 . 6659) (
+SPY.COPYBUTTON 6661 . 6753) (SPY.MERGEINFO 6755 . 7312)) (18156 60387 (SPY.FIND.TREE 18166 . 18575) (
+SPY.TOGGLE 18577 . 18767) (SPY.TREE 18769 . 19881) (SPY.LEGEND 19883 . 20233) (SPY.GRAPH.EDITOR 20235
+ . 29800) (SPY.END 29802 . 30044) (SPY.MAKEGRAPHNODES 30046 . 32146) (SPY.MAX 32148 . 33031) (
+SPY.MERGE 33033 . 34464) (SPY.MERGE1 34466 . 40949) (SPY.MERGETREE 40951 . 43881) (SPY.NEXT.TREE 43883
+ . 44557) (SPY.SUM 44559 . 45248) (SPY.TITLE 45250 . 45467) (SPY.MAKE.TREE 45469 . 47494) (
+SPY.UPDATE.TITLE 47496 . 50072) (SPY.DELETE 50074 . 50609) (SPY.DRAWBOX 50611 . 51136) (
+SPY.BUFFER.ENTRY 51138 . 51481) (SPY.BUTTON 51483 . 52052) (SPY.END.ENTRY 52054 . 52134) (SPY.START 
+52136 . 52420) (SPY.INIT 52422 . 52657) (\SPY.INTERRUPT 52659 . 54064) (SPY.DUMP.BUFFER 54066 . 55526)
+ (SPY.START.ENTRY 55528 . 55656) (SPY.ADD.ENTRY 55658 . 56090) (SPY.ORIGINAL 56092 . 56919) (
+SPY.OVERFLOW 56921 . 57022) (SPY.MERGE.CALLEES 57024 . 60060) (SPY.PRINT 60062 . 60385)))))
 STOP
--- a/library/SPY.LCOM
+++ b/library/SPY.LCOM
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "29-Apr-2023 16:15:10" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1377   
-
-      :EDIT-BY "lmm"
+(FILECREATED "18-Jul-2023 12:07:08" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;2 1397   

      :CHANGES-TO (VARS SYSEDITCOMS)

-      :PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "29-Apr-2023 16:15:10" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;1)


 (PRETTYCOMPRINT SYSEDITCOMS)
@@ -24,7 +22,7 @@
              (MSRECORDTRANFLG T))
        (P (MOVD? 'APPLY* 'SPREADAPPLY*X)
           (RESETVARS ((CROSSCOMPILING T))
-                  (FILESLOAD (SOURCE)
+                  (FILESLOAD (SOURCE FROM LOADUPS)
                         EXPORTS.ALL])

 (RPAQQ CLISPIFYPRETTYFLG NIL)
@@ -50,7 +48,7 @@
 (MOVD? 'APPLY* 'SPREADAPPLY*X)

 (RESETVARS ((CROSSCOMPILING T))
-           (FILESLOAD (SOURCE)
+           (FILESLOAD (SOURCE FROM LOADUPS)
                  EXPORTS.ALL))
 (DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
--- a/library/UNICODE
+++ b/library/UNICODE
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "19-Jul-2022 15:36:40" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;198 65644  
+(FILECREATED "19-Jul-2023 09:26:13" {WMEDLEY}<library>UNICODE.;199 65282  

-      :CHANGES-TO (FNS MAKE-UNICODE-FORMATS \UTF16BE.BACKCCODEFN \UTF8.BACKCCODEFN)
-                  (VARS UNICODECOMS)
+      :EDIT-BY rmk

-      :PREVIOUS-DATE "13-Jul-2022 11:38:18" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;196)
+      :CHANGES-TO (VARS UNICODECOMS)
+
+      :PREVIOUS-DATE "19-Jul-2022 15:36:40" {WMEDLEY}<library>UNICODE.;198)


 (PRETTYCOMPRINT UNICODECOMS)
@@ -58,10 +57,8 @@
              (GLOBALVARS *XCCSTOUNICODE* *UNICODETOXCCS*))
        (FNS HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING XCCSSTRING)
        (FNS SHOWCHARS)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP 'EXPORTS.ALL 'FILE)
-                                                (PRINT 
-                                                 "NOTE: UNICODE requires EXPORTS.ALL for compilation"
-                                                       T)))
+        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
+                                                EXPORTS.ALL)
               
               (* ;; "These control the layout of the translation tables.  Since many of the upper panels are sparse, doing it per-panel (128) seems more space-efficient, and residual alists can be shorter")

@@ -1194,8 +1191,8 @@
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 

-(OR (GETP 'EXPORTS.ALL 'FILE)
-    (PRINT "NOTE: UNICODE requires EXPORTS.ALL for compilation" T))
+(FILESLOAD (FROM LOADUPS)
+       EXPORTS.ALL)

 (DECLARE%: EVAL@COMPILE 

@@ -1218,15 +1215,15 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4031 18122 (UTF8.OUTCHARFN 4041 . 6872) (UTF8.INCCODEFN 6874 . 12364) (UTF8.PEEKCCODEFN
- 12366 . 17140) (\UTF8.BACKCCODEFN 17142 . 18120)) (18123 21904 (UTF16BE.OUTCHARFN 18133 . 18957) (
-UTF16BE.INCCODEFN 18959 . 19858) (UTF16BE.PEEKCCODEFN 19860 . 20931) (\UTF16BE.BACKCCODEFN 20933 . 
-21902)) (21934 23995 (MAKE-UNICODE-FORMATS 21944 . 23993)) (24092 25398 (UNICODE.UNMAPPED 24102 . 
-25396)) (25399 25935 (XCCS-UTF8-AFTER-OPEN 25409 . 25933)) (26768 27117 (XTOUCODE 26778 . 26946) (
-UTOXCODE 26948 . 27115)) (27157 43279 (READ-UNICODE-MAPPING-FILENAMES 27167 . 28268) (
-READ-UNICODE-MAPPING 28270 . 31568) (WRITE-UNICODE-MAPPING 31570 . 35787) (WRITE-UNICODE-INCLUDED 
-35789 . 40511) (WRITE-UNICODE-MAPPING-HEADER 40513 . 41745) (WRITE-UNICODE-MAPPING-FILENAME 41747 . 
-43277)) (46492 54971 (MAKE-UNICODE-TRANSLATION-TABLES 46502 . 54969)) (55388 63414 (HEXSTRING 55398 . 
-56559) (UTF8HEXSTRING 56561 . 58766) (NUTF8CODEBYTES 58768 . 59553) (NUTF8STRINGBYTES 59555 . 60036) (
-XTOUSTRING 60038 . 63049) (XCCSSTRING 63051 . 63412)) (63415 64884 (SHOWCHARS 63425 . 64882)))))
+  (FILEMAP (NIL (3717 17808 (UTF8.OUTCHARFN 3727 . 6558) (UTF8.INCCODEFN 6560 . 12050) (UTF8.PEEKCCODEFN
+ 12052 . 16826) (\UTF8.BACKCCODEFN 16828 . 17806)) (17809 21590 (UTF16BE.OUTCHARFN 17819 . 18643) (
+UTF16BE.INCCODEFN 18645 . 19544) (UTF16BE.PEEKCCODEFN 19546 . 20617) (\UTF16BE.BACKCCODEFN 20619 . 
+21588)) (21620 23681 (MAKE-UNICODE-FORMATS 21630 . 23679)) (23778 25084 (UNICODE.UNMAPPED 23788 . 
+25082)) (25085 25621 (XCCS-UTF8-AFTER-OPEN 25095 . 25619)) (26454 26803 (XTOUCODE 26464 . 26632) (
+UTOXCODE 26634 . 26801)) (26843 42965 (READ-UNICODE-MAPPING-FILENAMES 26853 . 27954) (
+READ-UNICODE-MAPPING 27956 . 31254) (WRITE-UNICODE-MAPPING 31256 . 35473) (WRITE-UNICODE-INCLUDED 
+35475 . 40197) (WRITE-UNICODE-MAPPING-HEADER 40199 . 41431) (WRITE-UNICODE-MAPPING-FILENAME 41433 . 
+42963)) (46178 54657 (MAKE-UNICODE-TRANSLATION-TABLES 46188 . 54655)) (55074 63100 (HEXSTRING 55084 . 
+56245) (UTF8HEXSTRING 56247 . 58452) (NUTF8CODEBYTES 58454 . 59239) (NUTF8STRINGBYTES 59241 . 59722) (
+XTOUSTRING 59724 . 62735) (XCCSSTRING 62737 . 63098)) (63101 64570 (SHOWCHARS 63111 . 64568)))))
 STOP
--- a/library/UNICODE.LCOM
+++ b/library/UNICODE.LCOM
--- a/lispusers/BACKGROUND-YIELD
+++ b/lispusers/BACKGROUND-YIELD
@@ -1,21 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "14-Nov-2021 22:05:58" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;2 1597   
+(FILECREATED "28-Jul-2023 09:49:24" {DSK}<home>larry>il>medley>lispusers>BACKGROUND-YIELD.;2 1770   

-      changes to%:  (VARS BACKGROUND-YIELD)
+      :EDIT-BY "lmm"

-      previous date%: "20-Sep-2021 11:37:28" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;1)
+      :CHANGES-TO (FNS BACKGROUND-YIELD)
+
+      :PREVIOUS-DATE "14-Nov-2021 22:05:58" {DSK}<home>larry>il>medley>lispusers>BACKGROUND-YIELD.;1
+)


 (PRETTYCOMPRINT BACKGROUND-YIELDCOMS)

 (RPAQQ BACKGROUND-YIELDCOMS (
-                                 (* ;; 
-                               " Add a call to BACKGROUNDFNS to yield when not otherwise busy")
+                             (* ;; " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

-                                 (FNS BACKGROUND-YIELD INIT-YIELD)
-                                 (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-YIELD T)))
-                                 (VARS BACKGROUND-YIELD)))
+                             (FNS BACKGROUND-YIELD INIT-YIELD)
+                             (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-YIELD T)))
+                             (VARS BACKGROUND-YIELD)))



@@ -24,10 +26,13 @@
 (DEFINEQ

 (BACKGROUND-YIELD
-  [LAMBDA NIL                                          (* ; "Edited 20-Sep-2021 11:37 by larry")
-    (IF (FIXP BACKGROUND-YIELD)
-        THEN (SUBRCALL YIELD BACKGROUND-YIELD)
-              (SUBRCALL CAUSE-INTERRUPT])
+  [LAMBDA NIL                                                (* ; "Edited 28-Jul-2023 09:11 by lmm")
+                                                           (* ; "Edited 20-Sep-2021 11:37 by larry")
+    (LET ((\BACKGROUND T))
+         (DECLARE (SPECVARS \BACKGROUND))
+         (IF (FIXP BACKGROUND-YIELD)
+             THEN (SUBRCALL YIELD BACKGROUND-YIELD)
+                  (SUBRCALL CAUSE-INTERRUPT])

 (INIT-YIELD
  [LAMBDA (ONP)                                        (* ; "Edited 19-Sep-2021 13:32 by larry")
@@ -46,5 +51,5 @@

 (RPAQQ BACKGROUND-YIELD 833333)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (833 1482 (BACKGROUND-YIELD 843 . 1098) (INIT-YIELD 1100 . 1480)))))
+  (FILEMAP (NIL (806 1655 (BACKGROUND-YIELD 816 . 1271) (INIT-YIELD 1273 . 1653)))))
 STOP
--- a/lispusers/BACKGROUND-YIELD.LCOM
+++ b/lispusers/BACKGROUND-YIELD.LCOM
--- a/lispusers/EVALOBJ
+++ b/lispusers/EVALOBJ
@@ -1,22 +1,19 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(FILECREATED "11-May-2018 08:22:13" 
-{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;2 15206  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-      changes to%:  (VARS EVALOBJCOMS)
+(FILECREATED "18-Jul-2023 12:27:33" {DSK}<home>frank>il>medley>gmedley>lispusers>EVALOBJ.;2 15110  

-      previous date%: " 6-May-2000 09:24:45" 
-{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;1)
+      :CHANGES-TO (VARS EVALOBJCOMS)

+      :PREVIOUS-DATE "11-May-2018 08:22:13" {DSK}<home>frank>il>medley>gmedley>lispusers>EVALOBJ.;1
+)

-(* ; "
-Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights reserved.
-")

 (PRETTYCOMPRINT EVALOBJCOMS)

 (RPAQQ EVALOBJCOMS
       [(FILES IMOBJAPPLICATION)
-        (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES EXPORTS.ALL))
+        (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES (FROM LOADUPS)
+                                               EXPORTS.ALL))
        (FNS EVALOBJ.BUTTONEVENTINFN EVALOBJ.DISPLAYFN EVALOBJ.IMAGEBOXFN EVALOBJ.COPYFN 
             EVALOBJ.CREATE EVALOBJ.GETFN EVALOBJ.PUTFN)
        (FNS PARAMS TEXTSTREAMPARAM)
@@ -51,7 +48,8 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights res
 (FILESLOAD IMOBJAPPLICATION)
 (DECLARE%: DOEVAL@LOAD DONTCOPY 

-(FILESLOAD EXPORTS.ALL)
+(FILESLOAD (FROM LOADUPS)
+       EXPORTS.ALL)
 )
 (DEFINEQ

@@ -264,7 +262,7 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights res
                                                                                            SELECTION
                                                                                            )
                                                                                     (
-                                                                                   EVALOBJ.SELTOOBJ
+                                                                                     EVALOBJ.SELTOOBJ
                                                                                      TEXTSTREAM 
                                                                                      SELECTION
                                                                                      'CREATE/LOAD]
@@ -291,11 +289,10 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights res

 (ADDTOVAR LAMA )
 )
-(PUTPROPS EVALOBJ COPYRIGHT ("Xerox Corporation" 1997 1998 1999 2000 2018))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3038 9319 (EVALOBJ.BUTTONEVENTINFN 3048 . 4241) (EVALOBJ.DISPLAYFN 4243 . 5418) (
-EVALOBJ.IMAGEBOXFN 5420 . 6963) (EVALOBJ.COPYFN 6965 . 7188) (EVALOBJ.CREATE 7190 . 8606) (
-EVALOBJ.GETFN 8608 . 9009) (EVALOBJ.PUTFN 9011 . 9317)) (9320 11885 (PARAMS 9330 . 11261) (
-TEXTSTREAMPARAM 11263 . 11883)) (11886 13031 (EVALOBJ.DISMANTLEFN 11896 . 12179) (EVALOBJ.SELTOOBJ 
-12181 . 13029)))))
+  (FILEMAP (NIL (3016 9297 (EVALOBJ.BUTTONEVENTINFN 3026 . 4219) (EVALOBJ.DISPLAYFN 4221 . 5396) (
+EVALOBJ.IMAGEBOXFN 5398 . 6941) (EVALOBJ.COPYFN 6943 . 7166) (EVALOBJ.CREATE 7168 . 8584) (
+EVALOBJ.GETFN 8586 . 8987) (EVALOBJ.PUTFN 8989 . 9295)) (9298 11863 (PARAMS 9308 . 11239) (
+TEXTSTREAMPARAM 11241 . 11861)) (11864 13009 (EVALOBJ.DISMANTLEFN 11874 . 12157) (EVALOBJ.SELTOOBJ 
+12159 . 13007)))))
 STOP
--- a/lispusers/EVALOBJ.LCOM
+++ b/lispusers/EVALOBJ.LCOM
--- a/lispusers/FILEWATCH
+++ b/lispusers/FILEWATCH
--- a/lispusers/FILEWATCH.LCOM
+++ b/lispusers/FILEWATCH.LCOM
--- a/lispusers/PSEUDOHOSTS
+++ b/lispusers/PSEUDOHOSTS
@@ -1,16 +1,20 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "31-Oct-2022 23:32:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;151 27537  
+(FILECREATED "19-Jul-2023 09:17:48" {WMEDLEY}<lispusers>PSEUDOHOSTS.;153 27674  

-      :CHANGES-TO (FNS OPENFILE.PH)
+      :EDIT-BY rmk

-      :PREVIOUS-DATE "14-Jul-2022 17:54:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;150)
+      :CHANGES-TO (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
+                  (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
+                  (VARS PSEUDOHOSTSCOMS)
+
+      :PREVIOUS-DATE "18-Jul-2023 13:12:35" {WMEDLEY}<lispusers>PSEUDOHOSTS.;152)


 (PRETTYCOMPRINT PSEUDOHOSTSCOMS)

 (RPAQQ PSEUDOHOSTSCOMS
-       [
+       (
        (* ;; "Public entries")

        (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME)
@@ -26,8 +30,8 @@
           (MOVD 'GETHOSTINFO.PH 'GETHOSTINFO))
        (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
               (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
-               (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-                      (LOAD 'EXPORTS.ALL))])
+               (FILES (FROM LOADUPS)
+                      EXPORTS.ALL))))



@@ -53,8 +57,8 @@
                 (CHARCODE }))
        (SETQ HOST (SUBSTRING HOST 1 -2)))
    (SETQ HOST (U-CASE (MKATOM HOST)))
-    [IF PREFIX
-        THEN (CL:WHEN (PSEUDOHOSTP HOST)                     (* ; 
+    [if PREFIX
+        then (CL:WHEN (PSEUDOHOSTP HOST)                     (* ; 
                                                       "Redefining: first clear out the previous one")
                 (PSEUDOHOST HOST NIL))
             [LET (TARGETHOST TARGETDEVICE PREFIXHOST)
@@ -85,8 +89,8 @@
                  (* ;; "Save the last directory marker to pack on if needed.")

                  (\DEFINEDEVICE HOST
-                         (CREATE FDEV
-                            USING TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX
+                         (create FDEV
+                            using TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX
                                  OPENFILELST _ NIL OPENFILE _ (FUNCTION OPENFILE.PH)
                                  GETFILENAME _ (FUNCTION GETFILENAME.PH)
                                  DIRECTORYNAMEP _ (FUNCTION DIRECTORYNAMEP.PH)
@@ -103,7 +107,7 @@

                  (* ;; "The ultimate target device keeps a map of prefixes and the hostnames they map to.  The longest matching prefix is chosen when a name that expands to the target device is contracted.")

-                  (CHANGE (FETCH (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE)
+                  (change (fetch (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE)
                         (SORT (CONS (LIST PREFIX HOST (CL:IF (EQ (CHARCODE /)
                                                                  (NTHCHARCODE PREFIX -1))
                                                           '/
@@ -112,12 +116,12 @@
                               (FUNCTION (LAMBDA (P1 P2)
                                           (IGREATERP (NCHARS (CAR P1))
                                                  (NCHARS (CAR P2]
-      ELSEIF (SETQ PREFIX (CADR (PSEUDOHOSTP HOST)))
-        THEN 
+      elseif (SETQ PREFIX (CADR (PSEUDOHOSTP HOST)))
+        then 
             (* ;; "\DEFINEDEVICE removes the name-mapping but doesn't remove the device.  Maybe that's on purpose for other devices, but not here.")

             (LET* ((PHHOST (\GETDEVICEFROMNAME HOST \FILEDEVICES))
-                    (TARGETDEV (FETCH (PHDEVICE TARGETDEV) OF PHHOST)))
+                    (TARGETDEV (fetch (PHDEVICE TARGETDEV) OF PHHOST)))
                   (UNINTERRUPTABLY
                       (CL:WHEN TARGETDEV                    (* ; 
                                                             "Don't want to fail uninterruptably")
@@ -132,13 +136,13 @@
  [LAMBDA (HOST)                                             (* ; "Edited 24-Feb-2022 23:51 by rmk")
                                                             (* ; "Edited 18-Jan-2022 11:29 by rmk")
    (LET ((DEV (\GETDEVICEFROMNAME HOST T T)))
-         (CL:WHEN (AND DEV (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV)))
+         (CL:WHEN (AND DEV (type? FDEV (fetch (PHDEVICE TARGETDEV) OF DEV)))
             (LIST (FETCH (FDEV DEVICENAME) OF DEV)
                   (FETCH (PHDEVICE PREFIX)
                          DEV)))])

 (PSEUDOHOSTS
-  [LAMBDA NIL                                                (* ; "Edited 17-Jan-2022 18:15 by rmk")
+  [LAMBDA NIL                                                (* ; "Edited 17-Jan-2022 18:15 by rmk")
    (FOR DEV IN \FILEDEVICES WHEN (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV))
       COLLECT (LIST (FETCH (FDEV DEVICENAME) OF DEV)
                     (FETCH (PHDEVICE PREFIX) OF DEV])
@@ -401,7 +405,7 @@
           STREAM])

 (GENERATEFILES.PH
-  [LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS)                (* ; "Edited 17-Jan-2022 20:46 by rmk")
+  [LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS)                (* ; "Edited 17-Jan-2022 20:46 by rmk")

    (* ;; "FDEV is the pseudohost. We will generate from the target directory using its GENFILESTATE, but fiddle the output so that it looks like it is coming from the pseudo host.")

@@ -428,7 +432,7 @@
    (PSEUDOHOST.TARGETVAL SETFILEINFO (STREAM ATTRIBUTE VALUE DEVICE])

 (NEXTFILEFN.PH
-  [LAMBDA (GENFILESTATE NAMEONLY)                            (* ; "Edited 17-Jan-2022 21:27 by rmk")
+  [LAMBDA (GENFILESTATE NAMEONLY)                            (* ; "Edited 17-Jan-2022 21:27 by rmk")
    (LET* ((TARGETGENOBJ (CADR GENFILESTATE))
           (TARGETGENFILESTATE (FETCH GENFILESTATE OF TARGETGENOBJ))
           (FILENAME (APPLY* (FETCH NEXTFILEFN OF TARGETGENOBJ)
@@ -439,13 +443,13 @@
          FILENAME])

 (FILEINFOFN.PH
-  [LAMBDA (GENFILESTATE ATTRIBUTE)                           (* ; "Edited 17-Jan-2022 20:52 by rmk")
+  [LAMBDA (GENFILESTATE ATTRIBUTE)                           (* ; "Edited 17-Jan-2022 20:52 by rmk")
    (APPLY* (FETCH FILEINFOFN OF (CADR GENFILESTATE))
           (FETCH GENFILESTATE OF (CADR GENFILESTATE))
           ATTRIBUTE])

 (RENAMEFILE.PH
-  [LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME)          (* ; "Edited 18-Jan-2022 09:52 by rmk")
+  [LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME)          (* ; "Edited 18-Jan-2022 09:52 by rmk")
    (LET ((OLDTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF OLD-DEVICE))
          (NEWTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF NEW-DEVICE))
          (NEWTARGETNAME NEW-NAME)
@@ -519,17 +523,17 @@
 )


-(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-    (LOAD 'EXPORTS.ALL))
+(FILESLOAD (FROM LOADUPS)
+       EXPORTS.ALL)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1268 9300 (PSEUDOHOST 1278 . 6837) (PSEUDOHOSTP 6839 . 7352) (PSEUDOHOSTS 7354 . 7711) 
-(TARGETHOST 7713 . 7987) (TRUEFILENAME 7989 . 8676) (PSEUDOFILENAME 8678 . 9298)) (9328 16867 (
-EXPAND.PH 9338 . 10591) (CONTRACT.PH 10593 . 13258) (SLASHIT 13260 . 14828) (UNSLASHIT 14830 . 16576) 
-(GETHOSTINFO.PH 16578 . 16865)) (16868 24872 (OPENFILE.PH 16878 . 17951) (GETFILENAME.PH 17953 . 18242
-) (DIRECTORYNAMEP.PH 18244 . 18868) (CLOSEFILE.PH 18870 . 19337) (REOPENFILE.PH 19339 . 19904) (
-DELETEFILE.PH 19906 . 20190) (OPENP.PH 20192 . 20487) (UNREGISTERFILE.PH 20489 . 21031) (
-REGISTERFILE.PH 21033 . 21567) (GENERATEFILES.PH 21569 . 22609) (GETFILEINFO.PH 22611 . 22913) (
-SETFILEINFO.PH 22915 . 23114) (NEXTFILEFN.PH 23116 . 23658) (FILEINFOFN.PH 23660 . 23931) (
-RENAMEFILE.PH 23933 . 24870)))))
+  (FILEMAP (NIL (1397 9433 (PSEUDOHOST 1407 . 6966) (PSEUDOHOSTP 6968 . 7481) (PSEUDOHOSTS 7483 . 7844) 
+(TARGETHOST 7846 . 8120) (TRUEFILENAME 8122 . 8809) (PSEUDOFILENAME 8811 . 9431)) (9461 17000 (
+EXPAND.PH 9471 . 10724) (CONTRACT.PH 10726 . 13391) (SLASHIT 13393 . 14961) (UNSLASHIT 14963 . 16709) 
+(GETHOSTINFO.PH 16711 . 16998)) (17001 25021 (OPENFILE.PH 17011 . 18084) (GETFILENAME.PH 18086 . 18375
+) (DIRECTORYNAMEP.PH 18377 . 19001) (CLOSEFILE.PH 19003 . 19470) (REOPENFILE.PH 19472 . 20037) (
+DELETEFILE.PH 20039 . 20323) (OPENP.PH 20325 . 20620) (UNREGISTERFILE.PH 20622 . 21164) (
+REGISTERFILE.PH 21166 . 21700) (GENERATEFILES.PH 21702 . 22746) (GETFILEINFO.PH 22748 . 23050) (
+SETFILEINFO.PH 23052 . 23251) (NEXTFILEFN.PH 23253 . 23799) (FILEINFOFN.PH 23801 . 24076) (
+RENAMEFILE.PH 24078 . 25019)))))
 STOP
--- a/lispusers/PSEUDOHOSTS.LCOM
+++ b/lispusers/PSEUDOHOSTS.LCOM
--- a/lispusers/tmax/TMAX
+++ b/lispusers/tmax/TMAX
@@ -1,17 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "17-Mar-2022 23:12:47" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;3 25981  
+(FILECREATED "18-Jul-2023 12:34:39" {DSK}<home>frank>il>medley>gmedley>lispusers>tmax>TMAX.;2 25955  

      :CHANGES-TO (VARS TMAXCOMS)

-      :PREVIOUS-DATE "24-Oct-2021 23:45:20" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;2)
+      :PREVIOUS-DATE "17-Mar-2022 23:12:47" {DSK}<home>frank>il>medley>gmedley>lispusers>tmax>TMAX.;1
+)


-(* ; "
-Copyright (c) 1987, 1997, 1999 by Stanford University.
-")
-
 (PRETTYCOMPRINT TMAXCOMS)

 (RPAQQ TMAXCOMS
@@ -25,7 +21,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
        [DECLARE%: DONTCOPY (P (DOFILESLOAD (LIST* '(SOURCE)
                                                   TMAX.FILE.LIST)))
               (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETPROP 'EXPORTS.ALL 'FILE)
-                                                       (LOAD 'EXPORTS.ALL]
+                                                       (FILESLOAD (FROM LOADUPS)
+                                                              EXPORTS.ALL]
        (P (DOFILESLOAD TMAX.FILE.LIST))
        

@@ -103,7 +100,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
 (DECLARE%: EVAL@COMPILE DONTCOPY 

 (OR (GETPROP 'EXPORTS.ALL 'FILE)
-    (LOAD 'EXPORTS.ALL))
+    (FILESLOAD (FROM LOADUPS)
+           EXPORTS.ALL))
 )
 )

@@ -560,16 +558,15 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
                                                             "Displays number-group menu"]

 (TSP.FUNCTION.HOOKS)
-(PUTPROPS TMAX COPYRIGHT ("Stanford University" 1987 1997 1999))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (8231 15446 (TSP.DISPLAY.FMMENU 8241 . 8806) (TSP.SETUP.FILENAMES 8808 . 10059) (
-TSP.SETUP.FMMENU 10061 . 10521) (TSP.FMMENU 10523 . 11709) (TSP.FM.APPLY 11711 . 12030) (UPDATE.ALL 
-12032 . 12704) (DOWNDATE.ALL 12706 . 13076) (TSP.FUNCTION.HOOKS 13078 . 14508) (TSP.GETFN 14510 . 
-15070) (TSP.PUTFN 15072 . 15444)) (15492 17741 (AutoUpdate.TOGGLE 15502 . 15738) (UPDATE? 15740 . 
-15885) (NGROUP.Menu.TOGGLE 15887 . 16269) (NGROUPMENU.ENABLED? 16271 . 16507) (
-NGROUP.Text-Before.TOGGLE 16509 . 16759) (TEXTBEFORE.ENABLED? 16761 . 16924) (NGROUP.Text-After.TOGGLE
- 16926 . 17174) (TEXTAFTER.ENABLED? 17176 . 17337) (Manual.Index.TOGGLE 17339 . 17578) (
-MANUALINDEX.ENABLED? 17580 . 17739)) (17775 23248 (GET.TSP.FONT 17785 . 18949) (GET.TSP.FONT.FAMILY 
-18951 . 19799) (GET.TSP.FONT.SIZE 19801 . 20289) (GET.TSP.FONT.FACE 20291 . 20990) (ABBREVIATE.FONT 
-20992 . 22492) (TMAX.SHADEOBJ 22494 . 23246)) (23288 24504 (TSP.LIST.OF.OBJECTS 23298 . 24502)))))
+  (FILEMAP (NIL (8270 15485 (TSP.DISPLAY.FMMENU 8280 . 8845) (TSP.SETUP.FILENAMES 8847 . 10098) (
+TSP.SETUP.FMMENU 10100 . 10560) (TSP.FMMENU 10562 . 11748) (TSP.FM.APPLY 11750 . 12069) (UPDATE.ALL 
+12071 . 12743) (DOWNDATE.ALL 12745 . 13115) (TSP.FUNCTION.HOOKS 13117 . 14547) (TSP.GETFN 14549 . 
+15109) (TSP.PUTFN 15111 . 15483)) (15531 17780 (AutoUpdate.TOGGLE 15541 . 15777) (UPDATE? 15779 . 
+15924) (NGROUP.Menu.TOGGLE 15926 . 16308) (NGROUPMENU.ENABLED? 16310 . 16546) (
+NGROUP.Text-Before.TOGGLE 16548 . 16798) (TEXTBEFORE.ENABLED? 16800 . 16963) (NGROUP.Text-After.TOGGLE
+ 16965 . 17213) (TEXTAFTER.ENABLED? 17215 . 17376) (Manual.Index.TOGGLE 17378 . 17617) (
+MANUALINDEX.ENABLED? 17619 . 17778)) (17814 23287 (GET.TSP.FONT 17824 . 18988) (GET.TSP.FONT.FAMILY 
+18990 . 19838) (GET.TSP.FONT.SIZE 19840 . 20328) (GET.TSP.FONT.FACE 20330 . 21029) (ABBREVIATE.FONT 
+21031 . 22531) (TMAX.SHADEOBJ 22533 . 23285)) (23327 24543 (TSP.LIST.OF.OBJECTS 23337 . 24541)))))
 STOP
--- a/lispusers/tmax/TMAX.LCOM
+++ b/lispusers/tmax/TMAX.LCOM
--- a/rooms/rooms-manual.pdf
+++ b/rooms/rooms-manual.pdf
--- a/scripts/README.md
+++ b/scripts/README.md
@@ -7,18 +7,38 @@ Loading from an old 'starter' sysout
 * loadup-mid-from-init.sh  -- phase 2 (creates init.sysout)
 * loadup-lisp-from-mid.sh  -- phase 3 (creates lisp.sysout)
 * loadup-full-from-lisp.sh -- phase 4 (creates full.sysout)
-* loadup-aux.sh            -- phase 5,(creates exports.all whereis.hash
+* loadup-apps-from-full.sh -- phase 5 (creates app.sysout, with notecards, rooms and clos; optional)
+* loadup-aux.sh            -- phase 6 (creates exports.all whereis.hash)
+* loadup-db-from-full.sh   -- phase 7 (makes unreleased 'fuller.sysout' and fuller.database)

-* loadup-full.sh  -- Phase 1-4 only
+All of these scripts read from and write to a directory specified by the env variable LOADUP_WORKDIR.
+LOADUP_WORKDIR defaults to /tmp/loadups-$$ (where $$ is the PID of the script). Note that all /tmp files
+are cleared after 10 days or upon system reboot. You can replicate the old work directory scheme 
+where files were never deleted automatically by simply setting LOADUP_WORKDIR to "./tmp"

-* loadup-db.sh    -- phase 6 (makes unreleased 'fuller.sysout' and fuller.database
-* copy-all.sh     -- copy loadups from tmp/ to loadups/ and library/
+* loadup-all.sh [-apps] -- Phases 1-4 & 6 (plus Phase 5 with -apps flag)
+* loadup-db.sh    -- phase 7 only based on full.syout in loadup directory

+These two scripts call the 7 scripts above as specified and then (if successful) copy (ln) the results
+to the loadups directory using a versioned copy.  The files are hardlinked into loadups from the workdir
+if workdir and loadups are on the same filesystem, otherwise they are copied. 
+
+* loadup-full.sh  -- Phases 1-4 only, no copy into loadups at the end.
+
+## releases
+
+* release-medley.sh --  will create Medley release tars and upload as a release on github.  
+                      Arguments: -d to make a draft release. \<Tag> to use as a tag for this 
+                      release on github (defaults to meldey-\<date>-\<seconds since epoch>).
+                      Both are optional.
+
+* release-make-tars.sh -- will create the Medley release tars and store them in the releases directory.

 ## possibly handy scripts

 * lsee <lispfile>  -- show lisp file with font-control-characters rendered as linux color changes
-* cpv file1 file2  -- copies file1 to file2 (or directory name) adding versions
+* cpv file1 file2  -- hardlinks (or copies) file1 to file2 (or directory name) adding versions
+                      choice of hardlink or copy depends on whether the files are on the same filesystem.
 * restore-versions.sh -- pulls out old versions from git history and links in with medley versioning conventions

 ## Not useful anymore 
--- a/scripts/copy-all.sh
+++ b/scripts/copy-all.sh
@@ -1,22 +1,31 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -x run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

-# was
-# cp -p tmp/full.sysout tmp/lisp.sysout tmp/*.dribble tmp/whereis.hash loadups/
-# cp -p tmp/exports.all tmp/RDSYS tmp/RDSYS.LCOM library/
-# just copy the files that are released
+. scripts/loadup-setup.sh

-./scripts/cpv tmp/full.sysout loadups
-./scripts/cpv tmp/lisp.sysout loadups
-./scripts/cpv tmp/whereis.hash loadups
-./scripts/cpv tmp/exports.all library
+echo ">>>>> START ${script_name}"
+
+./scripts/cpv "${LOADUP_WORKDIR}"/full.sysout "${LOADUP_OUTDIR}"  | sed -e "s#${MEDLEYDIR}/##g"
+./scripts/cpv "${LOADUP_WORKDIR}"/lisp.sysout "${LOADUP_OUTDIR}"  | sed -e "s#${MEDLEYDIR}/##g"
 if [ "${1}" = "-apps" ]; then
-    ./scripts/cpv tmp/apps.sysout loadups
+    ./scripts/cpv "${LOADUP_WORKDIR}"/apps.sysout "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
 fi

+./scripts/cpv "${LOADUP_WORKDIR}"/whereis.hash "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
+./scripts/cpv "${LOADUP_WORKDIR}"/exports.all "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
+
+./scripts/cpv "${LOADUP_WORKDIR}"/init.dribble "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
+./scripts/cpv "${LOADUP_WORKDIR}"/lisp.dribble "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
+./scripts/cpv "${LOADUP_WORKDIR}"/full.dribble "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
+./scripts/cpv "${LOADUP_WORKDIR}"/whereis.dribble "${LOADUP_OUTDIR}" | sed -e "s#${MEDLEYDIR}/##g"
+
+./scripts/cpv "${LOADUP_WORKDIR}"/RDSYS library | sed -e "s#${MEDLEYDIR}/##g"
+./scripts/cpv "${LOADUP_WORKDIR}"/RDSYS.LCOM library | sed -e "s#${MEDLEYDIR}/##g"
+
+echo "<<<<< END ${script_name}"
+echo ""
+exit 0
--- a/scripts/copy-db.sh
+++ b/scripts/copy-db.sh
@@ -0,0 +1,17 @@
+#!/bin/sh
+
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+. scripts/loadup-setup.sh
+
+echo ">>>>> START ${script_name}"
+
+./scripts/cpv "${LOADUP_WORKDIR}"/fuller.database "${LOADUP_OUTDIR}"
+./scripts/cpv "${LOADUP_WORKDIR}"/fuller.dribble "${LOADUP_OUTDIR}"
+
+echo "<<<<< END ${script_name}"
+echo ""
+exit 0
--- a/scripts/cpv
+++ b/scripts/cpv
@@ -2,14 +2,19 @@

 # cpv file dest
 # could extend with -r or copying multiple files
-# could change from cp to ln
+
+ln_or_cp () {
+    f=$(df $(dirname $1) | tail -1 | awk '{ print $1 }')
+    d=$(df $(dirname $2) | tail -1 | awk '{ print $1 }')
+    if [ "$f" != "$d" ]; then cmd="cp -p"; else cmd="ln"; fi
+    echo $cmd
+}

 file="$1"
 dest="$2"

-
 if [ ! -f "$file" ]; then
-    echo no such file "$file"
+    echo "Error: no such file "$file". Exiting."
    exit 1
 fi

@@ -18,9 +23,16 @@ if [ -d "$dest" ]; then
    dest=$dest/`basename $file`
 fi

+# if (the new) $dest is a directory, then just bail
+if [ -d "$dest" ]; then
+    echo "Error: destination file ($dest) is a directory. Exiting."
+    exit 1
+fi
+
 # if no such file $dest then just copy
 if [ ! -f "$dest" ]; then
-    ln $file $dest		#WAS cp -p $file $dest 
+    $(ln_or_cp $file $dest) $file $dest
+    echo "Added $(basename $dest) to $(dirname $dest)"
    exit 0
 fi

@@ -41,7 +53,7 @@ if [ $max -eq 0 ]; then		# no current versions
    new=2
 else
    if cmp -q $dest $dest.~$max~ >/dev/null 2>&1
-    then			# they're different 
+    then			# they're different
 	max=`expr $max + 1`	# make newer version
 	mv $dest $dest.~$max~
 	new=`expr $max + 1`
@@ -51,11 +63,10 @@ else
    fi
 fi

-# make new version
+# make new version and link it

-ln $file $dest.~$new~		# cp -p $file $dest.~$new~
-ln $dest.~$new~ $dest		# and link it
-
-
-
-	
+$(ln_or_cp $file $dest.~new~) $file $dest.~$new~
+echo "Added $(basename $dest.~$new~) to $(dirname $dest.~$new~)"
+rm -f $dest
+ln $dest.~$new~ $dest
+echo "Linked $(basename $dest) to $(basename $dest.~$new~) in $(dirname $dest)"
--- a/scripts/loadup-all.sh
+++ b/scripts/loadup-all.sh
@@ -1,12 +1,12 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -x run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

+. scripts/loadup-setup.sh
+
 if [ "$1" = "-apps" ]; then
    apps="./scripts/loadup-apps-from-full.sh"
 else
@@ -21,7 +21,13 @@ fi
    ./scripts/loadup-aux.sh && \
    ./scripts/copy-all.sh $1

-echo "**** DONE ****"
+if [ $? -eq 0 ];
+then
+  echo "+++++ loadup-all.sh: SUCCESS +++++"
+else
+  echo "----- loadup-all.sh: FAILURE -----"
+fi
+



--- a/scripts/loadup-apps-from-full.sh
+++ b/scripts/loadup-apps-from-full.sh
@@ -1,32 +1,14 @@
-#!/bin/bash
+#!/bin/sh

-#set -x
+if [ ! -x run-medley ] ; then
+    echo must run from MEDLEYDIR ;
+    exit 1 ;
+fi

-# function to discover what directory this script is being executed from
-where_am_i() {
+. scripts/loadup-setup.sh

-    # call this with ${BASH_SOURCE[0]:-$0} as its (only) parameter
+loadup_start

-    local SCRIPT_PATH="$1";
-
-    pushd . > '/dev/null';
-
-    while [ -h "$SCRIPT_PATH" ];
-    do
-        cd "$( dirname -- "$SCRIPT_PATH"; )";
-        SCRIPT_PATH="$( readlink -f -- "$SCRIPT_PATH"; )";
-    done
-
-    cd "$( dirname -- "$SCRIPT_PATH"; )" > '/dev/null';
-    SCRIPT_PATH="$( pwd; )";
-
-    popd  > '/dev/null';
-
-    echo "${SCRIPT_PATH}"
-}
-
-SCRIPTDIR=$(where_am_i "${BASH_SOURCE[0]:-$0}")
-export MEDLEYDIR=$(cd ${SCRIPTDIR} && cd .. && pwd)
 export ROOMSDIR=${MEDLEYDIR}/rooms
 export CLOSDIR=${MEDLEYDIR}/clos

@@ -41,33 +23,35 @@ if [ ! -e ${NOTECARDSDIR} ]; then
    fi
 fi

-if [ -z "${SYSOUTDIR}" ]; then
-    export SYSOUTDIR=${MEDLEYDIR}/tmp
-fi
+cat >"${cmfile}" <<"EOF"
+"

-if [ -z "${FULLSYSOUTPATH}" ]; then
-    FULLSYSOUTPATH=${SYSOUTDIR}/full.sysout
-    if [ ! -e ${FULLSYSOUTPATH} ]; then
-       FULLSYSOUTPATH=${MEDLEYDIR}/loadups/full.sysout
-    fi
-fi
+(PROGN
+   (IL:MEDLEY-INIT-VARS 'IL:GREET)
+   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE NOTECARDSDIR))(QUOTE |/system/NOTECARDS.LCOM|)) 'IL:SYSLOAD)
+   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE ROOMSDIR))(QUOTE /ROOMS)) 'IL:SYSLOAD)
+   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE CLOSDIR))(QUOTE /DEFSYS.DFASL)) 'IL:SYSLOAD)
+   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE |lispusers/BUTTONS.LCOM|)) 'IL:SYSLOAD)
+   (IL:LOAD
+       (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-APPS.LCOM))
+       'IL:SYSLOAD
+   )
+   (IL:HARDRESET)
+)
+SHH
+(PROGN
+   (IL:ENDLOADUP)
+   (CLOS::LOAD-CLOS)
+   (IL:|Apps.LOADUP|)
+   (IL:MAKESYS
+       (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.sysout)))
+       :APPS)
+)
+(IL:LOGOUT T)

-cd ${MEDLEYDIR}
+"
+EOF

-scr="-sc 1024x768 -g 1042x790"
-
-mkdir -p ${SYSOUTDIR}
-touch ${SYSOUTDIR}/loadup.timestamp
-
-./run-medley $scr -loadup "${MEDLEYDIR}/sources/LOADUP-APPS.CM" "${FULLSYSOUTPATH}"
-
-if [ ${SYSOUTDIR}/apps.sysout -nt ${SYSOUTDIR}/loadup.timestamp ]; then
-    echo ---- made ----
-    ls -l ${SYSOUTDIR}/apps.*
-    echo --------------
-else
-    echo XXXXX FAILURE XXXXX
-    ls -l ${SYSOUTDIR}/apps.*
-    exit 1
-fi
+./run-medley ${scr} -loadup "${cmfile}" "${LOADUP_WORKDIR}/full.sysout"

+loadup_finish "apps.sysout" "apps.*"
--- a/scripts/loadup-aux.sh
+++ b/scripts/loadup-aux.sh
@@ -1,28 +1,31 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -f run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

-mkdir -p tmp
-touch tmp/loadup.timestamp
+. scripts/loadup-setup.sh

-scr="-sc 1024x768 -g 1042x790"
+loadup_start

-echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
-./run-medley $scr -loadup "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
+cat >"${cmfile}" <<"EOF"
+"
+(PROG
+  ((WORKDIR (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_WORKDIR)) (QUOTE /))))
+  (IL:MEDLEY-INIT-VARS)
+  (IL:LOAD(QUOTE MEDLEY-UTILS))
+  (IL:MAKE-EXPORTS-ALL (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE exports.all))))
+  (IL:MAKE-WHEREIS-HASH
+    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE whereis.dribble)))
+    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE whereis.hash-tmp)))
+    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE whereis.hash)))
+  )
+  (IL:LOGOUT T)
+)
+"
+EOF

-if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
-    
-    echo ---- made ----
-    ls -l tmp/whereis.hash tmp/exports.all
-    echo --------------
+./run-medley ${scr} -loadup "${cmfile}" "${LOADUP_WORKDIR}"/full.sysout

-else
-    echo XXXXX FAILURE XXXXX
-    ls -l tmp/whereis.hash tmp/exports.all
-    exit 1
-fi
+loadup_finish "whereis.hash" "whereis.hash" "exports.all"
--- a/scripts/loadup-db-from-full.sh
+++ b/scripts/loadup-db-from-full.sh
@@ -0,0 +1,41 @@
+#!/bin/sh
+
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+. scripts/loadup-setup.sh
+
+loadup_start
+
+SYSOUT="${MEDLEYDIR}/loadups/full.sysout"
+if [ ! -f "${SYSOUT}" ];
+then
+  echo "Error: cannot find ${SYSOUT}.  Exiting."
+  exit 1
+fi
+
+cat >"${cmfile}" <<"EOF"
+"
+
+(PROG
+  ((WORKDIR (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_WORKDIR)) (QUOTE /))))
+  (IL:MEDLEY-INIT-VARS)
+  (IL:FILESLOAD MEDLEY-UTILS)
+  (SETQ IL:DIRECTORIES (CONS (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) IL:DIRECTORIES))
+  (IL:MAKE-FULLER-DB
+    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE fuller.dribble)))
+    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE fuller.database)))
+    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE fuller.sysout)))
+  )
+  (IL:LOGOUT T)
+)
+
+"
+EOF
+
+./run-medley ${scr} -loadup "${cmfile}" "${SYSOUT}"
+
+loadup_finish "fuller.database" "fuller*"
+
--- a/scripts/loadup-db.sh
+++ b/scripts/loadup-db.sh
@@ -1,26 +1,22 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
-if [ ! -f run-medley ] ; then
+if [ ! -x run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

-touch tmp/db.timestamp
+. scripts/loadup-setup.sh

-scr="-sc 1024x768 -g 1042x790"
-
-echo '" (IL:MEDLEY-INIT-VARS)(IL:FILESLOAD MEDLEY-UTILS)(IL:MAKE-FULLER-DB)(IL:LOGOUT T)"' > tmp/db.cm
-./run-medley $scr -loadup "$MEDLEYDIR"/tmp/db.cm -n
-if [ tmp/fuller.database -nt tmp/db.timestamp ]; then
-    
-    echo ---- made ----
-    ls -l tmp/fuller*
-    echo --------------
+./scripts/loadup-db-from-full.sh && ./scripts/copy-db.sh

+if [ $? -eq 0 ];
+then
+  echo "+++++ loadup-db.sh: SUCCESS +++++"
 else
-    echo XXXXX FAILURE XXXXX
-    ls -l tmp/fuller*
-    exit 1
+  echo "----- loadup-db.sh: FAILURE -----"
 fi
+
+
+
+
+
--- a/scripts/loadup-full-from-lisp.sh
+++ b/scripts/loadup-full-from-lisp.sh
@@ -1,25 +1,33 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -x run-medley ] ; then
    echo must run from MEDLEYDIR ;
    exit 1 ;
 fi
-scr="-sc 1024x768 -g 1042x790"

-touch tmp/loadup.timestamp
+. scripts/loadup-setup.sh

-./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
+loadup_start

-if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
-    
-    echo ---- made ----
-    ls -l tmp/full.*
-    echo --------------
+cat >"${cmfile}" <<"EOF"
+"
+
+(PROGN
+  (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR))(QUOTE /LOADUP-FULL.LCOM)))
+  (IL:LOADUP-FULL (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.dribble))))
+  (IL:HARDRESET)
+)
+SHH
+(PROGN
+  (IL:ENDLOADUP)
+  (IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.sysout))) :FULL))
+  (IL:LOGOUT T)
+)
+
+"
+EOF
+
+./run-medley ${scr} -loadup "${cmfile}" "${LOADUP_WORKDIR}/lisp.sysout"
+
+loadup_finish "full.sysout" "full.*"

-else
-    echo XXXXX FAILURE XXXXX
-    ls -l tmp/full.*
-    exit 1
-fi
--- a/scripts/loadup-full.sh
+++ b/scripts/loadup-full.sh
@@ -1,15 +1,14 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -x run-medley ] ; then
    echo must run from MEDLEYDIR ;
    exit 1 ;
 fi

+. ./scripts/loadup-setup.sh

-    ./scripts/loadup-init.sh && \
-    ./scripts/loadup-mid-from-init.sh && \
-    ./scripts/loadup-lisp-from-mid.sh && \
-    ./scripts/loadup-full-from-lisp.sh
+./scripts/loadup-init.sh && \
+./scripts/loadup-mid-from-init.sh && \
+./scripts/loadup-lisp-from-mid.sh && \
+./scripts/loadup-full-from-lisp.sh

--- a/scripts/loadup-init.sh
+++ b/scripts/loadup-init.sh
@@ -1,26 +1,45 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -f run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

-scr="-sc 1024x768 -g 1042x790"
+. scripts/loadup-setup.sh

-mkdir -p tmp
-touch tmp/loadup.timestamp
+loadup_start

-./run-medley $scr -loadup "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
+cat >"${cmfile}" <<"EOF"
+(* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")

-if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
-    
-    echo ---- made ----
-    ls -l tmp/init.* tmp/RDSYS* tmp/I-NEW*
-    echo --------------
+(SETQ MEDLEYDIR NIL)
+(LOAD (CONCAT (UNIX-GETENV "MEDLEYDIR") "/sources/MEDLEYDIR.LCOM"))
+(MEDLEY-INIT-VARS)
+(CNDIR (UNIX-GETENV "LOADUP_WORKDIR"))
+(DRIBBLE "init.dribble")

-else
-    echo XXXXX FAILURE XXXXX
-    exit 1
-fi
+(UNADVISE)
+(ADVISE 'PAGEFULLFN '(RETURN))
+(ADVISE '(ERROR IN \DO-DEFINE-FILE-INFO) '(RETURN))
+(MOVD? 'NILL 'SETTEMPLATE)
+(DEFINEQ (RRE (LAMBDA (X Y) Y)))
+(MOVD? 'RRE 'READ-READER-ENVIRONMENT)
+
+(LOAD (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_SOURCEDIR") "/" "MAKEINIT.LCOM"))
+(PROG
+  ((WORKDIR (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_WORKDIR") "/"))
+   (LOADUP-SOURCE-DIR (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_SOURCEDIR") "/"))
+  )
+  (SETQ DIRECTORIES (CONS LOADUP-SOURCE-DIR DIRECTORIES))
+  (RESETLST (RESETSAVE OK.TO.MODIFY.FNS T)
+    (MAKEINITGREET (CONCAT WORKDIR "init.sysout") (CONCAT WORKDIR "init.dlinit"))
+  )
+)
+(DRIBBLE)
+(LOGOUT T)
+STOP
+EOF
+
+./run-medley $scr -loadup "${cmfile}" "${LOADUP_SOURCEDIR}"/starter.sysout
+
+loadup_finish "init.dlinit" "init.*" "RDSYS*" "I-NEW*"
--- a/scripts/loadup-lisp-from-mid.sh
+++ b/scripts/loadup-lisp-from-mid.sh
@@ -1,25 +1,34 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -f run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

-touch tmp/loadup.timestamp
+. scripts/loadup-setup.sh

-scr="-sc 1024x768 -g 1042x790"
+loadup_start

+cat >"${cmfile}" <<"EOF"
+"

-./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
+(PROGN
+  (LOAD (CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE MEDLEYDIR)) (QUOTE /sources/MEDLEYDIR.LCOM)))
+  (MEDLEY-INIT-VARS)
+  (LOAD (CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-LISP.LCOM)))
+  (LOADUP-LISP (CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE LOADUP_WORKDIR)) (QUOTE /lisp.dribble)))
+  (HARDRESET)
+)
+SHH
+(PROGN
+  (IL:ENDLOADUP)
+  (IL:MAKESYS (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR)) (IL:L-CASE (QUOTE /lisp.sysout))) :LISP)
+  (IL:LOGOUT T)
+)

-if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
-    
-    echo ---- made ----
-    ls -l tmp/lisp.*
-    echo --------------
-else
-    echo XXXXX FAILURE XXXXX
-    exit 1
-fi
+"
+EOF
+
+./run-medley ${scr} -loadup "${cmfile}" "${LOADUP_WORKDIR}/init-mid.sysout"
+
+loadup_finish "lisp.sysout" "lisp.*"
--- a/scripts/loadup-mid-from-init.sh
+++ b/scripts/loadup-mid-from-init.sh
@@ -1,26 +1,26 @@
 #!/bin/sh

-export MEDLEYDIR=`pwd`
-
 if [ ! -x run-medley ] ; then
    echo run from MEDLEYDIR
    exit 1
 fi

-mkdir -p "$MEDLEYDIR/tmp"
-touch tmp/loadup.timestamp
+. scripts/loadup-setup.sh

-scr="-sc 1024x768 -g 1042x790"
+loadup_start

-./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
+cat >"${cmfile}" <<"EOF"
+"
+(MOVD? (QUOTE NILL) (QUOTE PROMPTPRINT))
+(MOVD? (QUOTE NILL) (QUOTE CURSORP))
+(MOVD? (QUOTE NILL) (QUOTE CHANGEBACKGROUNDBORDER))
+(LOGOUT)
+"
+EOF

+./run-medley -prog "ldeinit" \
+             -NF \
+             -loadup "${cmfile}" ${scr} -vmem "${LOADUP_WORKDIR}/init-mid.sysout" \
+            "${LOADUP_WORKDIR}/init.dlinit"

-echo 
-if [ tmp/loadup.timestamp -nt tmp/init-mid.sysout ]; then
-    echo XXXXX FAILURE XXXXX
-    exit 1
-else
-    echo ---- made ----
-    ls -l tmp/init-mid.sysout
-    echo --------------
-fi
+loadup_finish "init-mid.sysout" "init-mid.sysout"
--- a/scripts/loadup-setup.sh
+++ b/scripts/loadup-setup.sh
@@ -0,0 +1,106 @@
+
+export MEDLEYDIR=`pwd`
+
+if [ -z "${LOADUP_WORKDIR}" ];
+then
+  export LOADUP_WORKDIR=/tmp/loadups-$$
+fi
+
+if [ -z "${LOADUP_SOURCEDIR}" ];
+then
+  export LOADUP_SOURCEDIR="${MEDLEYDIR}"/internal/loadups
+fi
+
+if [ -z "${LOADUP_OUTDIR}" ];
+then
+  export LOADUP_OUTDIR="${MEDLEYDIR}"/loadups
+fi
+
+if [ ! -d "${LOADUP_OUTDIR}" ];
+then
+  if [ ! -e "${LOADUP_OUTDIR}" ];
+  then
+    mkdir -p "${LOADUP_OUTDIR}"
+  else
+    "Error: ${LOADUP_OUTDIR} exists but is not a directory. Exiting."
+  fi
+fi
+
+if [ ! -d "${LOADUP_WORKDIR}" ];
+then
+  if [ ! -e "${LOADUP_WORKDIR}" ];
+  then
+    mkdir -p "${LOADUP_WORKDIR}"
+  else
+    "Error: ${LOADUP_WORKDIR} exists but is not a directory. Exiting."
+  fi
+fi
+
+
+scr="-sc 1024x768 -g 1042x790"
+
+touch "${LOADUP_WORKDIR}"/loadup.timestamp
+
+script_name=$(basename "$0" ".sh")
+cmfile="${LOADUP_WORKDIR}/${script_name}.cm"
+
+
+######################################################################
+
+loadup_start () {
+  echo ">>>>> START ${script_name}"
+  if [ -d "${MEDLEYDIR}/tmp" ];
+    then
+      TMP_PRE_EXISTS="true"
+      if [ -d "${MEDLEYDIR}/tmp/logindir" ];
+      then
+        LOGINDIR_PRE_EXISTS="true"
+      else
+        LOGINDIR_PRE_EXISTS="false"
+      fi
+    else
+      LOGINDIR_PRE_EXISTS="false"
+      TMP_PRE_EXISTS="false"
+  fi
+}
+
+loadup_finish () {
+  local exit_code
+  rm -f "${cmfile}"
+  if [ "${LOADUP_WORKDIR}"/loadup.timestamp -nt "${LOADUP_WORKDIR}/${1}"  ];
+  then
+    echo "----- FAILURE -----"
+    exit_code=1
+  else
+    echo "+++++ SUCCESS +++++"
+    exit_code=0
+  fi
+  echo "..... files created ....."
+    shift;
+    for f in ${*};
+    do
+      for ff in $(ls -1 "${LOADUP_WORKDIR}"/$f);
+      do
+        if [ "${ff}" -nt "${LOADUP_WORKDIR}"/loadup.timestamp ];
+        then
+          ls -l ${ff} 2>/dev/null | grep -v "^.*~[0-9]\+~$"
+        fi
+      done
+    done
+  if [ "${TMP_PRE_EXISTS}" = "false" ];
+  then
+    rm -rf "${MEDLEYDIR}/tmp"
+  else
+    if [ "${LOGINDIR_PRE_EXISTS}" = "false" ];
+    then
+      rm -rf "${MEDLEYDIR}/tmp/logindir"
+    fi
+  fi
+  echo "<<<<< END ${script_name}"
+  echo ""
+  exit ${exit_code}
+}
+
+######################################################################
+
+
--- a/scripts/medley/medley_args.sh
+++ b/scripts/medley/medley_args.sh
@@ -158,7 +158,7 @@ do
        if [[ $# -eq 1 || "$2" = "--" ]];
        then
          sysout_flag=true
-          sysout_arg="$2"
+          sysout_arg="$1"
        else
          err_msg=(
            "ERROR: sysout argument must be last argument"
--- a/scripts/release-make-tars.sh
+++ b/scripts/release-make-tars.sh
@@ -0,0 +1,90 @@
+#!/bin/sh
+
+######### Functions ########
+check_exists () {
+  f="$1"
+  if [ -e "${f}" ]
+  then
+    echo "${f}"
+  else
+    echo "Warning: $f does not exist. $(basename ${f}) will not be included in release tars" 1>&2
+    echo " "
+  fi
+}
+######## End Functions #######
+
+
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+export MEDLEYDIR=`pwd`
+
+if [ -z "$1" ] ; then
+    tag=medley-$(date +%y%m%d)-$(date +%s)
+else
+    tag="$1"
+fi
+short_tag="${tag#medley-}"
+
+dirname=$(basename "${MEDLEYDIR}")
+if [ "${dirname}" = "medley" ]
+then
+  name_xform=" "
+else
+  uname | grep -q -i Linux
+  if [ $? -eq 0 ]
+  then
+    name_xform="--xform s/^${dirname}/medley/"
+  else
+    name_xform="-s /^${dirname}/medley/"
+  fi
+fi
+
+cd ..
+release_dir="${dirname}"/releases/"${short_tag}"
+mkdir -p "${release_dir}"
+
+echo making releases/${short_tag}/$tag-loadups.tgz
+
+
+tar -c -z -f "${release_dir}"/$tag-loadups.tgz                  \
+    ${name_xform}                                               \
+    "${dirname}"/loadups/lisp.sysout                            \
+    "${dirname}"/loadups/full.sysout                            \
+    $(check_exists "${dirname}/loadups/apps.sysout")            \
+    "${dirname}"/loadups/*.dribble                              \
+    "${dirname}"/loadups/whereis.hash                           \
+    "${dirname}"/loadups/exports.all                            \
+    $(check_exists "${dirname}/loadups/fuller.database")        ;
+
+echo making releases/${short_tag}/$tag-runtime.tgz
+
+tar -c -z -f "${release_dir}"/$tag-runtime.tgz                  \
+    --exclude "*~"                                              \
+    --exclude "*#*"                                             \
+    --exclude exports.all                                       \
+    --exclude "venuesysouts"                                   \
+    ${name_xform}                                               \
+    "${dirname}"/clos                                           \
+    "${dirname}"/docs/dinfo                                     \
+    "${dirname}"/docs/man-page/medley.1.gz                      \
+    "${dirname}"/doctools                                       \
+    "${dirname}"/greetfiles                                     \
+    "${dirname}"/rooms                                          \
+    "${dirname}"/medley                                         \
+    "${dirname}"/run-medley                                     \
+    "${dirname}"/scripts                                        \
+    "${dirname}"/fonts/displayfonts                             \
+    "${dirname}"/fonts/altofonts                                \
+    "${dirname}"/fonts/adobe                                    \
+    "${dirname}"/fonts/postscriptfonts                          \
+    "${dirname}"/fonts/ipfonts                                  \
+    "${dirname}"/library                                        \
+    "${dirname}"/lispusers                                      \
+    "${dirname}"/sources                                        \
+    "${dirname}"/internal                                       \
+    "${dirname}"/unicode                                        ;
+
+
+echo "Done with release tars"
--- a/scripts/release-medley.sh
+++ b/scripts/release-medley.sh
@@ -6,47 +6,39 @@ if [ ! -x run-medley ] ; then
    exit 1
 fi

-tag=$1
-
-if [ -z "$tag" ] ; then
-    tag=medley-`date +%y%m%d`
+if [ -z "$(which gh)" ]; then
+    echo "Error: this script requires gh (github cli) to be installed. Exiting."
+    exit 1
 fi

-cd ..
+gh auth status 2>&1 | grep -i -q "Logged in to github.com"
+if [ $? -ne 0 ]; then
+    echo 'Error: this script requires you to be logged into github.  Use "gh auth login" to do so. Exiting.'
+    exit 1
+fi

-echo making $tag-loadups.tgz
+if [ "$1" = "-d" ]; then
+    draft="-d"
+    shift
+else
+    draft=""
+fi

-tar cfz medley/tmp/$tag-loadups.tgz                       \
-    medley/loadups/lisp.sysout                            \
-    medley/loadups/full.sysout                            \
-    medley/loadups/whereis.hash                           \
-    medley/library/exports.all
-	
-echo making $tag-runtime.tgz
+if [ -z "$1" ] ; then
+    tag=medley-$(date +%y%m%d)-$(date +%s)
+else
+    tag="$1"
+fi
+short_tag="${tag#medley-}"

-tar cfz medley/tmp/$tag-runtime.tgz                       \
-    --exclude "*~" --exclude "*#*"                        \
-    --exclude exports.all                                 \
-    medley/docs/dinfo                                     \
-    medley/doctools                                       \
-    medley/greetfiles                                     \
-    medley/rooms                                          \
-    medley/run-medley                                     \
-    medley/scripts                                        \
-    medley/fonts/displayfonts  medley/fonts/altofonts     \
-    medley/fonts/adobe                                    \
-    medley/fonts/postscriptfonts                          \
-    medley/library                                        \
-    medley/lispusers                                      \
-    medley/sources                                        \
-    medley/internal
-
-cd medley
+scripts/release-make-tars.sh "${tag}"

 echo making release
-sed s/'$tag'/$tag/g < release-notes.md > tmp/release-notes.md
-gh release create $tag -F tmp/release-notes.md -p -t $tag
+sed s/'$tag'/$tag/g < release-notes.md > releases/${short_tag}/release-notes.md
+gh release create $tag -F releases/${short_tag}/release-notes.md -p -t $tag ${draft}

 echo uploading
-gh release upload $tag tmp/$tag-loadups.tgz tmp/$tag-runtime.tgz --clobber
+gh release upload $tag releases/${short_tag}/$tag-loadups.tgz releases/${short_tag}/$tag-runtime.tgz --clobber
+
+echo "Done with release ${tag}"

--- a/sources/FILEPKG
+++ b/sources/FILEPKG
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "31-Oct-2022 16:05:09" {WMEDLEY}<sources>FILEPKG.;47 274788 
+(FILECREATED "18-Jul-2023 23:40:13" {WMEDLEY}<sources>FILEPKG.;50 274539 

-      :CHANGES-TO (FNS EDITCALLERS)
+      :EDIT-BY rmk

-      :PREVIOUS-DATE "22-Sep-2022 08:46:29" {WMEDLEY}<sources>FILEPKG.;45)
+      :CHANGES-TO (FNS GATHEREXPORTS)
+
+      :PREVIOUS-DATE "13-Jul-2023 14:56:21" {WMEDLEY}<sources>FILEPKG.;48)


 (* ; "
@@ -4300,8 +4302,9 @@ compiling " T)
 (DEFINEQ

 (FINDCALLERS
-  [LAMBDA (ATOMS FILES)                                      (* lmm "30-SEP-78 01:36")
-    (PROG ((X (EDITCALLERS ATOMS FILES T)))
+  [LAMBDA (ATOMS FILES DEPTH)                                (* ; "Edited 13-Jul-2023 14:55 by rmk")
+                                                             (* lmm "30-SEP-78 01:36")
+    (PROG ((X (EDITCALLERS ATOMS FILES T DEPTH)))
          (RETURN (NCONC (DREVERSE (CDR X))
                         (AND (CAR X)
                              (LIST (CONS (COND
@@ -4311,7 +4314,9 @@ compiling " T)
                                          (CAR X])

 (EDITCALLERS
-  [LAMBDA (ATOMS FILES COMS)
+  [LAMBDA (ATOMS FILES COMS DEPTH)
+
+    (* ;; "Edited 13-Jul-2023 14:56 by rmk")

    (* ;; "Edited 31-Oct-2022 16:04 by rmk")

@@ -4342,7 +4347,7 @@ compiling " T)
                          ((LISTP FILES)
                           FILES)
                          ((STRPOS "*" FILES)                (* ; "Depth 2 for TMAX>TMAX")
-                           (FILDIR FILES 2))
+                           (FILDIR FILES (OR DEPTH 2)))
                          (T (LIST FILES))) unless (DIRECTORYNAMEP FILE)
        do
        (RESETLST
@@ -4704,29 +4709,19 @@ compiling " T)
        (for FILE in FILES do (IMPORTFILE (CADR FILE])

 (GATHEREXPORTS
-  [LAMBDA (FROMFILES TOFILE FLG)                            (* ; "Edited 23-Aug-2021 16:40 by rmk:")
-                                                             (* ; 
-                                          "Copies all exported definitions from FROMFILES to TOFILE.")
+  [LAMBDA (FROMFILES TOFILE FLG)                             (* ; "Edited 18-Jul-2023 23:39 by rmk")
+                                                            (* ; "Edited 22-May-2021 00:01 by rmk:")
+
+    (* ;; "Use PRETTYDEF so that EXPORTS.ALL is registered with the normal file properties, reader environment, etc.")
+
+    (CL:UNLESS FLG (SETQ FLG T))
+    (SETQ TOFILE (MKATOM TOFILE))                            (* ; 
+                                                             "PRETTYDEF doesn't like strings--why?")
    (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 TOFILE ENV)
-                         else *OLD-INTERLISP-READ-ENVIRONMENT*))
-             (WITH-READER-ENVIRONMENT ENV
-                 (PRINT-READER-ENVIRONMENT ENV)
-                 (printout NIL "(LISPXPRIN1 %"EXPORTS GATHERED FROM " (DIRECTORYNAME T)
-                        " ON "
-                        (DATE)
-                        "%"  T)" T "(LISPXTERPRI T)" T)
-                 (for F inside FROMFILES do (MAPC (IMPORTFILE F (OR FLG T))
-                                                  (FUNCTION PRINT))
-                                            (TERPRI))
-                 (PRINT 'STOP)
-                 (TERPRI)
-                 (FULLNAME TOFILE))))])
+        [PRETTYDEF NIL TOFILE `((E (MAPC (MKLIST FROMFILES)
+                                         (FUNCTION (LAMBDA (F)
+                                                     (MAPC (IMPORTFILE F FLG)
+                                                           (FUNCTION PRINT])])

 (\DUMPEXPORTS
  [NLAMBDA COMS                                              (* bvm%: "24-Oct-86 19:42")
@@ -4866,46 +4861,46 @@ compiling " T)
 (PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 
 1991 1992 1993 1995 2018 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (18953 20626 (SEARCHPRETTYTYPELST 18963 . 19932) (PRETTYDEFMACROS 19934 . 20370) (
-FILEPKGCOMPROPS 20372 . 20624)) (21439 55731 (CLEANUP 21449 . 22839) (COMPILEFILES 22841 . 23117) (
-COMPILEFILES0 23119 . 23932) (CONTINUEDIT 23934 . 25311) (MAKEFILE 25313 . 37039) (FILECHANGES 37041
- . 39805) (FILEPKG.MERGECHANGES 39807 . 40442) (FILEPKG.CHANGEDFNS 40444 . 40756) (MAKEFILE1 40758 . 
-44970) (COMPILE-FILE? 44972 . 46559) (MAKEFILES 46561 . 48089) (ADDFILE 48091 . 50634) (ADDFILE0 50636
- . 54760) (LISTFILES 54762 . 55729)) (56403 89989 (FILEPKGCHANGES 56413 . 57592) (GETFILEPKGTYPE 57594
- . 60544) (MARKASCHANGED 60546 . 62177) (FILECOMS 62179 . 62563) (WHEREIS 62565 . 64094) (
-SMASHFILECOMS 64096 . 64324) (FILEFNSLST 64326 . 64492) (FILECOMSLST 64494 . 64980) (UPDATEFILES 64982
- . 69480) (INFILECOMS? 69482 . 71325) (INFILECOMTAIL 71327 . 72445) (INFILECOMS 72447 . 72608) (
-INFILECOM 72610 . 82628) (INFILECOMSVALS 82630 . 82937) (INFILECOMSVAL 82939 . 83947) (INFILECOMSPROP 
-83949 . 84742) (IFCPROPS 84744 . 85824) (IFCEXPRTYPE 85826 . 86442) (IFCPROPSCAN 86444 . 87405) (
-IFCDECLARE 87407 . 88666) (INFILEPAIRS 88668 . 88967) (INFILECOMSMACRO 88969 . 89987)) (90024 120710 (
-FILES? 90034 . 92145) (FILES?1 92147 . 92849) (FILES?PRINTLST 92851 . 93633) (ADDTOFILES? 93635 . 
-104178) (ADDTOFILE 104180 . 105096) (WHATIS 105098 . 107074) (ADDTOCOMS 107076 . 108614) (ADDTOCOM 
-108616 . 115103) (ADDTOCOM1 115105 . 116276) (ADDNEWCOM 116278 . 117328) (MAKENEWCOM 117330 . 119177) 
-(DEFAULTMAKENEWCOM 119179 . 120708)) (120780 123597 (MERGEINSERT 120790 . 123133) (MERGEINSERT1 123135
- . 123595)) (123751 125112 (ADDTOFILEKEYLST 123761 . 125110)) (125229 136030 (DELFROMFILES 125239 . 
-126069) (DELFROMCOMS 126071 . 127750) (DELFROMCOM 127752 . 133517) (DELFROMCOM1 133519 . 134318) (
-REMOVEITEM 134320 . 135196) (MOVETOFILE 135198 . 136028)) (136244 138615 (SAVEPUT 136254 . 138613)) (
-138740 146983 (UNMARKASCHANGED 138750 . 140234) (PREEDITFN 140236 . 142717) (POSTEDITPROPS 142719 . 
-145013) (POSTEDITALISTS 145015 . 146981)) (147128 166598 (ALISTS.GETDEF 147138 . 147517) (
-ALISTS.WHENCHANGED 147519 . 148165) (CLEARCLISPARRAY 148167 . 149345) (EXPRESSIONS.WHENCHANGED 149347
- . 149725) (MAKEALISTCOMS 149727 . 150742) (MAKEFILESCOMS 150744 . 152074) (MAKELISPXMACROSCOMS 152076
- . 154094) (MAKEPROPSCOMS 154096 . 154722) (MAKEUSERMACROSCOMS 154724 . 156541) (PROPS.WHENCHANGED 
-156543 . 157164) (FILEGETDEF.LISPXMACROS 157166 . 158465) (FILEGETDEF.ALISTS 158467 . 159058) (
-FILEGETDEF.RECORDS 159060 . 159987) (FILEGETDEF.PROPS 159989 . 160784) (FILEGETDEF.MACROS 160786 . 
-161668) (FILEGETDEF.VARS 161670 . 162273) (FILEGETDEF.FNS 162275 . 163515) (FILEPKGCOMS.PUTDEF 163517
- . 165459) (FILES.PUTDEF 165461 . 166329) (VARS.PUTDEF 166331 . 166474) (FILES.WHENCHANGED 166476 . 
-166596)) (168620 175851 (RENAME 168630 . 170075) (CHANGECALLERS 170077 . 175849)) (175852 223761 (
-SHOWDEF 175862 . 177059) (COPYDEF 177061 . 179809) (GETDEF 179811 . 182354) (GETDEFCOM 182356 . 183322
-) (GETDEFCOM0 183324 . 184517) (GETDEFCURRENT 184519 . 190831) (GETDEFERR 190833 . 192103) (
-GETDEFFROMFILE 192105 . 196334) (GETDEFSAVED 196336 . 197424) (PUTDEF 197426 . 198133) (EDITDEF 198135
- . 199118) (DEFAULT.EDITDEF 199120 . 201958) (EDITDEF.FILES 201960 . 202165) (LOADDEF 202167 . 202343)
- (DWIMDEF 202345 . 203199) (DELDEF 203201 . 206095) (DELFROMLIST 206097 . 206601) (HASDEF 206603 . 
-212840) (GETFILEDEF 212842 . 213354) (SAVEDEF 213356 . 215044) (UNSAVEDEF 215046 . 215942) (
-COMPAREDEFS 215944 . 219750) (COMPARE 219752 . 220456) (TYPESOF 220458 . 223759)) (223911 232159 (
-FILEPKGCOM 223921 . 228697) (FILEPKGTYPE 228699 . 232157)) (244192 261485 (FINDCALLERS 244202 . 244717
-) (EDITCALLERS 244719 . 255369) (EDITFROMFILE 255371 . 260800) (FINDATS 260802 . 261074) (LOOKIN 
-261076 . 261483)) (261486 263157 (SEPRCASE 261496 . 263155)) (263674 269130 (IMPORTFILE 263684 . 
-264654) (IMPORTEVAL 264656 . 265542) (IMPORTFILESCAN 265544 . 265957) (CHECKIMPORTS 265959 . 267215) (
-GATHEREXPORTS 267217 . 268538) (\DUMPEXPORTS 268540 . 269128)) (269468 271538 (CLEARFILEPKG 269478 . 
-271536)))))
+  (FILEMAP (NIL (18975 20648 (SEARCHPRETTYTYPELST 18985 . 19954) (PRETTYDEFMACROS 19956 . 20392) (
+FILEPKGCOMPROPS 20394 . 20646)) (21461 55753 (CLEANUP 21471 . 22861) (COMPILEFILES 22863 . 23139) (
+COMPILEFILES0 23141 . 23954) (CONTINUEDIT 23956 . 25333) (MAKEFILE 25335 . 37061) (FILECHANGES 37063
+ . 39827) (FILEPKG.MERGECHANGES 39829 . 40464) (FILEPKG.CHANGEDFNS 40466 . 40778) (MAKEFILE1 40780 . 
+44992) (COMPILE-FILE? 44994 . 46581) (MAKEFILES 46583 . 48111) (ADDFILE 48113 . 50656) (ADDFILE0 50658
+ . 54782) (LISTFILES 54784 . 55751)) (56425 90011 (FILEPKGCHANGES 56435 . 57614) (GETFILEPKGTYPE 57616
+ . 60566) (MARKASCHANGED 60568 . 62199) (FILECOMS 62201 . 62585) (WHEREIS 62587 . 64116) (
+SMASHFILECOMS 64118 . 64346) (FILEFNSLST 64348 . 64514) (FILECOMSLST 64516 . 65002) (UPDATEFILES 65004
+ . 69502) (INFILECOMS? 69504 . 71347) (INFILECOMTAIL 71349 . 72467) (INFILECOMS 72469 . 72630) (
+INFILECOM 72632 . 82650) (INFILECOMSVALS 82652 . 82959) (INFILECOMSVAL 82961 . 83969) (INFILECOMSPROP 
+83971 . 84764) (IFCPROPS 84766 . 85846) (IFCEXPRTYPE 85848 . 86464) (IFCPROPSCAN 86466 . 87427) (
+IFCDECLARE 87429 . 88688) (INFILEPAIRS 88690 . 88989) (INFILECOMSMACRO 88991 . 90009)) (90046 120732 (
+FILES? 90056 . 92167) (FILES?1 92169 . 92871) (FILES?PRINTLST 92873 . 93655) (ADDTOFILES? 93657 . 
+104200) (ADDTOFILE 104202 . 105118) (WHATIS 105120 . 107096) (ADDTOCOMS 107098 . 108636) (ADDTOCOM 
+108638 . 115125) (ADDTOCOM1 115127 . 116298) (ADDNEWCOM 116300 . 117350) (MAKENEWCOM 117352 . 119199) 
+(DEFAULTMAKENEWCOM 119201 . 120730)) (120802 123619 (MERGEINSERT 120812 . 123155) (MERGEINSERT1 123157
+ . 123617)) (123773 125134 (ADDTOFILEKEYLST 123783 . 125132)) (125251 136052 (DELFROMFILES 125261 . 
+126091) (DELFROMCOMS 126093 . 127772) (DELFROMCOM 127774 . 133539) (DELFROMCOM1 133541 . 134340) (
+REMOVEITEM 134342 . 135218) (MOVETOFILE 135220 . 136050)) (136266 138637 (SAVEPUT 136276 . 138635)) (
+138762 147005 (UNMARKASCHANGED 138772 . 140256) (PREEDITFN 140258 . 142739) (POSTEDITPROPS 142741 . 
+145035) (POSTEDITALISTS 145037 . 147003)) (147150 166620 (ALISTS.GETDEF 147160 . 147539) (
+ALISTS.WHENCHANGED 147541 . 148187) (CLEARCLISPARRAY 148189 . 149367) (EXPRESSIONS.WHENCHANGED 149369
+ . 149747) (MAKEALISTCOMS 149749 . 150764) (MAKEFILESCOMS 150766 . 152096) (MAKELISPXMACROSCOMS 152098
+ . 154116) (MAKEPROPSCOMS 154118 . 154744) (MAKEUSERMACROSCOMS 154746 . 156563) (PROPS.WHENCHANGED 
+156565 . 157186) (FILEGETDEF.LISPXMACROS 157188 . 158487) (FILEGETDEF.ALISTS 158489 . 159080) (
+FILEGETDEF.RECORDS 159082 . 160009) (FILEGETDEF.PROPS 160011 . 160806) (FILEGETDEF.MACROS 160808 . 
+161690) (FILEGETDEF.VARS 161692 . 162295) (FILEGETDEF.FNS 162297 . 163537) (FILEPKGCOMS.PUTDEF 163539
+ . 165481) (FILES.PUTDEF 165483 . 166351) (VARS.PUTDEF 166353 . 166496) (FILES.WHENCHANGED 166498 . 
+166618)) (168642 175873 (RENAME 168652 . 170097) (CHANGECALLERS 170099 . 175871)) (175874 223783 (
+SHOWDEF 175884 . 177081) (COPYDEF 177083 . 179831) (GETDEF 179833 . 182376) (GETDEFCOM 182378 . 183344
+) (GETDEFCOM0 183346 . 184539) (GETDEFCURRENT 184541 . 190853) (GETDEFERR 190855 . 192125) (
+GETDEFFROMFILE 192127 . 196356) (GETDEFSAVED 196358 . 197446) (PUTDEF 197448 . 198155) (EDITDEF 198157
+ . 199140) (DEFAULT.EDITDEF 199142 . 201980) (EDITDEF.FILES 201982 . 202187) (LOADDEF 202189 . 202365)
+ (DWIMDEF 202367 . 203221) (DELDEF 203223 . 206117) (DELFROMLIST 206119 . 206623) (HASDEF 206625 . 
+212862) (GETFILEDEF 212864 . 213376) (SAVEDEF 213378 . 215066) (UNSAVEDEF 215068 . 215964) (
+COMPAREDEFS 215966 . 219772) (COMPARE 219774 . 220478) (TYPESOF 220480 . 223781)) (223933 232181 (
+FILEPKGCOM 223943 . 228719) (FILEPKGTYPE 228721 . 232179)) (244214 261689 (FINDCALLERS 244224 . 244854
+) (EDITCALLERS 244856 . 255573) (EDITFROMFILE 255575 . 261004) (FINDATS 261006 . 261278) (LOOKIN 
+261280 . 261687)) (261690 263361 (SEPRCASE 261700 . 263359)) (263878 268881 (IMPORTFILE 263888 . 
+264858) (IMPORTEVAL 264860 . 265746) (IMPORTFILESCAN 265748 . 266161) (CHECKIMPORTS 266163 . 267419) (
+GATHEREXPORTS 267421 . 268289) (\DUMPEXPORTS 268291 . 268879)) (269219 271289 (CLEARFILEPKG 269229 . 
+271287)))))
 STOP
--- a/sources/FILEPKG.LCOM
+++ b/sources/FILEPKG.LCOM
--- a/sources/INTERPRESS
+++ b/sources/INTERPRESS
--- a/sources/INTERPRESS.LCOM
+++ b/sources/INTERPRESS.LCOM
--- a/sources/LLREAD
+++ b/sources/LLREAD
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "17-Jun-2023 13:12:06" {WMEDLEY}<sources>LLREAD.;104 90176  
+(FILECREATED "30-Jul-2023 17:42:27" {WMEDLEY}<sources>LLREAD.;105 90277  

      :EDIT-BY rmk

-      :CHANGES-TO (VARS LLREADCOMS CHARACTERNAMES)
+      :CHANGES-TO (FNS \SUBREAD)

-      :PREVIOUS-DATE "19-Jul-2022 23:36:54" {WMEDLEY}<sources>LLREAD.;102)
+      :PREVIOUS-DATE "17-Jun-2023 13:12:06" {WMEDLEY}<sources>LLREAD.;104)


 (* ; "
@@ -629,6 +629,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.

 (\SUBREAD
  [LAMBDA (STRM SA READTYPE PNSTR CASEBASE EOF-SUPPRESS EOF-VALUE CHAR PRESERVE-WHITESPACE)
+                                                             (* ; "Edited 30-Jul-2023 17:42 by rmk")
                                                             (* ; "Edited 19-Jul-2022 23:36 by rmk")
                                                            (* ; "Edited  6-Aug-2021 21:40 by rmk:")

@@ -674,7 +675,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
              then                                           (* ; 
                              "caller specified eof-error-p of NIL.  Happens only on top-level calls")
                   (RETURN EOF-VALUE))                       (* ; "By Skipping Separator Characters,Happens CHARSET-Mode Exchanging. (Solution of AR#114 in FX, edited by tt [Jan-22-'90])")
-          (repeatwhile (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\INCCODE STRM]
+          (repeatwhile (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\INCCODE.EOLC STRM]
                           SEPRCHAR.RC))
          (COND
             ((EQ CH CHAR)                                   (* ; 
@@ -782,7 +783,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
          (if (AND EOF-POSSIBILITY (SETQ AT-EOF (\EOFP STRM)))
              then                                           (* ; "EOF terminates atoms at top level")
                   (GO FINISHATOM)
-            elseif (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\INCCODE STRM]
+            elseif (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\INCCODE.EOLC STRM]
                       OTHER.RC)
              then                                           (* ; 
        "normal case tested first--another vanilla constituent char, so keep accumulating atom chars")
@@ -1663,17 +1664,17 @@ 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 (3460 11904 (LASTC 3470 . 3776) (PEEKC 3778 . 4166) (PEEKCCODE 4168 . 4579) (RATOM 4581
- . 5662) (READ 5664 . 6224) (READC 6226 . 6867) (READCCODE 6869 . 7628) (READP 7630 . 8182) (
-SETREADMACROFLG 8184 . 8483) (SKIPSEPRCODES 8485 . 9565) (SKIPSEPRS 9567 . 9953) (SKREAD 9955 . 11902)
-) (11950 20559 (CL:READ 11960 . 12509) (CL:READ-PRESERVING-WHITESPACE 12511 . 13233) (
-CL:READ-DELIMITED-LIST 13235 . 14150) (CL:PARSE-INTEGER 14152 . 20557)) (20652 33129 (RSTRING 20662 . 
-21394) (READ-EXTENDED-TOKEN 21396 . 25268) (\RSTRING2 25270 . 33127)) (33165 63779 (\TOP-LEVEL-READ 
-33175 . 35158) (\SUBREAD 35160 . 60195) (\SUBREADCONCAT 60197 . 60820) (\ORIG-READ.SYMBOL 60822 . 
-61890) (\ORIG-INVALID.SYMBOL 61892 . 62791) (\APPLYREADMACRO 62793 . 63209) (INREADMACROP 63211 . 
-63777)) (63938 64113 (READQUOTE 63948 . 64111)) (64138 76042 (READVBAR 64148 . 65479) (READHASHMACRO 
-65481 . 71291) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71293 . 71513) (DIGITBASEP 71515 . 72249) (
-READNUMBERINBASE 72251 . 74137) (ESTIMATE-DIMENSIONALITY 74139 . 74464) (SKIP.HASH.COMMENT 74466 . 
-75434) (CMLREAD.FEATURE.PARSER 75436 . 76040)) (76086 82430 (CHARACTER.READ 76096 . 77350) (
-CHARCODE.DECODE 77352 . 82428)) (82431 85601 (HEXNUM? 82441 . 84784) (OCTALNUM? 84786 . 85599)))))
+  (FILEMAP (NIL (3442 11886 (LASTC 3452 . 3758) (PEEKC 3760 . 4148) (PEEKCCODE 4150 . 4561) (RATOM 4563
+ . 5644) (READ 5646 . 6206) (READC 6208 . 6849) (READCCODE 6851 . 7610) (READP 7612 . 8164) (
+SETREADMACROFLG 8166 . 8465) (SKIPSEPRCODES 8467 . 9547) (SKIPSEPRS 9549 . 9935) (SKREAD 9937 . 11884)
+) (11932 20541 (CL:READ 11942 . 12491) (CL:READ-PRESERVING-WHITESPACE 12493 . 13215) (
+CL:READ-DELIMITED-LIST 13217 . 14132) (CL:PARSE-INTEGER 14134 . 20539)) (20634 33111 (RSTRING 20644 . 
+21376) (READ-EXTENDED-TOKEN 21378 . 25250) (\RSTRING2 25252 . 33109)) (33147 63880 (\TOP-LEVEL-READ 
+33157 . 35140) (\SUBREAD 35142 . 60296) (\SUBREADCONCAT 60298 . 60921) (\ORIG-READ.SYMBOL 60923 . 
+61991) (\ORIG-INVALID.SYMBOL 61993 . 62892) (\APPLYREADMACRO 62894 . 63310) (INREADMACROP 63312 . 
+63878)) (64039 64214 (READQUOTE 64049 . 64212)) (64239 76143 (READVBAR 64249 . 65580) (READHASHMACRO 
+65582 . 71392) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71394 . 71614) (DIGITBASEP 71616 . 72350) (
+READNUMBERINBASE 72352 . 74238) (ESTIMATE-DIMENSIONALITY 74240 . 74565) (SKIP.HASH.COMMENT 74567 . 
+75535) (CMLREAD.FEATURE.PARSER 75537 . 76141)) (76187 82531 (CHARACTER.READ 76197 . 77451) (
+CHARCODE.DECODE 77453 . 82529)) (82532 85702 (HEXNUM? 82542 . 84885) (OCTALNUM? 84887 . 85700)))))
 STOP
--- a/sources/LLREAD.LCOM
+++ b/sources/LLREAD.LCOM
--- a/sources/LOADUP-APPS.CM
+++ b/sources/LOADUP-APPS.CM
@@ -1 +0,0 @@
-"
--- a/sources/LOADUP-FULL.CM
+++ b/sources/LOADUP-FULL.CM
@@ -1 +0,0 @@
-"
--- a/sources/LOADUP-INIT.LISP
+++ b/sources/LOADUP-INIT.LISP
@@ -1,19 +0,0 @@
-(* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")
-
-(LOAD (CONCAT (UNIX-GETENV "MEDLEYDIR") "/sources/MEDLEYDIR.LCOM"))
-(CNDIR (MEDLEYDIR "tmp"))
-(DRIBBLE "init.dribble")
-
-(UNADVISE)
-(ADVISE 'PAGEFULLFN '(RETURN))
-(ADVISE '(ERROR IN \DO-DEFINE-FILE-INFO) '(RETURN))
-(MOVD? 'NILL 'SETTEMPLATE)
-(DEFINEQ (RRE (LAMBDA (X Y) Y)))
-(MOVD? 'RRE 'READ-READER-ENVIRONMENT)
-
-(LOAD (MEDLEYDIR "sources" "MAKEINIT.LCOM"))
-(MAKEINITGREET)
-(DRIBBLE)
-(LOGOUT T)
-STOP
-
--- a/sources/LOADUP-LISP.CM
+++ b/sources/LOADUP-LISP.CM
@@ -1 +0,0 @@
-"
--- a/sources/LOADUP-LISP.LCOM
+++ b/sources/LOADUP-LISP.LCOM
--- a/sources/MAKEINIT.LCOM
+++ b/sources/MAKEINIT.LCOM
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "22-Apr-2023 11:53:53" {DSK}<home>larry>il>medley>sources>MEDLEYDIR.;2 9876   
-
-      :EDIT-BY "lmm"
+(FILECREATED "17-Jul-2023 16:13:10" {DSK}<home>frank>il>medley>gmedley>sources>MEDLEYDIR.;2 9970   

      :CHANGES-TO (VARS MEDLEY-INIT-VARS)

-      :PREVIOUS-DATE "22-Nov-2022 20:50:20" {DSK}<home>larry>il>medley>sources>MEDLEYDIR.;1)
+      :PREVIOUS-DATE "22-Apr-2023 11:53:53" {DSK}<home>frank>il>medley>gmedley>sources>MEDLEYDIR.;1
+)


 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -192,12 +191,14 @@
                              (CONS LOGINHOST/DIR '("INIT"]
               RESET)
        (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR '("loadups")
-                                           "whereis.hash" NIL T))))
+                                           "whereis.hash" NIL T))
+        (LOADUPSDIRECTORIES (MEDLEYDIR '("loadups")
+                                   NIL NIL T))))
 (DECLARE%: EVAL@COMPILE DOCOPY 

 (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1474 7901 (MEDLEY-INIT-VARS 1484 . 4962) (MEDLEYDIR 4964 . 6919) (MEDLEYSUBSTDIR 6921
- . 7899)))))
+  (FILEMAP (NIL (1469 7896 (MEDLEY-INIT-VARS 1479 . 4957) (MEDLEYDIR 4959 . 6914) (MEDLEYSUBSTDIR 6916
+ . 7894)))))
 STOP
--- a/sources/MEDLEYDIR.LCOM
+++ b/sources/MEDLEYDIR.LCOM
--- a/sources/PROC
+++ b/sources/PROC
@@ -1,18 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "17-Jun-99 21:58:52" {DSK}<project>medley3.5>sources>PROC.;2 173526 

-      changes to%:  (RECORDS MONITORLOCK)
+(FILECREATED "29-Jul-2023 11:47:41" {DSK}<home>larry>il>medley>sources>PROC.;7 176222 

-      previous date%: "31-Jan-98 18:03:02" {DSK}<project>medley3.5>sources>PROC.;1)
+      :EDIT-BY "lmm"

+      :CHANGES-TO (VARS PROCCOMS)
+                  (FNS \BACKGROUND.PROCESS)
+
+      :PREVIOUS-DATE "28-Jul-2023 21:06:03" {DSK}<home>larry>il>medley>sources>PROC.;6)

-(* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, 1998, 1999 by Venue & Xerox Corporation.  All rights reserved.
-The following program was created in 1982 but has not been published
-within the meaning of the copyright law, is furnished under license,
-and may not be used, copied and/or disclosed except in accordance
-with the terms of said license.
-")

 (PRETTYCOMPRINT PROCCOMS)

@@ -22,7 +18,7 @@ with the terms of said license.
                     (CONSTANTS \PSTAT.WAITING \PSTAT.RUNNING \PSTAT.DELETED))
              (INITRECORDS PROCESS PROCESSQUEUE)
              (SYSRECORDS PROCESS PROCESSQUEUE))
-        [COMS                                                (* ; "User entries")
+        [COMS                                                (* ; "User entries")
              (FNS PROCESSWORLD ADD.PROCESS DEL.PROCESS PROCESS.RETURN FIND.PROCESS MAP.PROCESSES 
                   PROCESSP RELPROCESSP RESTART.PROCESS WAKE.PROCESS SUSPEND.PROCESS PROCESS.RESULT 
                   PROCESS-STATUS PROCESS.FINISHEDP)
@@ -37,27 +33,27 @@ with the terms of said license.
              (GLOBALVARS TTY.PROCESS.DEFAULT \TTY.PROCESS.EVENT \PROCESS.NAME.TABLE)
              (FNS PROCESSPROP PROCESS.NAME PROCESS.WINDOW)
              (PROP ARGNAMES PROCESSPROP ADD.PROCESS)
-              (COMS                                          (* ; "Temporary")
+              (COMS                                          (* ; "Temporary")
                    (P (MOVD? 'PROCESS.RETURN 'KILL.ME NIL T]
        (COMS (FNS DISMISS BLOCK WAITFORINPUT \WAITFORSYSBUFP)
-                                                             (* ; "Used to be a GLOBALRESOURCES")
+                                                             (* ; "Used to be a GLOBALRESOURCES")
              (DECLARE%: DONTCOPY (RESOURCES \DISMISSTIMER))
              (INITRESOURCES \DISMISSTIMER))
        (COMS (FNS EVAL.AS.PROCESS EVAL.IN.TTY.PROCESS)
              
-              (* ;; "The PROCESS.WAIT macro is an augmentation to BLOCK, waiting for a condition to come true, or a timeout, or a wakeup")
+              (* ;; "The PROCESS.WAIT macro is an augmentation to BLOCK, waiting for a condition to come true, or a timeout, or a wakeup")

              (MACROS PROCESS.WAIT)
              (FNS PROCESS.READ PROCESS.EVALV PROCESS.EVAL \PROCESS.EVAL1 PROCESS.APPLY 
                   \PROCESS.APPLY1)
-                                                             (* ; 
-                          "Standard values for WAKEREASON -- PSTAT.TIMEDOUT is the only public one")
+                                                             (* ; 
+                            "Standard values for WAKEREASON -- PSTAT.TIMEDOUT is the only public one")
              (VARS (PSTAT.WAKEUP "default WakeUp")
                    (PSTAT.TIMEDOUT "{time interval expired}")
                    (PSTAT.QUIT "Quit")
                    (\PSTAT.NORESULT "{no result yet}"))
              (GLOBALVARS PSTAT.WAKEUP PSTAT.TIMEDOUT PSTAT.QUIT \PSTAT.NORESULT))
-        (COMS                                                (* ; "Event stuff")
+        (COMS                                                (* ; "Event stuff")
              (DECLARE%: DONTCOPY (RECORDS EVENT))
              (INITRECORDS EVENT)
              (SYSRECORDS EVENT)
@@ -66,7 +62,7 @@ with the terms of said license.
              (MACROS AWAIT.CONDITION)
              (INITVARS (\PROCESS.AFTEREXIT.EVENT))
              (GLOBALVARS \PROCESS.AFTEREXIT.EVENT))
-        (COMS                                                (* ; "Monitor stuff")
+        (COMS                                                (* ; "Monitor stuff")
              (DECLARE%: DONTCOPY (RECORDS MONITORLOCK)
                     (MACROS .RELEASE.LOCK.))
              (INITRECORDS MONITORLOCK)
@@ -74,7 +70,11 @@ with the terms of said license.
              (FNS OBTAIN.MONITORLOCK CREATE.MONITORLOCK RELEASE.MONITORLOCK SI::MONITOR-UNWIND 
                   MONITOR.AWAIT.EVENT \MONITORLOCK.DEFPRINT)
              (MACROS WITH.MONITOR WITH.FAST.MONITOR))
-        (COMS (FNS \MAKE.PROCESS0 \MAKE.PROCESS1 \PROCESS.MOVEFRAME \RELEASE.PROCESS \UNWIND.PROCESS
+        (COMS (EXPORT (SPECVARS \BACKGROUND)
+                     (GLOBALVARS \IGNORE.BACKGROUND))
+              (INITVARS (\BACKGROUND NIL)
+                     (\IGNORE.BACKGROUND T))
+              (FNS \MAKE.PROCESS0 \MAKE.PROCESS1 \PROCESS.MOVEFRAME \RELEASE.PROCESS \UNWIND.PROCESS
                   \MAYBEBLOCK \BACKGROUND.PROCESS \MOUSE.PROCESS \TIMER.PROCESS 
                   \PROCESS.RELEASE.LOCKS \SET.PROCESS.NAME \PROCESS.DEFPRINT)
              (FNS \START.PROCESSES \PROCESS.GO.TO.SLEEP \PROC.RESUME \RUN.PROCESS \SUSPEND.PROCESS 
@@ -82,9 +82,9 @@ with the terms of said license.
              (DECLARE%: DONTCOPY (MACROS \RESCHEDULE)))
        (COMS (FNS \PROCESS.INIT \PROCESS.EVENTFN \PROCESS.BEFORE.LOGOUT \PROCESS.AFTER.EXIT 
                   \PROCESS.RESET.TIMERS \PROC.AFTER.WINDOWWORLD \TURN.ON.PROCESSES)
-                                                             (* ; "Redefinitions")
+                                                             (* ; "Redefinitions")
              (FNS \PROC.CODEFORTFRAME \PROC.REPEATEDLYEVALQT))
-        (COMS                                                (* ; "switching stacks")
+        (COMS                                                (* ; "switching stacks")
              (FNS BREAK.PROCESS \SELECTPROCESS \PROCESS.MAKEFRAME \PROCESS.MAKEFRAME0))
        (INITVARS (%#MYHANDLE#)
               (%#SCHEDULER#)
@@ -117,7 +117,7 @@ with the terms of said license.
                            PROC.DEFAULT.PRIORITY \PROC.RUN.NEXT.FLG \SYSTEMTIMERVARS)
                     (MACROS ALIVEPROCP DEADPROCP \COERCE.TO.PROCESS)
                     (LOCALVARS . T)))
-        (COMS                                                (* ; "Debugging")
+        (COMS                                                (* ; "Debugging")
              (FNS \CHECK.PQUEUE)
              (FNS PPROC PPROCWINDOW PPROCREPAINTFN PPROCRESHAPEFN PPROCEXTENT PPROC1 
                   PROCESS.STATUS.WINDOW \PSW.SELECTED \PSWOP.SELECTED PROCESS.BACKTRACE 
@@ -139,8 +139,8 @@ with the terms of said license.
               (P (DEFPRINT 'PROCESS (FUNCTION \PROCESS.DEFPRINT))
                  (DEFPRINT 'EVENT (FUNCTION \EVENT.DEFPRINT))
                  (DEFPRINT 'MONITORLOCK (FUNCTION \MONITORLOCK.DEFPRINT))
-                                                             (* ; 
-                                          "\process.init must come last, since it does a HARDRESET")
+                                                             (* ; 
+                                            "\process.init must come last, since it does a HARDRESET")
                  (\PROCESS.INIT)))
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                             (NLAML)
@@ -149,80 +149,80 @@ with the terms of said license.
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE

-(DATATYPE PROCESS ((PROCFX0 WORD)                        (* ; 
-                                                       "= \STACKHI to make this look like a STACKP")
-                       (PROCFX WORD)                         (* ; 
-                                                  "Stack pointer to this context when it is asleep")
-                       (PROCSTATUS BYTE)                     (* ; "Running or waiting")
-                       (PROCNAME POINTER)                    (* ; 
-                                                        "Name for convenience in type-in reference")
-                       (PROCPRIORITY BYTE)                   (* ; 
-                                                        "Priority level, 0-4.  Not currently used.")
-                       (PROCQUEUE POINTER)                   (* ; 
-                                                          "Queue of processes at the same priority")
-                       (NIL BYTE)
-                       (NEXTPROCHANDLE POINTER)              (* ; "Pointer to next one")
-                       (PROCTIMERSET FLAG)                   (* ; 
-                                                 "True if PROCWAKEUPTIMER has an interesting value")
-                       (PROCBEINGDELETED FLAG)               (* ; 
-                            "True if proc was deleted, but hasn't been removed from \PROCESSES yet")
-                       (PROCDELETED FLAG)
-                       (PROCSYSTEMP FLAG)
-                       (PROCNEVERSTARTED FLAG)
-                       (NIL FLAG)
-                       (NIL FLAG)
-                       (NIL FLAG)
-                       (PROCWAKEUPTIMER POINTER)             (* ; 
-                                         "a largep recording the time this proc last went to sleep")
-                       (PROCTIMERLINK POINTER)               (* ; "For linking proc in timer queue")
-                       (PROCTIMERBOX POINTER)                (* ; 
-                    "Scratch box to use for PROCWAKEUPTIMER when user does not give one explicitly")
-                       (WAKEREASON POINTER)                  (* ; 
-   "Reason process is being run.  From WAKE.PROCESS or timer or event wakeup;  T from simple BLOCK")
-                       (PROCEVENTORLOCK POINTER)             (* ; 
-                                              "EVENT or MONITOR lock that this proc is waiting for")
-                       (PROCFORM POINTER)                    (* ; "Form to EVAL to start it going")
-                       (RESTARTABLE POINTER)                 (* ; 
-            "T = autorestart on error, HARDRESET = restart only on hard reset, NIL = never restart")
-                       (PROCWINDOW POINTER)                  (* ; 
-                                                           "Window this process lives in, if any")
-                       (PROCFINISHED POINTER)                (* ; 
-                       "True if proc finished.  Value is indication of how: NORMAL, DELETED, ERROR")
-                       (PROCRESULT POINTER)                  (* ; 
-                                                        "Value it returned if it finished normally")
-                       (PROCFINISHEVENT POINTER)             (* ; 
-                                                 "Optional EVENT to be notified when proc finishes")
-                       (PROCMAILBOX POINTER)                 (* ; "Message queue")
-                       (PROCDRIBBLEOUTPUT POINTER)           (* ; 
-                                                     "Binding for *DRIBBLE-OUTPUT* in this process")
-                       (PROCINFOHOOK POINTER)                (* ; 
-                                                "Optional user fn that displays info about process")
-                       (PROCTYPEAHEAD POINTER)               (* ; 
-                                                       "Buffer of typeahead destined for this proc")
-                       (PROCREMOTEINFO POINTER)              (* ; "For Enterprise")
-                       (PROCUSERDATA POINTER)                (* ; "For PROCESSPROP")
-                       (PROCEVENTLINK POINTER)               (* ; "Used to maintain EVENT queues")
-                       (PROCAFTEREXIT POINTER)               (* ; 
-                                 "What to do with this process when coming back from a LOGOUT, etc")
-                       (PROCBEFOREEXIT POINTER)              (* ; "If DON'T, can't logout")
-                       (PROCOWNEDLOCKS POINTER)              (* ; 
-                                                           "Pointer to first lock I currently own")
-                       (PROCEVAPPLYRESULT POINTER)           (* ; 
-                                    "For PROCESS.EVAL and PROCESS.APPLY when WAITFORRESULT is true")
-                       (PROCTTYENTRYFN POINTER)              (* ; 
-                                          "Is applied to a process when it becomes the tty process")
-                       (PROCTTYEXITFN POINTER)               (* ; 
-                                     "Is applied to a process when it ceases to be the tty process")
-                       (PROCHARDRESETINFO POINTER)           (* ; 
-                                         "HARDRESET stores info about unwind-protect cleanups here")
-                       (PROCRESTARTFORM POINTER)             (* ; 
-                                                     "use this instead of PROCFORM when restarting")
-                       (PROCOLDTTYPROC POINTER)              (* ; 
-                                                          "Process that had the tty when we got it")
-                       (NIL POINTER)                         (* ; "For expansion")
-                       )
-                      PROCTIMERBOX _ (CREATECELL \FIXP)
-                      PROCFX0 _ \STACKHI)
+(DATATYPE PROCESS ((PROCFX0 WORD)                            (* ; 
+                                                         "= \STACKHI to make this look like a STACKP")
+                   (PROCFX WORD)                             (* ; 
+                                                    "Stack pointer to this context when it is asleep")
+                   (PROCSTATUS BYTE)                         (* ; "Running or waiting")
+                   (PROCNAME POINTER)                        (* ; 
+                                                          "Name for convenience in type-in reference")
+                   (PROCPRIORITY BYTE)                       (* ; 
+                                                          "Priority level, 0-4.  Not currently used.")
+                   (PROCQUEUE POINTER)                       (* ; 
+                                                            "Queue of processes at the same priority")
+                   (NIL BYTE)
+                   (NEXTPROCHANDLE POINTER)                  (* ; "Pointer to next one")
+                   (PROCTIMERSET FLAG)                       (* ; 
+                                                   "True if PROCWAKEUPTIMER has an interesting value")
+                   (PROCBEINGDELETED FLAG)                   (* ; 
+                              "True if proc was deleted, but hasn't been removed from \PROCESSES yet")
+                   (PROCDELETED FLAG)
+                   (PROCSYSTEMP FLAG)
+                   (PROCNEVERSTARTED FLAG)
+                   (NIL FLAG)
+                   (NIL FLAG)
+                   (NIL FLAG)
+                   (PROCWAKEUPTIMER POINTER)                 (* ; 
+                                           "a largep recording the time this proc last went to sleep")
+                   (PROCTIMERLINK POINTER)                   (* ; "For linking proc in timer queue")
+                   (PROCTIMERBOX POINTER)                    (* ; 
+                      "Scratch box to use for PROCWAKEUPTIMER when user does not give one explicitly")
+                   (WAKEREASON POINTER)                      (* ; 
+     "Reason process is being run.  From WAKE.PROCESS or timer or event wakeup;  T from simple BLOCK")
+                   (PROCEVENTORLOCK POINTER)                 (* ; 
+                                                "EVENT or MONITOR lock that this proc is waiting for")
+                   (PROCFORM POINTER)                        (* ; "Form to EVAL to start it going")
+                   (RESTARTABLE POINTER)                     (* ; 
+              "T = autorestart on error, HARDRESET = restart only on hard reset, NIL = never restart")
+                   (PROCWINDOW POINTER)                      (* ; 
+                                                             "Window this process lives in, if any")
+                   (PROCFINISHED POINTER)                    (* ; 
+                         "True if proc finished.  Value is indication of how: NORMAL, DELETED, ERROR")
+                   (PROCRESULT POINTER)                      (* ; 
+                                                          "Value it returned if it finished normally")
+                   (PROCFINISHEVENT POINTER)                 (* ; 
+                                                   "Optional EVENT to be notified when proc finishes")
+                   (PROCMAILBOX POINTER)                     (* ; "Message queue")
+                   (PROCDRIBBLEOUTPUT POINTER)               (* ; 
+                                                       "Binding for *DRIBBLE-OUTPUT* in this process")
+                   (PROCINFOHOOK POINTER)                    (* ; 
+                                                  "Optional user fn that displays info about process")
+                   (PROCTYPEAHEAD POINTER)                   (* ; 
+                                                         "Buffer of typeahead destined for this proc")
+                   (PROCREMOTEINFO POINTER)                  (* ; "For Enterprise")
+                   (PROCUSERDATA POINTER)                    (* ; "For PROCESSPROP")
+                   (PROCEVENTLINK POINTER)                   (* ; "Used to maintain EVENT queues")
+                   (PROCAFTEREXIT POINTER)                   (* ; 
+                                   "What to do with this process when coming back from a LOGOUT, etc")
+                   (PROCBEFOREEXIT POINTER)                  (* ; "If DON'T, can't logout")
+                   (PROCOWNEDLOCKS POINTER)                  (* ; 
+                                                             "Pointer to first lock I currently own")
+                   (PROCEVAPPLYRESULT POINTER)               (* ; 
+                                      "For PROCESS.EVAL and PROCESS.APPLY when WAITFORRESULT is true")
+                   (PROCTTYENTRYFN POINTER)                  (* ; 
+                                            "Is applied to a process when it becomes the tty process")
+                   (PROCTTYEXITFN POINTER)                   (* ; 
+                                       "Is applied to a process when it ceases to be the tty process")
+                   (PROCHARDRESETINFO POINTER)               (* ; 
+                                           "HARDRESET stores info about unwind-protect cleanups here")
+                   (PROCRESTARTFORM POINTER)                 (* ; 
+                                                       "use this instead of PROCFORM when restarting")
+                   (PROCOLDTTYPROC POINTER)                  (* ; 
+                                                            "Process that had the tty when we got it")
+                   (NIL POINTER)                             (* ; "For expansion")
+                   )
+                  PROCTIMERBOX _ (CREATECELL \FIXP)
+                  PROCFX0 _ \STACKHI)
 )

 (/DECLAREDATATYPE 'PROCESS
@@ -281,15 +281,15 @@ with the terms of said license.

 (DECLARE%: EVAL@COMPILE

-(DATATYPE PROCESSQUEUE ((PQPRIORITY BYTE)                (* ; 
-                                                        "Priority for the processes in thie queue.")
-                            (PQHIGHER POINTER)               (* ; "Next higher-prioirty queue")
-                            (PQLOWER POINTER)                (* ; "Next lower")
-                            (PQNEXT POINTER)                 (* ; 
-                                       "The process currently running or runnable at this priority")
-                            (PQLAST POINTER)                 (* ; 
-                                              "The proc previous to it.  PQNEXT might be redundant")
-                            ))
+(DATATYPE PROCESSQUEUE ((PQPRIORITY BYTE)                    (* ; 
+                                                          "Priority for the processes in thie queue.")
+                        (PQHIGHER POINTER)                   (* ; "Next higher-prioirty queue")
+                        (PQLOWER POINTER)                    (* ; "Next lower")
+                        (PQNEXT POINTER)                     (* ; 
+                                         "The process currently running or runnable at this priority")
+                        (PQLAST POINTER)                     (* ; 
+                                                "The proc previous to it.  PQNEXT might be redundant")
+                        ))
 )

 (/DECLAREDATATYPE 'PROCESSQUEUE '(BYTE POINTER POINTER POINTER POINTER)
@@ -374,55 +374,55 @@ with the terms of said license.
 (ADDTOVAR SYSTEMRECLST

 (DATATYPE PROCESS ((PROCFX0 WORD)
-                       (PROCFX WORD)
-                       (PROCSTATUS BYTE)
-                       (PROCNAME POINTER)
-                       (PROCPRIORITY BYTE)
-                       (PROCQUEUE POINTER)
-                       (NIL BYTE)
-                       (NEXTPROCHANDLE POINTER)
-                       (PROCTIMERSET FLAG)
-                       (PROCBEINGDELETED FLAG)
-                       (PROCDELETED FLAG)
-                       (PROCSYSTEMP FLAG)
-                       (PROCNEVERSTARTED FLAG)
-                       (NIL FLAG)
-                       (NIL FLAG)
-                       (NIL FLAG)
-                       (PROCWAKEUPTIMER POINTER)
-                       (PROCTIMERLINK POINTER)
-                       (PROCTIMERBOX POINTER)
-                       (WAKEREASON POINTER)
-                       (PROCEVENTORLOCK POINTER)
-                       (PROCFORM POINTER)
-                       (RESTARTABLE POINTER)
-                       (PROCWINDOW POINTER)
-                       (PROCFINISHED POINTER)
-                       (PROCRESULT POINTER)
-                       (PROCFINISHEVENT POINTER)
-                       (PROCMAILBOX POINTER)
-                       (PROCDRIBBLEOUTPUT POINTER)
-                       (PROCINFOHOOK POINTER)
-                       (PROCTYPEAHEAD POINTER)
-                       (PROCREMOTEINFO POINTER)
-                       (PROCUSERDATA POINTER)
-                       (PROCEVENTLINK POINTER)
-                       (PROCAFTEREXIT POINTER)
-                       (PROCBEFOREEXIT POINTER)
-                       (PROCOWNEDLOCKS POINTER)
-                       (PROCEVAPPLYRESULT POINTER)
-                       (PROCTTYENTRYFN POINTER)
-                       (PROCTTYEXITFN POINTER)
-                       (PROCHARDRESETINFO POINTER)
-                       (PROCRESTARTFORM POINTER)
-                       (PROCOLDTTYPROC POINTER)
-                       (NIL POINTER)))
+                   (PROCFX WORD)
+                   (PROCSTATUS BYTE)
+                   (PROCNAME POINTER)
+                   (PROCPRIORITY BYTE)
+                   (PROCQUEUE POINTER)
+                   (NIL BYTE)
+                   (NEXTPROCHANDLE POINTER)
+                   (PROCTIMERSET FLAG)
+                   (PROCBEINGDELETED FLAG)
+                   (PROCDELETED FLAG)
+                   (PROCSYSTEMP FLAG)
+                   (PROCNEVERSTARTED FLAG)
+                   (NIL FLAG)
+                   (NIL FLAG)
+                   (NIL FLAG)
+                   (PROCWAKEUPTIMER POINTER)
+                   (PROCTIMERLINK POINTER)
+                   (PROCTIMERBOX POINTER)
+                   (WAKEREASON POINTER)
+                   (PROCEVENTORLOCK POINTER)
+                   (PROCFORM POINTER)
+                   (RESTARTABLE POINTER)
+                   (PROCWINDOW POINTER)
+                   (PROCFINISHED POINTER)
+                   (PROCRESULT POINTER)
+                   (PROCFINISHEVENT POINTER)
+                   (PROCMAILBOX POINTER)
+                   (PROCDRIBBLEOUTPUT POINTER)
+                   (PROCINFOHOOK POINTER)
+                   (PROCTYPEAHEAD POINTER)
+                   (PROCREMOTEINFO POINTER)
+                   (PROCUSERDATA POINTER)
+                   (PROCEVENTLINK POINTER)
+                   (PROCAFTEREXIT POINTER)
+                   (PROCBEFOREEXIT POINTER)
+                   (PROCOWNEDLOCKS POINTER)
+                   (PROCEVAPPLYRESULT POINTER)
+                   (PROCTTYENTRYFN POINTER)
+                   (PROCTTYEXITFN POINTER)
+                   (PROCHARDRESETINFO POINTER)
+                   (PROCRESTARTFORM POINTER)
+                   (PROCOLDTTYPROC POINTER)
+                   (NIL POINTER)))

 (DATATYPE PROCESSQUEUE ((PQPRIORITY BYTE)
-                            (PQHIGHER POINTER)
-                            (PQLOWER POINTER)
-                            (PQNEXT POINTER)
-                            (PQLAST POINTER)))
+                        (PQHIGHER POINTER)
+                        (PQLOWER POINTER)
+                        (PQNEXT POINTER)
+                        (PQLAST POINTER)))
 )


@@ -1064,7 +1064,7 @@ with the terms of said license.
 (RPAQ? \TTY.PROCESS )

 (RPAQ? \PROCESS.NAME.TABLE (HASHARRAY 30 NIL (FUNCTION STRING-EQUAL-HASHBITS)
-                                      (FUNCTION STRING-EQUAL)))
+                                  (FUNCTION STRING-EQUAL)))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY

 (GLOBALVARS TTY.PROCESS.DEFAULT \TTY.PROCESS.EVENT \PROCESS.NAME.TABLE)
@@ -1302,14 +1302,12 @@ with the terms of said license.

 (DECLARE%: EVAL@COMPILE 

-(PUTPROPS PROCESS.WAIT  MACRO
-   [(WAITCOND TIMEOUT)
-    (bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT))) until (AND $$TIMEOUT (
-                                                                                        TIMEREXPIRED?
-                                                                                         $$TIMEOUT))
-       do (if (SETQ $$VAL WAITCOND)
-                  then (RETURN $$VAL)
-                else (BLOCK])
+(PUTPROPS PROCESS.WAIT MACRO [(WAITCOND TIMEOUT)
+                              (bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT)))
+                                 until (AND $$TIMEOUT (TIMEREXPIRED? $$TIMEOUT))
+                                 do (if (SETQ $$VAL WAITCOND)
+                                        then (RETURN $$VAL)
+                                      else (BLOCK])
 )
 (DEFINEQ

@@ -1452,20 +1450,19 @@ with the terms of said license.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE

-(DATATYPE EVENT ((EVENTWAKEUPPENDING FLAG)               (* ; 
-                                        "True if this event was signaled with nobody waiting on it")
-                     (NIL BITS 3)
-                     (EVENTQUEUETAIL POINTER)                (* ; 
-                                                    "Pointer to last process waiting on this event")
-                     (EVENTNAME POINTER)                     (* ; 
-                                         "Optional name of EVENT for status window, debugging, etc")
-                     )
-                    (ACCESSFNS EVENT ((EVLOCKQUEUETAIL (ffetch EVENTQUEUETAIL of DATUM)
-                                             (freplace EVENTQUEUETAIL of DATUM with
-                                                                                       NEWVALUE)))
-                                                             (* ; 
-                                                          "Used by both EVENT and MONITORLOCK data")
-                           ))
+(DATATYPE EVENT ((EVENTWAKEUPPENDING FLAG)                   (* ; 
+                                          "True if this event was signaled with nobody waiting on it")
+                 (NIL BITS 3)
+                 (EVENTQUEUETAIL POINTER)                    (* ; 
+                                                      "Pointer to last process waiting on this event")
+                 (EVENTNAME POINTER)                         (* ; 
+                                           "Optional name of EVENT for status window, debugging, etc")
+                 )
+                (ACCESSFNS EVENT ((EVLOCKQUEUETAIL (ffetch EVENTQUEUETAIL of DATUM)
+                                         (freplace EVENTQUEUETAIL of DATUM with NEWVALUE)))
+                                                             (* ; 
+                                                            "Used by both EVENT and MONITORLOCK data")
+                       ))
 )

 (/DECLAREDATATYPE 'EVENT '(FLAG (BITS 3)
@@ -1487,9 +1484,9 @@ with the terms of said license.
 (ADDTOVAR SYSTEMRECLST

 (DATATYPE EVENT ((EVENTWAKEUPPENDING FLAG)
-                     (NIL BITS 3)
-                     (EVENTQUEUETAIL POINTER)
-                     (EVENTNAME POINTER)))
+                 (NIL BITS 3)
+                 (EVENTQUEUETAIL POINTER)
+                 (EVENTNAME POINTER)))
 )
 (DEFINEQ

@@ -1593,17 +1590,17 @@ with the terms of said license.
 )
 (DECLARE%: EVAL@COMPILE 

-(PUTPROPS AWAIT.CONDITION  MACRO
-   [(CONDITION EVNT TIMEOUT TIMERP)
-    (PROG [($$TIMER TIMEOUT)
-           ($$EV (\DTEST EVNT 'EVENT]
-          (DECLARE (LOCALVARS $$TIMER $$EV))
-      LP  (RETURN (OR CONDITION (COND
-                                   ((NEQ (\PROCESS.GO.TO.SLEEP $$EV $$TIMER TIMERP)
-                                         $$EV)
-                                    NIL)
-                                   (T (AND $$TIMER (SETQ $$TIMER T))
-                                      (GO LP])
+(PUTPROPS AWAIT.CONDITION MACRO [(CONDITION EVNT TIMEOUT TIMERP)
+                                 (PROG [($$TIMER TIMEOUT)
+                                        ($$EV (\DTEST EVNT 'EVENT]
+                                       (DECLARE (LOCALVARS $$TIMER $$EV))
+                                   LP  (RETURN (OR CONDITION (COND
+                                                                ((NEQ (\PROCESS.GO.TO.SLEEP $$EV 
+                                                                             $$TIMER TIMERP)
+                                                                      $$EV)
+                                                                 NIL)
+                                                                (T (AND $$TIMER (SETQ $$TIMER T))
+                                                                   (GO LP])
 )

 (RPAQ? \PROCESS.AFTEREXIT.EVENT )
@@ -1620,17 +1617,16 @@ with the terms of said license.
 (DECLARE%: EVAL@COMPILE

 (DATATYPE MONITORLOCK ((NIL FLAG)
-                           (MLOCKPERPROCESS FLAG)            (* ; 
-           "Monitor's use by anybody in process lets everyone in that proc use it, the normal case")
-                           (NIL BITS 2)
-                           (MLOCKQUEUETAIL POINTER)          (* ; 
-                                             "Last process waiting for monitor to become available")
-                           (MLOCKOWNER POINTER)              (* ; "Process owning it")
-                           (MLOCKNAME POINTER)               (* ; 
-                                                           "optional name, for debugging, etc")
-                           (MLOCKLINK POINTER)               (* ; 
-                                                           "Link to next lock owned by my owner")
-                           ))
+                       (MLOCKPERPROCESS FLAG)                (* ; 
+             "Monitor's use by anybody in process lets everyone in that proc use it, the normal case")
+                       (NIL BITS 2)
+                       (MLOCKQUEUETAIL POINTER)              (* ; 
+                                               "Last process waiting for monitor to become available")
+                       (MLOCKOWNER POINTER)                  (* ; "Process owning it")
+                       (MLOCKNAME POINTER)                   (* ; "optional name, for debugging, etc")
+                       (MLOCKLINK POINTER)                   (* ; 
+                                                             "Link to next lock owned by my owner")
+                       ))
 )

 (/DECLAREDATATYPE 'MONITORLOCK '(FLAG FLAG (BITS 2)
@@ -1646,46 +1642,48 @@ with the terms of said license.

 (DECLARE%: EVAL@COMPILE 

-(PUTPROPS .RELEASE.LOCK.  MACRO
-   [(LOCK EVENIFNOTMINE)
-    (UNINTERRUPTABLY
-        [PROG ((OWNER (ffetch MLOCKOWNER of LOCK))
-               TAIL PREV NEXTPROC)
-              (COND
-                 ((OR (NULL OWNER)
-                      (AND (NEQ OWNER (THIS.PROCESS))
-                           (NOT EVENIFNOTMINE)))
-                  (RETURN)))
-              (freplace MLOCKOWNER of LOCK with NIL)
-                                                             (* ; 
-                                                      "Now remove LOCK from my list of owned locks")
-              [COND
-                 ((EQ (SETQ PREV (fetch PROCOWNEDLOCKS of OWNER))
-                      LOCK)
-                  (replace PROCOWNEDLOCKS of OWNER with (ffetch MLOCKLINK
-                                                                       of LOCK)))
-                 (T (do (COND
-                               ((NULL PREV)
-                                (RETURN (\MP.ERROR \MP.PROCERROR 
-                                               "Lock not found among owner's owned locks" LOCK)))
-                               [(EQ (fetch MLOCKLINK of PREV)
-                                    LOCK)
-                                (RETURN (replace MLOCKLINK of PREV
-                                           with (ffetch MLOCKLINK of LOCK]
-                               (T (SETQ PREV (fetch MLOCKLINK of PREV]
-              (freplace MLOCKLINK of LOCK with NIL)
-              (COND
-                 ((SETQ TAIL (ffetch MLOCKQUEUETAIL of LOCK))
-                  (SETQ NEXTPROC (fetch PROCEVENTLINK of TAIL))
-                  [COND
-                     ((EQ NEXTPROC TAIL)                     (* ; "Only one process in queue")
-                      (freplace MLOCKQUEUETAIL of LOCK with NIL))
-                     (T (replace PROCEVENTLINK of TAIL with (fetch PROCEVENTLINK
-                                                                           of NEXTPROC]
-                  (replace PROCEVENTLINK of NEXTPROC with (replace PROCEVENTORLOCK
-                                                                         of NEXTPROC with
-                                                                                         NIL))
-                  (\RUN.PROCESS NEXTPROC LOCK])])
+(PUTPROPS .RELEASE.LOCK. MACRO [(LOCK EVENIFNOTMINE)
+                                (UNINTERRUPTABLY
+                                    [PROG ((OWNER (ffetch MLOCKOWNER of LOCK))
+                                           TAIL PREV NEXTPROC)
+                                          (COND
+                                             ((OR (NULL OWNER)
+                                                  (AND (NEQ OWNER (THIS.PROCESS))
+                                                       (NOT EVENIFNOTMINE)))
+                                              (RETURN)))
+                                          (freplace MLOCKOWNER of LOCK with NIL)
+                                                             (* ; 
+                                                        "Now remove LOCK from my list of owned locks")
+                                          [COND
+                                             ((EQ (SETQ PREV (fetch PROCOWNEDLOCKS of OWNER))
+                                                  LOCK)
+                                              (replace PROCOWNEDLOCKS of OWNER
+                                                 with (ffetch MLOCKLINK of LOCK)))
+                                             (T (do (COND
+                                                       ((NULL PREV)
+                                                        (RETURN (\MP.ERROR \MP.PROCERROR 
+                                                           "Lock not found among owner's owned locks"
+                                                                       LOCK)))
+                                                       [(EQ (fetch MLOCKLINK of PREV)
+                                                            LOCK)
+                                                        (RETURN (replace MLOCKLINK of PREV
+                                                                   with (ffetch MLOCKLINK
+                                                                           of LOCK]
+                                                       (T (SETQ PREV (fetch MLOCKLINK of PREV]
+                                          (freplace MLOCKLINK of LOCK with NIL)
+                                          (COND
+                                             ((SETQ TAIL (ffetch MLOCKQUEUETAIL of LOCK))
+                                              (SETQ NEXTPROC (fetch PROCEVENTLINK of TAIL))
+                                              [COND
+                                                 ((EQ NEXTPROC TAIL)
+                                                             (* ; "Only one process in queue")
+                                                  (freplace MLOCKQUEUETAIL of LOCK with NIL))
+                                                 (T (replace PROCEVENTLINK of TAIL
+                                                       with (fetch PROCEVENTLINK of NEXTPROC]
+                                              (replace PROCEVENTLINK of NEXTPROC
+                                                 with (replace PROCEVENTORLOCK of NEXTPROC
+                                                         with NIL))
+                                              (\RUN.PROCESS NEXTPROC LOCK])])
 )
 )

@@ -1702,12 +1700,12 @@ with the terms of said license.
 (ADDTOVAR SYSTEMRECLST

 (DATATYPE MONITORLOCK ((NIL FLAG)
-                           (MLOCKPERPROCESS FLAG)
-                           (NIL BITS 2)
-                           (MLOCKQUEUETAIL POINTER)
-                           (MLOCKOWNER POINTER)
-                           (MLOCKNAME POINTER)
-                           (MLOCKLINK POINTER)))
+                       (MLOCKPERPROCESS FLAG)
+                       (NIL BITS 2)
+                       (MLOCKQUEUETAIL POINTER)
+                       (MLOCKOWNER POINTER)
+                       (MLOCKNAME POINTER)
+                       (MLOCKLINK POINTER)))
 )
 (DEFINEQ

@@ -1804,23 +1802,36 @@ with the terms of said license.
 )
 (DECLARE%: EVAL@COMPILE 

-(PUTPROPS WITH.MONITOR  MACRO
-   [(LOCK . FORMS)
-    (LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*)
-         (DECLARE (CL:SPECIAL SI::*LOCKED-MONITOR* SI::*RESETFORMS*))
-         (CL:UNWIND-PROTECT
-             (PROGN (OBTAIN.MONITORLOCK LOCK NIL 'WITH.MONITOR) . FORMS)
-             (SI::MONITOR-UNWIND))])
+(PUTPROPS WITH.MONITOR MACRO [(LOCK . FORMS)
+                              (LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*)
+                                   (DECLARE (CL:SPECIAL SI::*LOCKED-MONITOR* SI::*RESETFORMS*))
+                                   (CL:UNWIND-PROTECT
+                                       (PROGN (OBTAIN.MONITORLOCK LOCK NIL 'WITH.MONITOR) . FORMS)
+                                       (SI::MONITOR-UNWIND))])

-(PUTPROPS WITH.FAST.MONITOR  MACRO
-   [(LOCK . FORMS)
-    (UNINTERRUPTABLY
-        ([LAMBDA (UNLOCK)
-           (PROG1 (PROGN . FORMS)
-               (AND (NEQ UNLOCK T)
-                    (RELEASE.MONITORLOCK UNLOCK)))]
-         (OBTAIN.MONITORLOCK LOCK)))])
+(PUTPROPS WITH.FAST.MONITOR MACRO [(LOCK . FORMS)
+                                   (UNINTERRUPTABLY
+                                       ([LAMBDA (UNLOCK)
+                                          (PROG1 (PROGN . FORMS)
+                                              (AND (NEQ UNLOCK T)
+                                                   (RELEASE.MONITORLOCK UNLOCK)))]
+                                        (OBTAIN.MONITORLOCK LOCK)))])
 )
+(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(SPECVARS \BACKGROUND)
+)
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(GLOBALVARS \IGNORE.BACKGROUND)
+)
+
+(* "END EXPORTED DEFINITIONS")
+
+
+(RPAQ? \BACKGROUND NIL)
+
+(RPAQ? \IGNORE.BACKGROUND T)
 (DEFINEQ

 (\MAKE.PROCESS0
@@ -2096,9 +2107,13 @@ with the terms of said license.
       (\INTERRUPTABLE (BLOCK])

 (\BACKGROUND.PROCESS
-  [LAMBDA NIL                                            (* bvm%: "24-JUL-83 15:35")
-    (PROG NIL
-      LP  (for FN in BACKGROUNDFNS do (SPREADAPPLY* FN))
+  [LAMBDA NIL                                                (* ; "Edited 28-Jul-2023 21:01 by lmm")
+                                                             (* bvm%: "24-JUL-83 15:35")
+    (PROG ((\BACKGROUND \IGNORE.BACKGROUND))
+          (DECLARE (SPECVARS \BACKGROUND)
+                 (GLOBALVARS \IGNORE.BACKGROUND))
+      LP  (SETQ \BACKGROUND \IGNORE.BACKGROUND)
+          (for FN in BACKGROUNDFNS do (SPREADAPPLY* FN))
          (BLOCK)
          (GO LP])

@@ -2460,51 +2475,53 @@ with the terms of said license.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 

-(PUTPROPS \RESCHEDULE  MACRO
-   [LAMBDA (OLDPROC)
+(PUTPROPS \RESCHEDULE MACRO [LAMBDA (OLDPROC)

-     (* ;; "Causes process switch, saving current context in OLDPROC's handle, or nowhere if OLDPROC is NIL.  Must be called uninterruptably!")
+                              (* ;; "Causes process switch, saving current context in OLDPROC's handle, or nowhere if OLDPROC is NIL.  Must be called uninterruptably!")

-     (PROG (PQUEUE PROC)
-       TOP 
+                              (PROG (PQUEUE PROC)
+                                TOP 

-      (* ;; "Maybe check for events here?")
+                               (* ;; "Maybe check for events here?")

-           (SETQ PQUEUE \HIGHEST.PRIORITY.QUEUE)
-       LP  (COND
-              ((SETQ PROC (fetch PQNEXT of PQUEUE))
-               [COND
-                  ((NEQ PROC OLDPROC)                        (* ; 
-               "Yes, there is a process switch required here.  Below is roughly the body of RESUME")
-                   (LET ((TOFX (fetch PROCFX of PROC))
-                         FROMFX)
-                        (COND
-                           ((fetch (FX INVALIDP) of TOFX)
-                            (\MP.ERROR \MP.STACKRELEASED "Process's stack has been released!" PROC)))
-                        (SETQ \RUNNING.PROCESS PROC)
-                        (replace PROCFX of PROC with 0)
-                        (\PROC.RESUME TOFX (COND
-                                              (OLDPROC (SETQ FROMFX (fetch PROCFX of OLDPROC)
-                                                        )
-                                                     (COND
-                                                        ((NOT (fetch (FX INVALIDP) of FROMFX)
-                                                              )
-                                                             (* ; 
-                     "Release stack pointer of OLDPROC if it hasn't been yet.  should never happen")
-                                                         (\DECUSECOUNT FROMFX)))
-                                                     (replace PROCFX of OLDPROC with
-                                                                                        (\MYALINK))
-                                                     NIL)
-                                              (T             (* ; 
-                                                   "no OLDPROC to resume later, so jettison caller")
-                                                 (\MYALINK]
-               (RETURN (fetch WAKEREASON of PROC)))
-              ((SETQ PQUEUE (fetch PQLOWER of PQUEUE))
-               (GO LP))
-              (T                                             (* ; 
-                                                           "nobody runnable, wait for events")
-                 (\MP.ERROR \MP.PROCERROR "No runnable process!!" OLDPROC)
-                 (GO TOP])
+                                    (SETQ PQUEUE \HIGHEST.PRIORITY.QUEUE)
+                                LP  (COND
+                                       ((SETQ PROC (fetch PQNEXT of PQUEUE))
+                                        [COND
+                                           ((NEQ PROC OLDPROC)
+                                                             (* ; 
+                 "Yes, there is a process switch required here.  Below is roughly the body of RESUME")
+                                            (LET ((TOFX (fetch PROCFX of PROC))
+                                                  FROMFX)
+                                                 (COND
+                                                    ((fetch (FX INVALIDP) of TOFX)
+                                                     (\MP.ERROR \MP.STACKRELEASED 
+                                                            "Process's stack has been released!" PROC
+                                                            )))
+                                                 (SETQ \RUNNING.PROCESS PROC)
+                                                 (replace PROCFX of PROC with 0)
+                                                 (\PROC.RESUME
+                                                  TOFX
+                                                  (COND
+                                                     (OLDPROC (SETQ FROMFX (fetch PROCFX of OLDPROC))
+                                                            (COND
+                                                               ((NOT (fetch (FX INVALIDP)
+                                                                        of FROMFX))
+                                                             (* ; 
+                       "Release stack pointer of OLDPROC if it hasn't been yet.  should never happen")
+                                                                (\DECUSECOUNT FROMFX)))
+                                                            (replace PROCFX of OLDPROC with (\MYALINK
+                                                                                             ))
+                                                            NIL)
+                                                     (T      (* ; 
+                                                     "no OLDPROC to resume later, so jettison caller")
+                                                        (\MYALINK]
+                                        (RETURN (fetch WAKEREASON of PROC)))
+                                       ((SETQ PQUEUE (fetch PQLOWER of PQUEUE))
+                                        (GO LP))
+                                       (T                    (* ; "nobody runnable, wait for events")
+                                          (\MP.ERROR \MP.PROCERROR "No runnable process!!" OLDPROC)
+                                          (GO TOP])
 )
 )
 (DEFINEQ
@@ -2848,22 +2865,19 @@ with the terms of said license.
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 

-(PUTPROPS THIS.PROCESS  MACRO
-   (NIL \RUNNING.PROCESS))
+(PUTPROPS THIS.PROCESS MACRO (NIL \RUNNING.PROCESS))

-(PUTPROPS TTY.PROCESS  MACRO
-   [X (COND
-         ((CAR X)
-          'IGNOREMACRO)
-         (T '\TTY.PROCESS])
+(PUTPROPS TTY.PROCESS MACRO [X (COND
+                                  ((CAR X)
+                                   'IGNOREMACRO)
+                                  (T '\TTY.PROCESS])

-(PUTPROPS TTY.PROCESSP  MACRO
-   [X (COND
-         ((CAR X)
-          'IGNOREMACRO)
-         (T '(OR (NULL (THIS.PROCESS))
-                 (EQ (THIS.PROCESS)
-                     (TTY.PROCESS])
+(PUTPROPS TTY.PROCESSP MACRO [X (COND
+                                   ((CAR X)
+                                    'IGNOREMACRO)
+                                   (T '(OR (NULL (THIS.PROCESS))
+                                           (EQ (THIS.PROCESS)
+                                               (TTY.PROCESS])
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY

@@ -2887,21 +2901,18 @@ with the terms of said license.

 (DECLARE%: EVAL@COMPILE 

-(PUTPROPS ALIVEPROCP  MACRO
-   ((p)
-    (NOT (DEADPROCP p))))
+(PUTPROPS ALIVEPROCP MACRO ((p)
+                            (NOT (DEADPROCP p))))

-(PUTPROPS DEADPROCP  MACRO
-   ((p)
-    (fetch PROCDELETED of p)))
+(PUTPROPS DEADPROCP MACRO ((p)
+                           (fetch PROCDELETED of p)))

-(PUTPROPS \COERCE.TO.PROCESS  MACRO
-   [OPENLAMBDA (P ERRORFLG)
-     (COND
-        ((AND (type? PROCESS P)
-              (NOT (fetch PROCDELETED of P)))
-         P)
-        (T (FIND.PROCESS P ERRORFLG])
+(PUTPROPS \COERCE.TO.PROCESS MACRO [OPENLAMBDA (P ERRORFLG)
+                                     (COND
+                                        ((AND (type? PROCESS P)
+                                              (NOT (fetch PROCDELETED of P)))
+                                         P)
+                                        (T (FIND.PROCESS P ERRORFLG])
 )

 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -3319,7 +3330,7 @@ with the terms of said license.
 (RPAQ? PROCBACKTRACEHEIGHT 320)

 (ADDTOVAR BackgroundMenuCommands ("PSW" '(PROCESS.STATUS.WINDOW)
-                                            "Puts up a Process Status Window"))
+                                        "Puts up a Process Status Window"))

 (SETQQ BackgroundMenu)
 (DECLARE%: EVAL@COMPILE DONTCOPY 
@@ -3350,8 +3361,8 @@ with the terms of said license.

 (DEFPRINT 'MONITORLOCK (FUNCTION \MONITORLOCK.DEFPRINT))

-                                                             (* ; 
-                                          "\process.init must come last, since it does a HARDRESET")
+                                                             (* ; 
+                                            "\process.init must come last, since it does a HARDRESET")

 (\PROCESS.INIT)
 )
@@ -3363,42 +3374,40 @@ with the terms of said license.

 (ADDTOVAR LAMA PROCESSPROP ADD.PROCESS)
 )
-(PUTPROPS PROC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1990 1991 
-1992 1993 1998 1999))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (22392 42659 (PROCESSWORLD 22402 . 31747) (ADD.PROCESS 31749 . 35906) (DEL.PROCESS 35908
- . 36855) (PROCESS.RETURN 36857 . 37004) (FIND.PROCESS 37006 . 37640) (MAP.PROCESSES 37642 . 37968) (
-PROCESSP 37970 . 38138) (RELPROCESSP 38140 . 38322) (RESTART.PROCESS 38324 . 38893) (WAKE.PROCESS 
-38895 . 39625) (SUSPEND.PROCESS 39627 . 40014) (PROCESS.RESULT 40016 . 40994) (PROCESS-STATUS 40996 . 
-42391) (PROCESS.FINISHEDP 42393 . 42657)) (42660 55867 (THIS.PROCESS 42670 . 42803) (TTY.PROCESS 42805
- . 49632) (TTY.PROCESSP 49634 . 49850) (PROCESS.TTY 49852 . 50202) (GIVE.TTY.PROCESS 50204 . 51014) (
-ALLOW.BUTTON.EVENTS 51016 . 51260) (SPAWN.MOUSE 51262 . 53475) (\WAIT.FOR.TTY 53477 . 53667) (
-WAIT.FOR.TTY 53669 . 55865)) (55868 58486 (RESET 55878 . 56710) (ERROR! 56712 . 58484)) (58851 64199 (
-PROCESSPROP 58861 . 63313) (PROCESS.NAME 63315 . 63620) (PROCESS.WINDOW 63622 . 64197)) (64401 69436 (
-DISMISS 64411 . 65226) (BLOCK 65228 . 67452) (WAITFORINPUT 67454 . 68683) (\WAITFORSYSBUFP 68685 . 
-69434)) (69637 70134 (EVAL.AS.PROCESS 69647 . 69870) (EVAL.IN.TTY.PROCESS 69872 . 70132)) (70768 76552
- (PROCESS.READ 70778 . 71616) (PROCESS.EVALV 71618 . 72196) (PROCESS.EVAL 72198 . 73175) (
-\PROCESS.EVAL1 73177 . 74280) (PROCESS.APPLY 74282 . 75266) (\PROCESS.APPLY1 75268 . 76550)) (78718 
-84023 (CREATE.EVENT 78728 . 78890) (NOTIFY.EVENT 78892 . 80400) (AWAIT.EVENT 80402 . 81024) (
-\UNQUEUE.EVENT 81026 . 82501) (\ENQUEUE.EVENT/LOCK 82503 . 83796) (\EVENT.DEFPRINT 83798 . 84021)) (
-89263 94254 (OBTAIN.MONITORLOCK 89273 . 92137) (CREATE.MONITORLOCK 92139 . 92358) (RELEASE.MONITORLOCK
- 92360 . 92694) (SI::MONITOR-UNWIND 92696 . 93282) (MONITOR.AWAIT.EVENT 93284 . 94018) (
-\MONITORLOCK.DEFPRINT 94020 . 94252)) (94863 117339 (\MAKE.PROCESS0 94873 . 102072) (\MAKE.PROCESS1 
-102074 . 103638) (\PROCESS.MOVEFRAME 103640 . 108189) (\RELEASE.PROCESS 108191 . 111241) (
-\UNWIND.PROCESS 111243 . 111569) (\MAYBEBLOCK 111571 . 111726) (\BACKGROUND.PROCESS 111728 . 111969) (
-\MOUSE.PROCESS 111971 . 114520) (\TIMER.PROCESS 114522 . 115078) (\PROCESS.RELEASE.LOCKS 115080 . 
-115494) (\SET.PROCESS.NAME 115496 . 117032) (\PROCESS.DEFPRINT 117034 . 117337)) (117340 131695 (
-\START.PROCESSES 117350 . 117523) (\PROCESS.GO.TO.SLEEP 117525 . 121279) (\PROC.RESUME 121281 . 121655
-) (\RUN.PROCESS 121657 . 124993) (\SUSPEND.PROCESS 124995 . 128056) (\UNQUEUE.TIMER 128058 . 128757) (
-\ENQUEUE.TIMER 128759 . 130666) (\GET.PRIORITY.QUEUE 130668 . 131693)) (134377 141599 (\PROCESS.INIT 
-134387 . 135013) (\PROCESS.EVENTFN 135015 . 136751) (\PROCESS.BEFORE.LOGOUT 136753 . 138272) (
-\PROCESS.AFTER.EXIT 138274 . 138582) (\PROCESS.RESET.TIMERS 138584 . 140113) (\PROC.AFTER.WINDOWWORLD 
-140115 . 140800) (\TURN.ON.PROCESSES 140802 . 141597)) (141630 142859 (\PROC.CODEFORTFRAME 141640 . 
-142461) (\PROC.REPEATEDLYEVALQT 142463 . 142857)) (142893 149625 (BREAK.PROCESS 142903 . 143219) (
-\SELECTPROCESS 143221 . 145661) (\PROCESS.MAKEFRAME 145663 . 147714) (\PROCESS.MAKEFRAME0 147716 . 
-149623)) (151838 153761 (\CHECK.PQUEUE 151848 . 153759)) (153762 172091 (PPROC 153772 . 155053) (
-PPROCWINDOW 155055 . 155546) (PPROCREPAINTFN 155548 . 156262) (PPROCRESHAPEFN 156264 . 156527) (
-PPROCEXTENT 156529 . 157013) (PPROC1 157015 . 159033) (PROCESS.STATUS.WINDOW 159035 . 163117) (
-\PSW.SELECTED 163119 . 163413) (\PSWOP.SELECTED 163415 . 167315) (PROCESS.BACKTRACE 167317 . 170508) (
-\INVALIDATE.PROCESS.WINDOW 170510 . 171244) (\UPDATE.PROCESS.WINDOW 171246 . 172089)))))
+  (FILEMAP (NIL (22096 42363 (PROCESSWORLD 22106 . 31451) (ADD.PROCESS 31453 . 35610) (DEL.PROCESS 35612
+ . 36559) (PROCESS.RETURN 36561 . 36708) (FIND.PROCESS 36710 . 37344) (MAP.PROCESSES 37346 . 37672) (
+PROCESSP 37674 . 37842) (RELPROCESSP 37844 . 38026) (RESTART.PROCESS 38028 . 38597) (WAKE.PROCESS 
+38599 . 39329) (SUSPEND.PROCESS 39331 . 39718) (PROCESS.RESULT 39720 . 40698) (PROCESS-STATUS 40700 . 
+42095) (PROCESS.FINISHEDP 42097 . 42361)) (42364 55571 (THIS.PROCESS 42374 . 42507) (TTY.PROCESS 42509
+ . 49336) (TTY.PROCESSP 49338 . 49554) (PROCESS.TTY 49556 . 49906) (GIVE.TTY.PROCESS 49908 . 50718) (
+ALLOW.BUTTON.EVENTS 50720 . 50964) (SPAWN.MOUSE 50966 . 53179) (\WAIT.FOR.TTY 53181 . 53371) (
+WAIT.FOR.TTY 53373 . 55569)) (55572 58190 (RESET 55582 . 56414) (ERROR! 56416 . 58188)) (58551 63899 (
+PROCESSPROP 58561 . 63013) (PROCESS.NAME 63015 . 63320) (PROCESS.WINDOW 63322 . 63897)) (64101 69136 (
+DISMISS 64111 . 64926) (BLOCK 64928 . 67152) (WAITFORINPUT 67154 . 68383) (\WAITFORSYSBUFP 68385 . 
+69134)) (69337 69834 (EVAL.AS.PROCESS 69347 . 69570) (EVAL.IN.TTY.PROCESS 69572 . 69832)) (70423 76207
+ (PROCESS.READ 70433 . 71271) (PROCESS.EVALV 71273 . 71851) (PROCESS.EVAL 71853 . 72830) (
+\PROCESS.EVAL1 72832 . 73935) (PROCESS.APPLY 73937 . 74921) (\PROCESS.APPLY1 74923 . 76205)) (78266 
+83571 (CREATE.EVENT 78276 . 78438) (NOTIFY.EVENT 78440 . 79948) (AWAIT.EVENT 79950 . 80572) (
+\UNQUEUE.EVENT 80574 . 82049) (\ENQUEUE.EVENT/LOCK 82051 . 83344) (\EVENT.DEFPRINT 83346 . 83569)) (
+90015 95006 (OBTAIN.MONITORLOCK 90025 . 92889) (CREATE.MONITORLOCK 92891 . 93110) (RELEASE.MONITORLOCK
+ 93112 . 93446) (SI::MONITOR-UNWIND 93448 . 94034) (MONITOR.AWAIT.EVENT 94036 . 94770) (
+\MONITORLOCK.DEFPRINT 94772 . 95004)) (96210 118970 (\MAKE.PROCESS0 96220 . 103419) (\MAKE.PROCESS1 
+103421 . 104985) (\PROCESS.MOVEFRAME 104987 . 109536) (\RELEASE.PROCESS 109538 . 112588) (
+\UNWIND.PROCESS 112590 . 112916) (\MAYBEBLOCK 112918 . 113073) (\BACKGROUND.PROCESS 113075 . 113600) (
+\MOUSE.PROCESS 113602 . 116151) (\TIMER.PROCESS 116153 . 116709) (\PROCESS.RELEASE.LOCKS 116711 . 
+117125) (\SET.PROCESS.NAME 117127 . 118663) (\PROCESS.DEFPRINT 118665 . 118968)) (118971 133326 (
+\START.PROCESSES 118981 . 119154) (\PROCESS.GO.TO.SLEEP 119156 . 122910) (\PROC.RESUME 122912 . 123286
+) (\RUN.PROCESS 123288 . 126624) (\SUSPEND.PROCESS 126626 . 129687) (\UNQUEUE.TIMER 129689 . 130388) (
+\ENQUEUE.TIMER 130390 . 132297) (\GET.PRIORITY.QUEUE 132299 . 133324)) (136771 143993 (\PROCESS.INIT 
+136781 . 137407) (\PROCESS.EVENTFN 137409 . 139145) (\PROCESS.BEFORE.LOGOUT 139147 . 140666) (
+\PROCESS.AFTER.EXIT 140668 . 140976) (\PROCESS.RESET.TIMERS 140978 . 142507) (\PROC.AFTER.WINDOWWORLD 
+142509 . 143194) (\TURN.ON.PROCESSES 143196 . 143991)) (144024 145253 (\PROC.CODEFORTFRAME 144034 . 
+144855) (\PROC.REPEATEDLYEVALQT 144857 . 145251)) (145287 152019 (BREAK.PROCESS 145297 . 145613) (
+\SELECTPROCESS 145615 . 148055) (\PROCESS.MAKEFRAME 148057 . 150108) (\PROCESS.MAKEFRAME0 150110 . 
+152017)) (154660 156583 (\CHECK.PQUEUE 154670 . 156581)) (156584 174913 (PPROC 156594 . 157875) (
+PPROCWINDOW 157877 . 158368) (PPROCREPAINTFN 158370 . 159084) (PPROCRESHAPEFN 159086 . 159349) (
+PPROCEXTENT 159351 . 159835) (PPROC1 159837 . 161855) (PROCESS.STATUS.WINDOW 161857 . 165939) (
+\PSW.SELECTED 165941 . 166235) (\PSWOP.SELECTED 166237 . 170137) (PROCESS.BACKTRACE 170139 . 173330) (
+\INVALIDATE.PROCESS.WINDOW 173332 . 174066) (\UPDATE.PROCESS.WINDOW 174068 . 174911)))))
 STOP
--- a/sources/PROC.LCOM
+++ b/sources/PROC.LCOM
--- a/sources/SEDIT-WINDOW
+++ b/sources/SEDIT-WINDOW
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)

-(IL:FILECREATED "20-Jun-2023 21:10:34" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;3| 87531  
+(IL:FILECREATED "13-Jul-2023 14:28:53" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;6| 87869  

      :EDIT-BY IL:|rmk|

      :CHANGES-TO (IL:FNS BUTTONEVENTFN)

-      :PREVIOUS-DATE "17-Jun-2023 19:59:30" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;2|)
+      :PREVIOUS-DATE "13-Jul-2023 14:06:39" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;5|)


 ; Copyright (c) 1986-1988, 1990-1992, 2018 by Venue & Xerox Corporation.
@@ -207,7 +207,8 @@
         (IL:DSPRIGHTMARGIN 64000 DISPLAY-WINDOW))))

 (BUTTONEVENTFN
-  (IL:LAMBDA (WINDOW)                                 (IL:* IL:\; "Edited 20-Jun-2023 21:10 by rmk")
+  (IL:LAMBDA (WINDOW)                                 (IL:* IL:\; "Edited 13-Jul-2023 14:27 by rmk")
+                                                      (IL:* IL:\; "Edited 20-Jun-2023 21:10 by rmk")
                                                      (IL:* IL:\; "Edited 17-Jun-2023 19:59 by rmk")
                                                     (IL:* IL:\; "Edited 23-Apr-2018 09:37 by rmk:")

@@ -251,13 +252,16 @@
                   (IL:MOUSESTATE IL:LEFT)
                   (IN-TITLE-BAR WINDOW))

-              (IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited")
+              (IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited. Previous attempt was too immediate, did not conform to usual mouse-up conventions.")

-              (LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
-                                 :|name|)))
-                   (WHEN NAME                                (IL:* IL:\; 
+              (IL:WHILE (EQ 'COPY (SHIFT-DOWN)))
+              (IL:GETMOUSESTATE)
+              (WHEN (IN-TITLE-BAR WINDOW)
+                  (LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
+                                     :|name|)))
+                       (WHEN NAME                            (IL:* IL:\; 
                                                             "Not sure about FLG and RDTBL")
-                       (IL:COPYINSERT NAME))))
+                           (IL:COPYINSERT NAME)))))
             ((OR (EQ SHIFT-DOWN 'COPY)
                  (IL:OBTAIN.MONITORLOCK LOCK T))

@@ -815,22 +819,22 @@
 (IL:PUTPROPS IL:SEDIT-WINDOW IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992 
 2018))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (11430 12334 (SELECT-NODE-SEGMENT 11430 . 12334)) (12335 87393 (BUILD-WINDOW 12348 . 
-18188) (BUTTONEVENTFN 18190 . 24395) (CHECK-SELECTION 24397 . 26437) (CHECK-SELECTION-SHIFT 26439 . 
-27562) (CLOSEFN 27564 . 30567) (CONFLICTING-SELECTION? 30569 . 31330) (DISPLAY-SELECTION 31332 . 32359
-) (DRAW-HIGHLIGHT 32361 . 33491) (DRAW-OUTLINE 33493 . 34848) (DRAW-UNDERLINE 34850 . 35625) (EXPANDFN
- 35627 . 36134) (EXPANDREGIONFN 36136 . 36726) (EXTEND-SELECTION 36728 . 39305) (
-FINALIZE-MOUSE-SELECTION 39307 . 45853) (FIND-LINE-START 45855 . 46546) (FIND-NODE 46548 . 47823) (
-GET-DESTINATION-CONTEXT 47825 . 48377) (GRAY 48379 . 48766) (GROW-CLICK? 48768 . 50753) (
-GROW-SELECTION 50755 . 51098) (GROW-SELECTION-DEFAULT 51100 . 51471) (HIGHLIGHT-SELECTION 51473 . 
-51766) (ICON-COPYFN 51768 . 52112) (LESS-PROMPT-WINDOW 52114 . 52483) (NORMALIZE-SELECTION 52485 . 
-53851) (OUTLINE-SELECTION 53853 . 54991) (PENDING-DELETE 54993 . 55327) (PLACE-CARET-AND-SELECTION 
-55329 . 56889) (PUNT-SET-POINT 56891 . 57349) (PUNT-SET-SELECTION 57351 . 57800) (REPAINTFN 57802 . 
-59080) (RESHAPEFN 59082 . 61420) (SCAN-FOR-BOUNDS 61422 . 63965) (SELECT-NODE 63967 . 64337) (
-SELECT-SEGMENT 64339 . 64779) (SELECT-SEGMENT-DEFAULT 64781 . 66808) (SELECTION-DOWN 66810 . 67220) (
-SELECTION-UP 67222 . 67648) (SET-POINT 67650 . 68409) (SET-POINT-NOWHERE 68411 . 68670) (
-SET-POINT-UNKNOWN 68672 . 69293) (SET-SELECTION 69295 . 69728) (SET-SELECTION-ME 69730 . 70822) (
-SET-SELECTION-NOWHERE 70824 . 71022) (SHIFT-DOWN 71024 . 71565) (SHOW-CARET 71567 . 77125) (SHRINKFN 
-77127 . 79862) (STRING-OFFSET 79864 . 81224) (TRACK-EXTEND 81226 . 83282) (TRACK-SELECT 83284 . 85773)
- (UNDERLINE-SELECTION 85775 . 86177) (UPDATE-TITLE 86179 . 87391)))))
+  (IL:FILEMAP (NIL (11430 12334 (SELECT-NODE-SEGMENT 11430 . 12334)) (12335 87731 (BUILD-WINDOW 12348 . 
+18188) (BUTTONEVENTFN 18190 . 24733) (CHECK-SELECTION 24735 . 26775) (CHECK-SELECTION-SHIFT 26777 . 
+27900) (CLOSEFN 27902 . 30905) (CONFLICTING-SELECTION? 30907 . 31668) (DISPLAY-SELECTION 31670 . 32697
+) (DRAW-HIGHLIGHT 32699 . 33829) (DRAW-OUTLINE 33831 . 35186) (DRAW-UNDERLINE 35188 . 35963) (EXPANDFN
+ 35965 . 36472) (EXPANDREGIONFN 36474 . 37064) (EXTEND-SELECTION 37066 . 39643) (
+FINALIZE-MOUSE-SELECTION 39645 . 46191) (FIND-LINE-START 46193 . 46884) (FIND-NODE 46886 . 48161) (
+GET-DESTINATION-CONTEXT 48163 . 48715) (GRAY 48717 . 49104) (GROW-CLICK? 49106 . 51091) (
+GROW-SELECTION 51093 . 51436) (GROW-SELECTION-DEFAULT 51438 . 51809) (HIGHLIGHT-SELECTION 51811 . 
+52104) (ICON-COPYFN 52106 . 52450) (LESS-PROMPT-WINDOW 52452 . 52821) (NORMALIZE-SELECTION 52823 . 
+54189) (OUTLINE-SELECTION 54191 . 55329) (PENDING-DELETE 55331 . 55665) (PLACE-CARET-AND-SELECTION 
+55667 . 57227) (PUNT-SET-POINT 57229 . 57687) (PUNT-SET-SELECTION 57689 . 58138) (REPAINTFN 58140 . 
+59418) (RESHAPEFN 59420 . 61758) (SCAN-FOR-BOUNDS 61760 . 64303) (SELECT-NODE 64305 . 64675) (
+SELECT-SEGMENT 64677 . 65117) (SELECT-SEGMENT-DEFAULT 65119 . 67146) (SELECTION-DOWN 67148 . 67558) (
+SELECTION-UP 67560 . 67986) (SET-POINT 67988 . 68747) (SET-POINT-NOWHERE 68749 . 69008) (
+SET-POINT-UNKNOWN 69010 . 69631) (SET-SELECTION 69633 . 70066) (SET-SELECTION-ME 70068 . 71160) (
+SET-SELECTION-NOWHERE 71162 . 71360) (SHIFT-DOWN 71362 . 71903) (SHOW-CARET 71905 . 77463) (SHRINKFN 
+77465 . 80200) (STRING-OFFSET 80202 . 81562) (TRACK-EXTEND 81564 . 83620) (TRACK-SELECT 83622 . 86111)
+ (UNDERLINE-SELECTION 86113 . 86515) (UPDATE-TITLE 86517 . 87729)))))
 IL:STOP
--- a/sources/SEDIT-WINDOW.DFASL
+++ b/sources/SEDIT-WINDOW.DFASL
--- a/sources/XREM.CM
+++ b/sources/XREM.CM
@@ -1,6 +0,0 @@
-"
-(MOVD? (QUOTE NILL) (QUOTE PROMPTPRINT))
-(MOVD? (QUOTE NILL) (QUOTE CURSORP))
-(MOVD? (QUOTE NILL) (QUOTE CHANGEBACKGROUNDBORDER))
-(LOGOUT)
-"
--- a/sources/XXFILL
+++ b/sources/XXFILL
@@ -1,29 +1,27 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "13-Jun-2021 14:41:44" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.;2 56697  

-      changes to%:  (FNS SHEDSCAN)
+(FILECREATED "25-May-2023 22:14:28" {DSK}<home>larry>il>medley>sources>XXFILL.;9 60613  

-      previous date%: "19-Jan-93 11:29:57" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.;1)
+      :EDIT-BY "lmm"

+      :CHANGES-TO (FNS POLYSHADE.SCAN.IP)
+
+      :PREVIOUS-DATE " 2-May-2023 15:46:54" {DSK}<home>larry>il>medley>sources>XXFILL.;7)

-(* ; "
-Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
-")

 (PRETTYCOMPRINT XXFILLCOMS)

 (RPAQQ XXFILLCOMS
       ((COMS 

-(* ;;; "Filled Polygons")
+(* ;;; "Filled Polygons")

              (FNS SCAN.LESSP CRIT.LESSP)
              (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS SCAN))
              (INITRECORDS SCAN)
              (VARS FILL.WRULE \FILL.DEBUG)
              (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \FILL.DEBUG)
+                     (SPECVARS \FILL.WRULE)
                     (MACROS \NORMSECT \DrawScanList.Blt \DrawScanList.Display \DrawScanList.XScan.IP
                            \DrawScanList.YScan.IP))
              (FNS MAKESCAN SHEDSCAN NORMSECT CRITSECT)
@@ -32,7 +30,7 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
              (FNS FILLTRIANGLE))
        (COMS 

-(* ;;; "Filled Circles")
+(* ;;; "Filled Circles")

              (FNS \CIRCSHADE.BLT \CIRCSHADE.DISPLAY \CIRCSHADE.IP \CIRCSHADE.XSCAN.IP)
              (FNS CIRCSHADE.BLT CIRCSHADE.DISPLAY CIRCSHADE.IP)
@@ -40,17 +38,17 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
        (P (MOVD 'FILLCIRCLE.IP 'CIRCSHADE.IP))
        

-(* ;;; " Considering scan direction of the printer")
+(* ;;; " Considering scan direction of the printer")

        

-(* ;;; " You must set these vars before opening IMAGESTREAM")
+(* ;;; " You must set these vars before opening IMAGESTREAM")

        (COMS (VARS (PRINTER.DEFAULT.SCAN.DIRECTION 'Y)
                    (PRINTER.SCAN.DIRECTIONS.LIST)))
        (COMS 

-(* ;;; "PBBT Optimized routines")
+(* ;;; "PBBT Optimized routines")

              (VARS PBBT.PANEL)
              (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FILL.TBLE))
@@ -118,121 +116,128 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
 (GLOBALVARS \FILL.DEBUG)
 )

+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(SPECVARS \FILL.WRULE)
+)
+
 (DECLARE%: EVAL@COMPILE 

 (PUTPROPS \NORMSECT DMACRO ((SELF Y)
-                                    (LET (XL XR (GEOM (ffetch (SCAN GEOM) of SELF)))
-                                         (BRESSTEP GEOM Y XL XR)
-                                         (freplace (SCAN LX) of SELF with XL)
-                                         (freplace (SCAN RX) of SELF with XR))))
+                            (LET (XL XR (GEOM (ffetch (SCAN GEOM) of SELF)))
+                                 (BRESSTEP GEOM Y XL XR)
+                                 (freplace (SCAN LX) of SELF with XL)
+                                 (freplace (SCAN RX) of SELF with XR))))

 (PUTPROPS \DrawScanList.Blt DMACRO
          [(strm scanlist scany)

-           (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro")
+           (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro")

           (SETQ count 0)
           [IF (EQ FILL.WRULE 1)
-               THEN (for scan in scanlist
-                           do (SETQ count (IPLUS count 1))
-                                 (if (ODDP count)
-                                     then (SETQ ex (IPLUS (ffetch (SCAN RX) of scan)
-                                                              1))
-                                   else (BLTSHADE FILL.SHADE strm ex scany
-                                                   (IDIFFERENCE (ffetch (SCAN LX) of scan)
-                                                          ex)
-                                                   1 FILL.FRULE]
+               THEN (for scan in scanlist do (SETQ count (IPLUS count 1))
+                                             (if (ODDP count)
+                                                 then (SETQ ex (IPLUS (ffetch (SCAN RX) of scan)
+                                                                      1))
+                                               else (BLTSHADE FILL.SHADE strm ex scany
+                                                           (IDIFFERENCE (ffetch (SCAN LX)
+                                                                           of scan)
+                                                                  ex)
+                                                           1 FILL.FRULE]
           (IF (EQ FILL.WRULE 0)
-               THEN (for scan in scanlist
-                           do [if (EQ count 0)
-                                      then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan]
-                                 (SETQ count (IPLUS count (ffetch (SCAN WC) of scan)))
-                                 (if (EQ count 0)
-                                     then (BLTSHADE FILL.SHADE strm ex scany
-                                                     (IDIFFERENCE (ffetch (SCAN LX) of scan)
-                                                            ex)
-                                                     1 FILL.FRULE])
+               THEN (for scan in scanlist do [if (EQ count 0)
+                                                 then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan]
+                                             (SETQ count (IPLUS count (ffetch (SCAN WC) of scan)))
+                                             (if (EQ count 0)
+                                                 then (BLTSHADE FILL.SHADE strm ex scany
+                                                             (IDIFFERENCE (ffetch (SCAN LX)
+                                                                             of scan)
+                                                                    ex)
+                                                             1 FILL.FRULE])

 (PUTPROPS \DrawScanList.Display DMACRO
          [(strm scanlist scany)

-           (* ;; "count, fill.shade fill.wrule fill.frule, table are dynamically scoped outside macro.  Since if fill.wrule is 1 count is merely a toggle, use T and NIL.")
+           (* ;; "count, fill.shade fill.wrule fill.frule, table are dynamically scoped outside macro.  Since if fill.wrule is 1 count is merely a toggle, use T and NIL.")

           [IF (EQ FILL.WRULE 1)
               THEN (SETQ count NIL)
-                     (for scan in scanlist
-                        do (SETQ count (NOT count))
-                              (if count
-                                  then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan)))
-                                else (FILL.LINE table scany ex (ffetch (SCAN LX)
-                                                                          of scan]
+                    (for scan in scanlist do (SETQ count (NOT count))
+                                             (if count
+                                                 then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan)))
+                                               else (FILL.LINE table scany ex (ffetch (SCAN LX)
+                                                                                 of scan]
           (IF (EQ FILL.WRULE 0)
               THEN (SETQ count 0)
-                     (for scan in scanlist
-                        do [if (EQ count 0)
-                                   then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan]
-                              (SETQ count (IPLUS count (ffetch (SCAN WC) of scan)))
-                              (if (EQ count 0)
-                                  then (FILL.LINE table scany ex (ffetch (SCAN LX)
-                                                                            of scan])
+                    (for scan in scanlist do [if (EQ count 0)
+                                                 then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan]
+                                             (SETQ count (IPLUS count (ffetch (SCAN WC) of scan)))
+                                             (if (EQ count 0)
+                                                 then (FILL.LINE table scany ex (ffetch (SCAN LX)
+                                                                                   of scan])

-(PUTPROPS \DrawScanList.XScan.IP DMACRO
-          [(strm scanlist scany)
+(PUTPROPS \DrawScanList.XScan.IP DMACRO [(strm scanlist scany)

-           (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro")
+                                         (* ;; 
+                       "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro")

-           (SETQ count 0)
-           [IF (EQ FILL.WRULE 1)
-               THEN (for scan in scanlist
-                           do (SETQ ix (fetch (SCAN LX) of scan))
-                                 (SETQ tx (ffetch (SCAN RX) of scan))
-                                 (SETQ count (IPLUS count 1))
-                                 (if (ODDP count)
-                                     then (SETQ ex (IPLUS tx 1))
-                                   else (FILLRECTANGLE.IP strm ex scany (IDIFFERENCE ix ex)
-                                                   1]
-           (IF (EQ FILL.WRULE 0)
-               THEN (for scan in scanlist
-                           do (SETQ ix (fetch (SCAN LX) of scan))
-                                 (SETQ tx (ffetch (SCAN RX) of scan))
-                                 (if (EQ count 0)
-                                     then (SETQ ex (IPLUS tx 1)))
-                                 (SETQ count (IPLUS count (ffetch (SCAN WC) of scan)))
-                                 (if (EQ count 0)
-                                     then (FILLRECTANGLE.IP strm ex scany (IDIFFERENCE ix ex)
-                                                     1])
+                                         (SETQ count 0)
+                                         [IF (EQ FILL.WRULE 1)
+                                             THEN (for scan in scanlist
+                                                     do (SETQ ix (fetch (SCAN LX) of scan))
+                                                        (SETQ tx (ffetch (SCAN RX) of scan))
+                                                        (SETQ count (IPLUS count 1))
+                                                        (if (ODDP count)
+                                                            then (SETQ ex (IPLUS tx 1))
+                                                          else (FILLRECTANGLE.IP strm ex scany
+                                                                      (IDIFFERENCE ix ex)
+                                                                      1]
+                                         (IF (EQ FILL.WRULE 0)
+                                             THEN (for scan in scanlist
+                                                     do (SETQ ix (fetch (SCAN LX) of scan))
+                                                        (SETQ tx (ffetch (SCAN RX) of scan))
+                                                        (if (EQ count 0)
+                                                            then (SETQ ex (IPLUS tx 1)))
+                                                        (SETQ count (IPLUS count (ffetch (SCAN WC)
+                                                                                    of scan)))
+                                                        (if (EQ count 0)
+                                                            then (FILLRECTANGLE.IP strm ex scany
+                                                                        (IDIFFERENCE ix ex)
+                                                                        1])

-(PUTPROPS \DrawScanList.YScan.IP DMACRO
-          [(strm scanlist scany)
+(PUTPROPS \DrawScanList.YScan.IP DMACRO [(strm scanlist scany)

-           (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro * *")
+                                         (* ;; 
+                   "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro * *")

-           (SETQ count 0)
-           [IF (EQ FILL.WRULE 1)
-               THEN (for scan in scanlist
-                           do (SETQ ix (fetch (SCAN LX) of scan))
-                                 (SETQ tx (fetch (SCAN RX) of scan))
-                                 (SETQ count (IPLUS count 1))
-                                 (if (ODDP count)
-                                     then (SETQ ex (IPLUS tx 1))
-                                   else 
+                                         (SETQ count 0)
+                                         [IF (EQ FILL.WRULE 1)
+                                             THEN (for scan in scanlist
+                                                     do (SETQ ix (fetch (SCAN LX) of scan))
+                                                        (SETQ tx (fetch (SCAN RX) of scan))
+                                                        (SETQ count (IPLUS count 1))
+                                                        (if (ODDP count)
+                                                            then (SETQ ex (IPLUS tx 1))
+                                                          else 
+                                                               (* ;; "Unreflect coordinates back")

-                                         (* ;; "Unreflect coordinates back")
+                                                               (FILLRECTANGLE.IP strm scany ix 1
+                                                                      (IDIFFERENCE ex ix]
+                                         (IF (EQ FILL.WRULE 0)
+                                             THEN (for scan in scanlist
+                                                     do (SETQ ix (fetch (SCAN LX) of scan))
+                                                        (SETQ tx (fetch (SCAN RX) of scan))
+                                                        (if (EQ count 0)
+                                                            then (SETQ ex (IPLUS tx 1)))
+                                                        (SETQ count (IPLUS count (fetch (SCAN WC)
+                                                                                    of scan)))
+                                                        (if (EQ count 0)
+                                                            then 
+                                                                 (* ;; "Unreflect coordinates back")

-                                         (FILLRECTANGLE.IP strm scany ix 1 (IDIFFERENCE ex ix]
-           (IF (EQ FILL.WRULE 0)
-               THEN (for scan in scanlist
-                           do (SETQ ix (fetch (SCAN LX) of scan))
-                                 (SETQ tx (fetch (SCAN RX) of scan))
-                                 (if (EQ count 0)
-                                     then (SETQ ex (IPLUS tx 1)))
-                                 (SETQ count (IPLUS count (fetch (SCAN WC) of scan)))
-                                 (if (EQ count 0)
-                                     then 
-
-                                           (* ;; "Unreflect coordinates back")
-
-                                           (FILLRECTANGLE.IP strm scany ix 1 (IDIFFERENCE ex ix])
+                                                                 (FILLRECTANGLE.IP strm scany ix 1
+                                                                        (IDIFFERENCE ex ix])
 )
 )
 (DEFINEQ
@@ -297,7 +302,9 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
 (DEFINEQ

 (\POLYSHADE.BLT
-  [LAMBDA (STRM ALIST FILL.SHADE FILL.FRULE FILL.WRULE)  (* ; "Edited  1-Feb-89 18:28 by FS")
+  [LAMBDA (STRM ALIST FILL.SHADE FILL.FRULE FILL.WRULE)
+    (DECLARE (SPECVARS FILL.WRULE))                          (* ; "Edited  2-May-2023 15:36 by lmm")
+                                                             (* ; "Edited  1-Feb-89 18:28 by FS")

    (* ;; "Generic version of polygon code, works for any stream which can do BLTSHADE.  Expects integer line lists, for Bltshade destinations, works in dev.  coords, should limit to clip region if possible")

@@ -307,50 +314,54 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
          (SETQ currlist NIL)
          (SETQ currcrit MIN.INTEGER)
          (SETQ scany (fetch (SCAN BY) of (CAR fulllist)))
-          [while (OR currlist fulllist)
-             do 
+          [while (OR currlist fulllist) do 
+                                           (* ;; "merge new critical edges")

-                   (* ;; "merge new critical edges")
+                                           (while [AND (LISTP fulllist)
+                                                       (IEQP scany (fetch (SCAN BY)
+                                                                      of (CAR fulllist]
+                                              do (SETQ scan (CAR fulllist))
+                                                 (SETQ currlist (CONS scan currlist))
+                                                 (SETQ fulllist (CDR fulllist)))
+                                           (if (LISTP fulllist)
+                                               then (SETQ fullcrit (fetch (SCAN BY)
+                                                                      of (CAR fulllist)))
+                                             else (SETQ fullcrit MAX.INTEGER)) 

-                   (while [AND (LISTP fulllist)
-                                   (IEQP scany (fetch (SCAN BY) of (CAR fulllist]
-                      do (SETQ scan (CAR fulllist))
-                            (SETQ currlist (CONS scan currlist))
-                            (SETQ fulllist (CDR fulllist)))
-                   (if (LISTP fulllist)
-                       then (SETQ fullcrit (fetch (SCAN BY) of (CAR fulllist)))
-                     else (SETQ fullcrit MAX.INTEGER)) 
+                                           (* ;; "paint critical scan line")

-                   (* ;; "paint critical scan line")
+                                           (for scan in currlist do (CRITSECT scan scany))
+                                           (SORT currlist 'SCAN.LESSP)
+                                           (\DrawScanList.Blt STRM currlist scany) 

-                   (for scan in currlist do (CRITSECT scan scany))
-                   (SORT currlist 'SCAN.LESSP)
-                   (\DrawScanList.Blt STRM currlist scany) 
+                                           (* ;; "cull out exhausted edges")

-                   (* ;; "cull out exhausted edges")
+                                           (SETQ scany (IPLUS scany 1)) 
+                                                             (* ; "(ILEQ currcrit scany)")
+                                           (SETQ currcrit MAX.INTEGER)
+                                           (SETQ clist NIL)
+                                           [for scan in currlist
+                                              do (SETQ ty (fetch (SCAN TY) of scan))
+                                                 (SETQ currcrit (IMIN currcrit ty))
+                                                 (if (ILEQ scany ty)
+                                                     then (SETQ clist (CONS scan clist))
+                                                          (SETQ currcrit (IMIN currcrit ty]
+                                           (SETQ currlist clist) 

-                   (SETQ scany (IPLUS scany 1))              (* ; "(ILEQ currcrit scany)")
-                   (SETQ currcrit MAX.INTEGER)
-                   (SETQ clist NIL)
-                   [for scan in currlist do (SETQ ty (fetch (SCAN TY) of scan))
-                                                       (SETQ currcrit (IMIN currcrit ty))
-                                                       (if (ILEQ scany ty)
-                                                           then (SETQ clist (CONS scan clist))
-                                                                 (SETQ currcrit (IMIN currcrit ty]
-                   (SETQ currlist clist) 
+                                           (* ;; "paint normal scan lines")

-                   (* ;; "paint normal scan lines")
-
-                   (SETQ crity (IMIN currcrit fullcrit))
-                   (while (ILESSP scany crity) do (for scan in currlist
-                                                             do (NORMSECT scan scany))
-                                                         (SORT currlist 'SCAN.LESSP)
-                                                         (\DrawScanList.Blt STRM currlist scany)
-                                                         (SETQ scany (IPLUS scany 1]
+                                           (SETQ crity (IMIN currcrit fullcrit))
+                                           (while (ILESSP scany crity)
+                                              do (for scan in currlist do (NORMSECT scan scany))
+                                                 (SORT currlist 'SCAN.LESSP)
+                                                 (\DrawScanList.Blt STRM currlist scany)
+                                                 (SETQ scany (IPLUS scany 1]
          (RETURN NIL])

 (\POLYSHADE.DISPLAY
-  [LAMBDA (STRM ALIST FILL.SHADE FILL.FRULE FILL.WRULE)  (* ; "Edited 24-Aug-87 19:47 by FS")
+  [LAMBDA (STRM ALIST FILL.SHADE FILL.FRULE FILL.WRULE)
+    (DECLARE (SPECVARS FILL.WRULE))                          (* ; "Edited  2-May-2023 15:37 by lmm")
+                                                             (* ; "Edited 24-Aug-87 19:47 by FS")

    (* ;; "Generic version of polygon code, works for any device which can do pilot bbt.  Expects integer line lists, for Bltshade destinations, works in dev.  coords, should limit to clip region if possible")

@@ -361,48 +372,52 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
          (SETQ currlist NIL)
          (SETQ currcrit MIN.SMALLP)
          (SETQ scany (fetch (SCAN BY) of (CAR fulllist)))
-          [while (OR currlist fulllist)
-             do 
+          [while (OR currlist fulllist) do 
+                                           (* ;; "merge new critical edges")

-                   (* ;; "merge new critical edges")
+                                           (while [AND (LISTP fulllist)
+                                                       (IEQP scany (fetch (SCAN BY)
+                                                                      of (CAR fulllist]
+                                              do (SETQ scan (CAR fulllist))
+                                                 (SETQ currlist (CONS scan currlist))
+                                                 (SETQ fulllist (CDR fulllist)))
+                                           (COND
+                                              [(LISTP fulllist)
+                                               (SETQ fullcrit (fetch (SCAN BY) of (CAR fulllist]
+                                              (T (SETQ fullcrit MAX.SMALLP))) 

-                   (while [AND (LISTP fulllist)
-                                   (IEQP scany (fetch (SCAN BY) of (CAR fulllist]
-                      do (SETQ scan (CAR fulllist))
-                            (SETQ currlist (CONS scan currlist))
-                            (SETQ fulllist (CDR fulllist)))
-                   (COND
-                      [(LISTP fulllist)
-                       (SETQ fullcrit (fetch (SCAN BY) of (CAR fulllist]
-                      (T (SETQ fullcrit MAX.SMALLP))) 
+                                           (* ;; "paint critical scan line")

-                   (* ;; "paint critical scan line")
+                                           (for scan in currlist do (CRITSECT scan scany))
+                                           (SORT currlist 'SCAN.LESSP)
+                                           (\DrawScanList.Display STRM currlist scany) 

-                   (for scan in currlist do (CRITSECT scan scany))
-                   (SORT currlist 'SCAN.LESSP)
-                   (\DrawScanList.Display STRM currlist scany) 
+                                           (* ;; "cull out exhausted edges")

-                   (* ;; "cull out exhausted edges")
+                                           (SETQ scany (IPLUS scany 1)) 
+                                                             (* ; "(ILEQ currcrit scany)")
+                                           (SETQ currcrit MAX.SMALLP)
+                                           (SETQ clist NIL)
+                                           [for scan in currlist do (SETQ ty (fetch (SCAN TY)
+                                                                                of scan))
+                                                                    (SETQ currcrit (IMIN currcrit ty)
+                                                                     )
+                                                                    (COND
+                                                                       ((ILEQ scany ty)
+                                                                        (SETQ clist (CONS scan clist)
+                                                                         )
+                                                                        (SETQ currcrit
+                                                                         (IMIN currcrit ty]
+                                           (SETQ currlist clist) 

-                   (SETQ scany (IPLUS scany 1))              (* ; "(ILEQ currcrit scany)")
-                   (SETQ currcrit MAX.SMALLP)
-                   (SETQ clist NIL)
-                   [for scan in currlist do (SETQ ty (fetch (SCAN TY) of scan))
-                                                       (SETQ currcrit (IMIN currcrit ty))
-                                                       (COND
-                                                          ((ILEQ scany ty)
-                                                           (SETQ clist (CONS scan clist))
-                                                           (SETQ currcrit (IMIN currcrit ty]
-                   (SETQ currlist clist) 
+                                           (* ;; "paint normal scan lines")

-                   (* ;; "paint normal scan lines")
-
-                   (SETQ crity (IMIN currcrit fullcrit))
-                   (while (ILESSP scany crity) do (for scan in currlist
-                                                             do (\NORMSECT scan scany))
-                                                         (SORT currlist 'SCAN.LESSP)
-                                                         (\DrawScanList.Display STRM currlist scany)
-                                                         (SETQ scany (IPLUS scany 1]
+                                           (SETQ crity (IMIN currcrit fullcrit))
+                                           (while (ILESSP scany crity)
+                                              do (for scan in currlist do (\NORMSECT scan scany))
+                                                 (SORT currlist 'SCAN.LESSP)
+                                                 (\DrawScanList.Display STRM currlist scany)
+                                                 (SETQ scany (IPLUS scany 1]
          (RETURN NIL])

 (\POLYSHADE.XSCAN.IP
@@ -572,35 +587,34 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.

 (POLYSHADE.SCAN.IP
  [LAMBDA (STREAM POINTS TEXTURE OPERATION WINDNUMBER SCANDIRECTION)
+                                                             (* ; "Edited 25-May-2023 21:48 by lmm")
+                                                             (* ; "Edited  2-May-2023 09:12 by lmm")
                                                             (* ; "Edited  1-Feb-89 18:53 by FS")

    (* ;; "Convert micas to device units, and transpose, tell Interpress to take dev units back to micas, convert knot list into internal data structures")

-    (LET (ILIST LLIST (MicasToDev 0.1181102)
-                XTOX XTOY)                                   (* ; "hack until can change IP")
-                                                             (* ; "MicasToDev 300dpi / 2540micaspi")
-         (IF (EQ SCANDIRECTION 'X)
-             THEN (SETQ XTOX MicasToDev)                 (* ; "just scale")
-                   (SETQ XTOY 0)
-           ELSE (SETQ XTOX 0)                            (* ; "transpose & scale")
-                 (SETQ XTOY MicasToDev))
-         [IF (NUMBERP (CAAR POINTS))
-             THEN (SETQ POINTS (IMLTLIST POINTS XTOX XTOY 0 XTOY XTOX 0))
-           ELSE (SETQ POINTS (for I in POINTS
-                                    collect (IMLTLIST I XTOX XTOY 0 XTOY XTOX 0]
-         (APPENDOP.IP STREAM DOSAVESIMPLEBODY)
-         (APPENDOP.IP STREAM {)
+    (LET (ILIST LLIST XTOX XTOY)
+         (if (EQ SCANDIRECTION 'X)
+             then (SETQ XTOX (\IPC MicasToDev))              (* ; "just scale")
+                  (SETQ XTOY 0)
+           else (SETQ XTOX 0)                                (* ; "transpose & scale")
+                (SETQ XTOY (\IPC MicasToDev)))
+         [if (NUMBERP (CAAR POINTS))
+             then (SETQ POINTS (IMLTLIST POINTS XTOX XTOY 0 XTOY XTOX 0))
+           else (SETQ POINTS (for I in POINTS collect (IMLTLIST I XTOX XTOY 0 XTOY XTOX 0]
+         (APPENDOP.IP STREAM (\IPC DOSAVESIMPLEBODY))
+         (APPENDOP.IP STREAM (\IPC {))
         (SCALE.IP STREAM 8.466666)                          (* ; "2540micaspi / 300dpi")
         (CONCATT.IP STREAM)                                 (* ; "Convert to integer")
         (SETQ ILIST (PREPLOOP POINTS))
         (SETQ LLIST (MAPCAR ILIST 'KNOTLINE))
-         (IF (AND (NEQ WINDNUMBER 0)
-                      (NEQ WINDNUMBER 1))
-             THEN (SETQ WINDNUMBER FILL.WRULE))
-         (IF (EQ SCANDIRECTION 'X)
-             THEN (\POLYSHADE.XSCAN.IP STREAM LLIST TEXTURE OPERATION WINDNUMBER)
-           ELSE (\POLYSHADE.YSCAN.IP STREAM LLIST TEXTURE OPERATION WINDNUMBER))
-         (APPENDOP.IP STREAM }])
+         (if (AND (NEQ WINDNUMBER 0)
+                  (NEQ WINDNUMBER 1))
+             then (SETQ WINDNUMBER FILL.WRULE))
+         (if (EQ SCANDIRECTION 'X)
+             then (\POLYSHADE.XSCAN.IP STREAM LLIST TEXTURE OPERATION WINDNUMBER)
+           else (\POLYSHADE.YSCAN.IP STREAM LLIST TEXTURE OPERATION WINDNUMBER))
+         (APPENDOP.IP STREAM (\IPC }])
 )
 (DEFINEQ

@@ -895,40 +909,38 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
    (FILLNGON.IP STREAM 90 RADIUS CENTERX CENTERY TEXTURE OPERATION])

 (FILLNGON.IP
-  [LAMBDA (IPSTREAM NPOINTS RADIUS CENTERX CENTERY TEXTURE OPERATION)
-                                                      (* ; "Edited  1-Feb-89 17:19 by FS")
+  [LAMBDA (IPSTREAM NPOINTS RADIUS CENTERX CENTERY TEXTURE OPERATION)
+                                                             (* ; "Edited  2-May-2023 08:46 by lmm")
+                                                             (* ; "Edited  1-Feb-89 17:19 by FS")

-    (* ;; "Create and fill a regular polygon (standing on its tip).  Since its convex, we can use the primitive IP operator to do the job.  Note there is no clipping in this routine.")
+    (* ;; "Create and fill a regular polygon (standing on its tip).  Since its convex, we can use the primitive IP operator to do the job.  Note there is no clipping in this routine.")

-    (* ;; "Could have used FILLTRAJECTORY.IP, but this function CONSes less.  Could have walked 1/8 of circle and used symmetry, but what the heck.......")
+    (* ;; "Could have used FILLTRAJECTORY.IP, but this function CONSes less.  Could have walked 1/8 of circle and used symmetry, but what the heck.......")

    (LET (BASEANGLE ANGLE X Y)

-         (* ;; "Try to avoid limitations of printers.  Anything more than 64 or so looks for all intents and purposes like a circle anyway.")
+         (* ;; "Try to avoid limitations of printers.  Anything more than 64 or so looks for all intents and purposes like a circle anyway.")

         (if (IGREATERP NPOINTS MAXSEGSPERTRAJECTORY)
             then (SETQ NPOINTS MAXSEGSPERTRAJECTORY))
         (SETQ BASEANGLE (FQUOTIENT 360 NPOINTS))
-         (APPENDOP.IP IPSTREAM DOSAVESIMPLEBODY)       (* ; 
-                                                     "Save state (to undo SETCOLOR)")
-         (APPENDOP.IP IPSTREAM {)
+         (APPENDOP.IP IPSTREAM (\IPC DOSAVESIMPLEBODY))      (* ; "Save state (to undo SETCOLOR)")
+         (APPENDOP.IP IPSTREAM (\IPC {))
         (SETCOLOR.IP IPSTREAM TEXTURE OPERATION)
-         (MOVETO.IP IPSTREAM CENTERX (IPLUS CENTERY RADIUS))
-                                                       (* ; "handle 0 point specially")
+         (MOVETO.IP IPSTREAM CENTERX (IPLUS CENTERY RADIUS)) (* ; "handle 0 point specially")

-         (* ;; 
-       "Note that the trajectory is not closed, IP spec says outlines get closed anyway.")
+         (* ;; "Note that the trajectory is not closed, IP spec says outlines get closed anyway.")

-         (for I from 1 to (SUB1 NPOINTS)
-            do (SETQ ANGLE (TIMES I BASEANGLE))    (* ; 
-"Since these are micas, we can avoid some floating point by forcing values to be integer")
-                  [SETQ X (IPLUS CENTERX (TIMES RADIUS (SIN ANGLE]
-                  [SETQ Y (IPLUS CENTERY (TIMES RADIUS (COS ANGLE]
-                  (LINETO.IP IPSTREAM X Y))
-         (APPENDINTEGER.IP IPSTREAM 1)                 (* ; "number of trajectories")
-         (APPENDOP.IP IPSTREAM MAKEOUTLINE)
-         (APPENDOP.IP IPSTREAM MASKFILL)
-         (APPENDOP.IP IPSTREAM })                      (* ; "restore state")
+         (for I from 1 to (SUB1 NPOINTS) do (SETQ ANGLE (TIMES I BASEANGLE)) 
+                                                             (* ; 
+            "Since these are micas, we can avoid some floating point by forcing values to be integer")
+                                            [SETQ X (IPLUS CENTERX (TIMES RADIUS (SIN ANGLE]
+                                            [SETQ Y (IPLUS CENTERY (TIMES RADIUS (COS ANGLE]
+                                            (LINETO.IP IPSTREAM X Y))
+         (APPENDINTEGER.IP IPSTREAM 1)                       (* ; "number of trajectories")
+         (APPENDOP.IP IPSTREAM (\IPC MAKEOUTLINE))
+         (APPENDOP.IP IPSTREAM (\IPC MASKFILL))
+         (APPENDOP.IP IPSTREAM (\IPC }))                     (* ; "restore state")
         NIL])
 )

@@ -973,8 +985,7 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (DECLARE%: EVAL@COMPILE

-(DATATYPE FILL.TBLE 
-          (FBBT TX TY ADDR LLEN TXTW TXTH TXTA BITS LFT RGT TOP BOT TEXT STRM))
+(DATATYPE FILL.TBLE (FBBT TX TY ADDR LLEN TXTW TXTH TXTA BITS LFT RGT TOP BOT TEXT STRM))
 )

 (/DECLAREDATATYPE 'FILL.TBLE
@@ -1170,17 +1181,16 @@ Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation.
 (FILESLOAD (LOADCOMP)
       INTERPRESS XXGEOM)
 )
-(PUTPROPS XXFILL COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2199 2755 (SCAN.LESSP 2209 . 2479) (CRIT.LESSP 2481 . 2753)) (10034 12577 (MAKESCAN 
-10044 . 10363) (SHEDSCAN 10365 . 11260) (NORMSECT 11262 . 11543) (CRITSECT 11545 . 12575)) (12578 
-24690 (\POLYSHADE.BLT 12588 . 15489) (\POLYSHADE.DISPLAY 15491 . 18543) (\POLYSHADE.XSCAN.IP 18545 . 
-21630) (\POLYSHADE.YSCAN.IP 21632 . 24688)) (24691 28695 (POLYSHADE.BLT 24701 . 25196) (
-POLYSHADE.DISPLAY 25198 . 25741) (POLYSHADE.IP 25743 . 26796) (POLYSHADE.SCAN.IP 26798 . 28693)) (
-28696 29463 (FILLTRIANGLE 28706 . 29461)) (29497 40524 (\CIRCSHADE.BLT 29507 . 32329) (
-\CIRCSHADE.DISPLAY 32331 . 34835) (\CIRCSHADE.IP 34837 . 37611) (\CIRCSHADE.XSCAN.IP 37613 . 40522)) (
-40525 42728 (CIRCSHADE.BLT 40535 . 41078) (CIRCSHADE.DISPLAY 41080 . 41643) (CIRCSHADE.IP 41645 . 
-42726)) (42729 45879 (FILLCIRCLE.IP 42739 . 43821) (FILLNGON.IP 43823 . 45877)) (48358 55419 (
-FILL.INITTBLE 48368 . 54727) (FILL.INCY 54729 . 55051) (FILL.LINE 55053 . 55417)) (55420 56489 (
-FILL.TEST 55430 . 55719) (FILL.XPER 55721 . 56113) (FILL.CONT 56115 . 56487)))))
+  (FILEMAP (NIL (2157 2713 (SCAN.LESSP 2167 . 2437) (CRIT.LESSP 2439 . 2711)) (11905 14448 (MAKESCAN 
+11915 . 12234) (SHEDSCAN 12236 . 13131) (NORMSECT 13133 . 13414) (CRITSECT 13416 . 14446)) (14449 
+28552 (\POLYSHADE.BLT 14459 . 18208) (\POLYSHADE.DISPLAY 18210 . 22405) (\POLYSHADE.XSCAN.IP 22407 . 
+25492) (\POLYSHADE.YSCAN.IP 25494 . 28550)) (28553 32553 (POLYSHADE.BLT 28563 . 29058) (
+POLYSHADE.DISPLAY 29060 . 29603) (POLYSHADE.IP 29605 . 30658) (POLYSHADE.SCAN.IP 30660 . 32551)) (
+32554 33321 (FILLTRIANGLE 32564 . 33319)) (33355 44382 (\CIRCSHADE.BLT 33365 . 36187) (
+\CIRCSHADE.DISPLAY 36189 . 38693) (\CIRCSHADE.IP 38695 . 41469) (\CIRCSHADE.XSCAN.IP 41471 . 44380)) (
+44383 46586 (CIRCSHADE.BLT 44393 . 44936) (CIRCSHADE.DISPLAY 44938 . 45501) (CIRCSHADE.IP 45503 . 
+46584)) (46587 49904 (FILLCIRCLE.IP 46597 . 47679) (FILLNGON.IP 47681 . 49902)) (52372 59433 (
+FILL.INITTBLE 52382 . 58741) (FILL.INCY 58743 . 59065) (FILL.LINE 59067 . 59431)) (59434 60503 (
+FILL.TEST 59444 . 59733) (FILL.XPER 59735 . 60127) (FILL.CONT 60129 . 60501)))))
 STOP
--- a/sources/XXFILL.LCOM
+++ b/sources/XXFILL.LCOM
Author	SHA1	Message	Date
Frank Halasz	701a642fb4	Merge pull request #1308 from Interlisp/fgh_loadups3 Fix issue with tmp/logindir remaining after loadup-all and loadup-db scripts	2023-08-15 15:31:33 -07:00
Frank Halasz	7f99792afe	In loadup- scripts, at end remove the tmp and tmp/logindir directories if they don't exist before the script runs	2023-08-14 23:29:38 -07:00
Frank Halasz	6a147af97f	Merge pull request #1304 from Interlisp/fgh_loadups2 Revamp loadup scripts and release-medley script; sync with github workflow buildLoadup.yml	2023-08-14 10:56:57 -07:00
Frank Halasz	41b5870164	Switch comparison of timestamp tocraeted file to ensure that when the times are equal it is counted as success and not failure. Remove two second wait from loadup-mid-from-init, which was a previous attempt to solve same issue.	2023-08-13 21:13:48 -07:00
Frank Halasz	3ed4d52f53	Remove junk accidently added to loadup-db.sh. Fix CM file in loadup-db-from-full.sh to add internal/loadups to DIRECTORIES so files in this subdir can be analyzed. Add delay into loadup-mid-from-init.sh to make sure timestamp race conditions are avoided.	2023-08-07 22:30:12 -07:00
Frank Halasz	3aa01c7a38	Making @nbrigg's check for existance of LOADUP_OUTDIR and LOADUP_WORKDIR a bit fancier	2023-08-07 18:00:53 -07:00
Nick Briggs	3cefaf338c	Ensure that the LOADUP_OUTDIR directory exists as part of the loadup-setup.sh	2023-08-07 17:24:38 -07:00
Frank Halasz	204605268e	Remove venuesysouts from release tars	2023-08-07 14:53:33 -07:00
Frank Halasz	62422cd4ce	Add changes from PR#1307 (@masinter). Can't easily merge PR#1307 in directly because MAKEINIT has moved. These changes set OK.TO.MODIFYFNS to T for all loadups to prevent loadups asking if its OK to modify system functions	2023-08-07 13:35:25 -07:00
Frank Halasz	ed6a6e4e04	move all loadups-related source files into internal/loadups; adjust scripts accordingly; move venuesysouts from loadups into internal/venuesysouts; fix issues in .CM files to allow starting loadups-all from any lisp/full.sysout	2023-08-07 12:34:11 -07:00
Frank Halasz	dbf6808bcb	Merge remote-tracking branch 'origin/fgh_loadups2' into fgh_loadups2	2023-08-04 15:19:56 -07:00
Frank Halasz	126a8cfb37	Remove references to LOADUP_WORKDIR from all lisp code and instead pass the file references down from the callinf .CM files (which are now embedded in the loadup- scripts; also add /unicode subdir to the release tars.	2023-08-04 15:07:43 -07:00
Frank Halasz	1ff71ea15d	update buildLOadup.yml to use new scripts/release-make-tars.sh instead of its almost but not quite equivalent make tars code	2023-08-04 12:29:40 -07:00
Frank Halasz	dfce541a18	Fix scripts/README.md	2023-08-04 12:29:40 -07:00
Frank Halasz	84391b367b	First pass a complete new make-release.sh	2023-08-04 12:29:40 -07:00
Frank Halasz	346c11b0ad	WIP fixing up scripts/release_medley.sh and syncing with buildLoadup.yml	2023-08-04 12:29:40 -07:00
Frank Halasz	ae2633591e	Remove now obsolete sources/*.CM files; update README a bit	2023-08-04 12:29:40 -07:00
Frank Halasz	b0ec2476d5	Handle case where files already exist in LOADUP_WORKDIR - show only the newly created files - not the old ones	2023-08-04 12:29:40 -07:00
Frank Halasz	1c077d1b3d	First full pass at loadups revamp.	2023-08-04 12:29:40 -07:00
Frank Halasz	ca3280f894	WIP updating loadups scripts	2023-08-04 12:29:40 -07:00
Frank Halasz	5b3cf9b7d5	Add new files left out from last commit; add RDSYS to library as part of loadups-all	2023-08-04 12:29:40 -07:00
Frank Halasz	e4c3a16ce4	Remake loadup scripts to not use MEDLEYDIR/tmp as a working dir AND cleanly separate loadup-all from loadup-db; adjust buildLoadup.yml accordingly	2023-08-04 12:29:40 -07:00
rmkaplan	41f4489e9f	LLREAD uses \INCCODE.EOLC instead of \INCCODE to coerce LF and CRLF to EOL(=CR) (#1300 )	2023-08-03 14:15:16 -07:00
Frank Halasz	51ef95d30f	update buildLOadup.yml to use new scripts/release-make-tars.sh instead of its almost but not quite equivalent make tars code	2023-08-02 22:03:38 -07:00
Frank Halasz	0c9744455c	Fix scripts/README.md	2023-08-02 16:47:04 -07:00
Frank Halasz	41608a1b27	First pass a complete new make-release.sh	2023-08-02 16:43:35 -07:00
Frank Halasz	9d26047d8c	WIP fixing up scripts/release_medley.sh and syncing with buildLoadup.yml	2023-08-02 13:41:36 -07:00
Frank Halasz	48c9a82a1c	Remove now obsolete sources/*.CM files; update README a bit	2023-08-02 01:02:12 -07:00
Frank Halasz	f9838ac631	Handle case where files already exist in LOADUP_WORKDIR - show only the newly created files - not the old ones	2023-08-01 23:41:39 -07:00
Frank Halasz	f514dd04c2	First full pass at loadups revamp.	2023-08-01 22:59:01 -07:00
Frank Halasz	656bb53ef6	WIP updating loadups scripts	2023-08-01 12:08:55 -07:00
Frank Halasz	c105799096	Merge pull request #1298 from Interlisp/fgh_medley.sh-sysout Fix bug in medley.sh wherein it was ignoring sysout argument	2023-07-31 12:11:14 -07:00
Frank Halasz	d2102bfe9b	Add new files left out from last commit; add RDSYS to library as part of loadups-all	2023-07-31 01:07:39 -07:00
Frank Halasz	b59e37b703	Remake loadup scripts to not use MEDLEYDIR/tmp as a working dir AND cleanly separate loadup-all from loadup-db; adjust buildLoadup.yml accordingly	2023-07-31 00:42:23 -07:00
Frank Halasz	71a2d7aac7	Fix bug in medley.sh wherein it was ignoring sysout argument	2023-07-30 13:01:17 -07:00
Larry Masinter	94269303d0	SPY.POINTERS is always T (no 2-byte atoms) (#1293 ) * SPY.POINTERS is always T (no 2-byte atoms) * Set SPY to not record entries when in \BACKGROUND-YIELD or (conditionally) backgroudn process * Use \IGNORE.BACKGROUND as global variable, initially T; clean up declarations * changes used DECLARE%%: incorrectly, now fixed	2023-07-30 11:35:23 -07:00
Frank Halasz	91305cc2c9	Fix whitespace typo in buildLoadup.yml (#1287 )	2023-07-22 18:21:52 -07:00
rmkaplan	b513bb44a3	Simplify EXPORTS.ALL loading commands (#1281 ) Standard FILES commands now do the right thing, no need for extra junk	2023-07-20 22:24:18 -07:00
Larry Masinter	652a9dc320	release dribbles and msfuller (#1280 ) * ignore loadups/exports.all (moved) * add fuller.database and dribble files to release	2023-07-20 21:39:15 -07:00
Larry Masinter	a678515a35	ignore loadups/exports.all (moved) (#1279 )	2023-07-20 21:38:20 -07:00
Arun Welch	11ac5b7ec7	add rooms manual (scanned, no tedit found) (#1100 ) * Lafite and Rooms Manuals Add Lafite and Rooms Manuals * Only rooms-manual, Lafite has .tedit files --------- Co-authored-by: Larry Masinter <LMM@acm.org>	2023-07-20 20:19:23 -07:00
Larry Masinter	9e433314d8	don't declare most interpress constants (#1193 ) * rewrite INTERPRESS to not pollute pool of CL:CONSTANTP variables in common use * update some functions that are (inappropriately) tied to INTERPRESS * no change to SKETCHOPS needed * still need one \IPC 'constant' from INTERPRESS * changes to WINDOW GLOBALVARS another time * recompile XXFILL * fix a few other messes exposed	2023-07-19 19:11:17 -07:00
rmkaplan	feff0cefc0	SEDIT-WINDOW: Shift-title selection conforms to standard mouse conventions (#1272 ) In previous commit/PR #1256 the bksysbuf wasn't waiting for the copy/shift key to come up.	2023-07-19 12:53:46 -07:00
rmkaplan	a258a5e9f0	FILEWATCH: Shift select names, plus show PSEUDOFILENAMES (#1276 ) * FILEWATCH: Shift select names, plus show PSEUDOFILENAMES * FILEWATCH: Copied file is a string, not an atom Modern systems tend to allow spaces and other funky characters in filenames. COPYINSERT doesn't automatically escape. But generally we are moving towards strings. (Shift-select from FILEBROWSER has the same problem)	2023-07-19 12:53:04 -07:00
rmkaplan	9529c35631	FILEBROWSER: FB.COPYFN uses COPYINSERT instead of BKSYSBUF (#1277 ) So shift-selecting produces strings for file names with funky characters	2023-07-19 12:52:43 -07:00
rmkaplan	a111907bf4	GATHEREXPORTS uses standard MAKEFILE machinery (#1278 ) * GATHEREXPORTS uses standard MAKEFILE machinery So that it gets all the normal file properties (FILE, FILEDATES) when it is LOADed. Also nothing special about setting up its reader environment * GATHEREXPORTS again: PRETTYDEF likes only litatom filenames (which probably should be fixed)	2023-07-19 12:01:38 -07:00
Larry Masinter	c797d919f1	Merge pull request #1274 from Interlisp/fgh_loadups Move exports.all to the loadups directory; add a LOADUPSDIRECTORIES to MEDLEY-INIT-VARS	2023-07-19 05:37:48 -07:00
Frank Halasz	03e59d15c8	Adding (FROM LOADUPS) whereever EXPORTS.ALL is loaded - changing from LOAD to FILESLOAD where necessary.	2023-07-18 13:39:49 -07:00
Frank Halasz	08880d550e	Move exports.all to the loadups directory; add a LOADUPSDIRECTORIES to MEDLEY-INIT-VARS	2023-07-17 16:38:10 -07:00