Use .CM to loadup full, to avoid GREET call (#322)

* Upgrade TEDIT to LF

Fixes the black boxes in the Tedit menus.
TEDIT had a built-in bias towards CR in files and in displaying them.  I changed the bias to LF.

* TEDITDCL had no content

Its COMS specified lots of records etc from other TEDIT files, but none of those were actually in the symbolic file (the LCOM was OK).  I loaded all of the other TEDIT files and remade/recompiled this, looks like it captured everything

library/TEDITFILE

@@ -1,13 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "19-May-2001 11:45:53" {DSK}<project>medley3.5>library>TEDITFILE.;5
 245586 
+
(FILECREATED "30-Apr-2021 14:46:41" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;8
 246290 
 
-      changes to%:  (FNS TEDIT.GET TEDIT.INCLUDE)
+      changes to%:  (FNS TEDIT.PUT.PCTB)
 
-      previous date%: "26-Dec-2000 15:18:25" {DSK}<project>medley3.5>library>TEDITFILE.;4)
+      previous date%: "30-Apr-2021 13:43:24" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;7)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1999, 2000, 2001 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT TEDITFILECOMS)
@@ -83,7 +85,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 
 (TEDIT.BUILD.PCTB

   [LAMBDA (TEXT TEXTOBJ START END DEFAULTLOOKS DEFAULTPARALOOKS CLEARGET?)

-                                                             (* ; "Edited 11-Jun-99 14:51 by rmk:")


+                                                            (* ; "Edited 29-Apr-2021 22:52 by rmk:")


                                                              (* ; "Edited 11-Jun-99 14:37 by rmk:")


                                                              (* ; "Edited 19-Apr-93 13:46 by jds")

                                                              (* ; 
@@ -160,10 +162,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 
                   ))
               (SETQ PCCOUNT (\TEDIT.FORMATTEDP1
 TEXT END))
+
+              (* ;; "RMK:  Domestic EOL is now LF, so changed from CR")

+
               (COND
                  ((AND (NOT PCCOUNT)
                        (NEQ (fetch
 (STREAM EOLCONVENTION) of
 TEXT)
-                            CR.EOLC))
+                            LF.EOLC))
 
                   (* ;; "This is an UNFORMATTED file, and it has a foreign EOL convention.  Convert it, and save the converted copy locally.")

 
@@ -1348,7 +1353,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
           (RETURN OFILE])
 
 (TEDIT.PUT.PCTB

-  [LAMBDA (TEXTOBJ OFILE UNFORMATTED? SEPARATEFORMAT)
    (* ; "Edited 11-Jun-99 15:55 by rmk:")


+  [LAMBDA (TEXTOBJ OFILE UNFORMATTED? SEPARATEFORMAT)
   (* ; "Edited 30-Apr-2021 14:46 by rmk:")


                                                              (* ; "Edited 19-May-99 21:58 by rmk:")


                                                   (* ; 
 
                                                "Edited 27-May-93 16:00 by sybalsky:mv:envos")

@@ -1378,10 +1383,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                   (fetch
 (PIECE PLOOKS) of
 PC))
                              (fetch
 (TEXTOBJ DEFAULTCHARLOOKS) of
 TEXTOBJ)
                              TEDIT.DEFAULT.CHARLOOKS))       (* ; "Starting looks")

+
+     (* ;; "RMK:  CHANGED DEFAULT FROM CR TO LF")

+
           (COND
              ((NEQ (fetch
 (STREAM EOLCONVENTION) of
 OFILE)
-                   CR.EOLC)                                  (* ; 
-
                                          "This file is on a non-CR host;  make a note to cache it")

+                   LF.EOLC)                                  (* ; 
+
                                          "This file is on a non-LF host;  make a note to cache it")

               (SETQ TRUEFILE OFILE)                          (* ; 
 
                                                          "Remember where the file should wind up.")

               [SETQ OFILE (OPENSTREAM '{NODIRCORE} 'BOTH 'NEW '((TYPE TEXT]
@@ -1604,17 +1612,26 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                           ((SETQ PSTR (fetch
 (PIECE PSTR) of
 PC))
                                                              (* ; 
 
                                                           "It's in a string.  Just print it.")

-                           (COND
-                              [(fetch
 (PIECE PFATP) of
 PC)
-                                                             (* ; 
-
                                            "The string is fat: Copy twice as many bytes as chars.")

-                               (for
 I from
 1 to
 (fetch
 (PIECE PLEN) of
 PC)
-                                  as
 CH instring PSTR do
 (\BOUT OFILE (\CHARSET CH))
-                                                                (\BOUT OFILE (\CHAR8CODE CH]
-                              (T                             (* ; 
-
                                                   "The string is thin.  Just copy it to the file.")

-                                 (for
 I from
 1 to
 (fetch
 (PIECE PLEN) of
 PC)
-                                    as
 CH instring PSTR do
 (\BOUT OFILE CH]
+
+                           (* ;; 
+
                         "RMK: BOUT ptimizations would miss external formats and EOL conventions")

+
+                           (for
 I from
 1 to
 (fetch
 (PIECE PLEN) of
 PC)
+                              as
 CH instring
 PSTR do
 (\OUTCHAR OFILE CH))
+                                                             (* (COND ((fetch (PIECE PFATP) of PC)
+
                                                           (* ; 
+
                                            "The string is fat: Copy twice as many bytes as chars.")
+
                                                           (for I from 1 to (fetch
+
                                                           (PIECE PLEN) of PC) as CH instring 
+
                                                           PSTR do (\BOUT OFILE
+
                                                           (\CHARSET CH)) (\BOUT OFILE
+
                                                           (\CHAR8CODE CH))))
+
                                                           (T (* ; 
+
                                                   "The string is thin.  Just copy it to the file.")
+
                                                           (for I from 1 to (fetch
+
                                                           (PIECE PLEN) of PC) as CH instring 
+
                                                           PSTR do (\BOUT OFILE CH)))))

+                           ]
                        [COND
                           ((AND (NOT CACHE)
                                 (RANDACCESSP OFILE))         (* ; 
@@ -3633,27 +3650,27 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (RPLACD TABSPEC TABS])
 )
 (PUTPROPS TEDITFILE COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
-1991 1992 1993 1994 1999 2000 2001))
+1991 1992 1993 1994 1999 2000 2001 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3099 57926 (TEDIT.BUILD.PCTB 3109 . 37483) (\TEDIT.CONVERT.FOREIGN.FORMAT 37485 . 38926
-) (TEDIT.FORMATTEDFILEP 38928 . 42792) (TEDIT.GET 42794 . 51610) (TEDIT.PARSE.PAGEFRAMES1 51612 . 
-53318) (\ARBIN 53320 . 53941) (\ATMIN 53943 . 54272) (\DWIN 54274 . 54552) (\STRINGIN 54554 . 55151) (
-\TEDIT.FORMATTEDP1 55153 . 57417) (\TEDIT.SET.WINDOW 57419 . 57924)) (57962 78490 (TEDIT.INCLUDE 57972
- . 69359) (TEDIT.RAW.INCLUDE 69361 . 78488)) (78524 122097 (TEDIT.PUT 78534 . 88907) (TEDIT.PUT.PCTB 
-88909 . 115833) (\TEDIT.PUTRESET 115835 . 116081) (TEDIT.PUT.PIECE.DESCRIPTOR 116083 . 118546) (
-\ARBOUT 118548 . 119748) (\ATMOUT 119750 . 120265) (\DWOUT 120267 . 120550) (\STRINGOUT 120552 . 
-121004) (\TEDIT-OPEN-FONT-FILE 121006 . 122095)) (122098 132610 (\TEDIT.GET.CHARLOOKS.LIST 122108 . 
-122513) (\TEDIT.GET.SINGLE.CHARLOOKS 122515 . 125560) (\TEDIT.PUT.CHARLOOKS.LIST 125562 . 127357) (
-\TEDIT.PUT.SINGLE.CHARLOOKS 127359 . 132608)) (132611 146890 (\TEDIT.GET.PARALOOKS.LIST 132621 . 
-133034) (\TEDIT.GET.SINGLE.PARALOOKS 133036 . 139430) (\TEDIT.PUT.PARALOOKS.LIST 139432 . 140426) (
-\TEDIT.PUT.SINGLE.PARALOOKS 140428 . 146888)) (147198 208459 (TEDIT.BUILD.PCTB2 147208 . 160564) (
-\TEDIT.GET.CHARLOOKS.LIST2 160566 . 160973) (\TEDIT.GET.SINGLE.CHARLOOKS2 160975 . 163887) (
-\TEDIT.PUT.SINGLE.PARALOOKS2 163889 . 168603) (\TEDIT.PUT.SINGLE.CHARLOOKS2 168605 . 173101) (
-\TEDIT.GET.PARALOOKS.LIST2 173103 . 173510) (\TEDIT.GET.SINGLE.PARALOOKS2 173512 . 178100) (
-TEDIT.PUT.PCTB2 178102 . 205763) (\TEDIT.PUT.CHARLOOKS.LIST2 205765 . 207562) (
-\TEDIT.PUT.PARALOOKS.LIST2 207564 . 208457)) (208536 229660 (TEDIT.BUILD.PCTB1 208546 . 218736) (
-TEDIT.GET.PAGEFRAMES1 218738 . 218993) (\TEDIT.GET.CHARLOOKS1 218995 . 222545) (\TEDIT.GET.PARALOOKS1 
-222547 . 227128) (TEDIT.GET.OBJECT1 227130 . 229658)) (229720 245426 (TEDIT.BUILD.PCTB0 229730 . 
-235437) (TEDIT.GET.CHARLOOKS0 235439 . 239458) (TEDIT.GET.OBJECT0 239460 . 241988) (
-TEDIT.GET.PARALOOKS0 241990 . 245424)))))
+  (FILEMAP (NIL (3052 57958 (TEDIT.BUILD.PCTB 3062 . 37515) (\TEDIT.CONVERT.FOREIGN.FORMAT 37517 . 38958
+) (TEDIT.FORMATTEDFILEP 38960 . 42824) (TEDIT.GET 42826 . 51642) (TEDIT.PARSE.PAGEFRAMES1 51644 . 
+53350) (\ARBIN 53352 . 53973) (\ATMIN 53975 . 54304) (\DWIN 54306 . 54584) (\STRINGIN 54586 . 55183) (
+\TEDIT.FORMATTEDP1 55185 . 57449) (\TEDIT.SET.WINDOW 57451 . 57956)) (57994 78522 (TEDIT.INCLUDE 58004
+ . 69391) (TEDIT.RAW.INCLUDE 69393 . 78520)) (78556 122796 (TEDIT.PUT 78566 . 88939) (TEDIT.PUT.PCTB 
+88941 . 116532) (\TEDIT.PUTRESET 116534 . 116780) (TEDIT.PUT.PIECE.DESCRIPTOR 116782 . 119245) (
+\ARBOUT 119247 . 120447) (\ATMOUT 120449 . 120964) (\DWOUT 120966 . 121249) (\STRINGOUT 121251 . 
+121703) (\TEDIT-OPEN-FONT-FILE 121705 . 122794)) (122797 133309 (\TEDIT.GET.CHARLOOKS.LIST 122807 . 
+123212) (\TEDIT.GET.SINGLE.CHARLOOKS 123214 . 126259) (\TEDIT.PUT.CHARLOOKS.LIST 126261 . 128056) (
+\TEDIT.PUT.SINGLE.CHARLOOKS 128058 . 133307)) (133310 147589 (\TEDIT.GET.PARALOOKS.LIST 133320 . 
+133733) (\TEDIT.GET.SINGLE.PARALOOKS 133735 . 140129) (\TEDIT.PUT.PARALOOKS.LIST 140131 . 141125) (
+\TEDIT.PUT.SINGLE.PARALOOKS 141127 . 147587)) (147897 209158 (TEDIT.BUILD.PCTB2 147907 . 161263) (
+\TEDIT.GET.CHARLOOKS.LIST2 161265 . 161672) (\TEDIT.GET.SINGLE.CHARLOOKS2 161674 . 164586) (
+\TEDIT.PUT.SINGLE.PARALOOKS2 164588 . 169302) (\TEDIT.PUT.SINGLE.CHARLOOKS2 169304 . 173800) (
+\TEDIT.GET.PARALOOKS.LIST2 173802 . 174209) (\TEDIT.GET.SINGLE.PARALOOKS2 174211 . 178799) (
+TEDIT.PUT.PCTB2 178801 . 206462) (\TEDIT.PUT.CHARLOOKS.LIST2 206464 . 208261) (
+\TEDIT.PUT.PARALOOKS.LIST2 208263 . 209156)) (209235 230359 (TEDIT.BUILD.PCTB1 209245 . 219435) (
+TEDIT.GET.PAGEFRAMES1 219437 . 219692) (\TEDIT.GET.CHARLOOKS1 219694 . 223244) (\TEDIT.GET.PARALOOKS1 
+223246 . 227827) (TEDIT.GET.OBJECT1 227829 . 230357)) (230419 246125 (TEDIT.BUILD.PCTB0 230429 . 
+236136) (TEDIT.GET.CHARLOOKS0 236138 . 240157) (TEDIT.GET.OBJECT0 240159 . 242687) (
+TEDIT.GET.PARALOOKS0 242689 . 246123)))))
 STOP

library/TEDITMENU

@@ -1,13 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED " 4-Jan-2021 13:48:43" {DSK}<home>larry>ilisp>medley>library>TEDITMENU.;2
 275817 
+
(FILECREATED "29-Apr-2021 22:44:22" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;5
 275764 
 
       changes to%:  (FNS \TEDIT.MENU.INIT)
 
-      previous date%: "24-Apr-95 12:05:29" {DSK}<home>larry>ilisp>medley>library>TEDITMENU.;1)
+      previous date%: "29-Apr-2021 22:40:33" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;4)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 2021 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1995, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT TEDITMENUCOMS)
@@ -17,7 +19,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
         (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64))
                (FILES (LOADCOMP)
                       TEDITDCL))
-        [COMS                                                (* ; "Simple Menu Button support")

+        [COMS                                                (* ; "Simple Menu Button support")

               (FNS MB.BUTTONEVENTINFN MB.DISPLAY MB.SETIMAGE MB.SELFN MB.SIZEFN MB.WHENOPERATEDFN 
                    MB.COPYFN MB.GETFN MB.PUTFN MB.SHOWSELFN MBUTTON.CREATE MBUTTON.CHANGENAME 
                    MBUTTON.FIND.BUTTON MBUTTON.FIND.NEXT.BUTTON MBUTTON.FIND.NEXT.FIELD MBUTTON.INIT
@@ -29,13 +31,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MBUTTON.INIT))
                      (ADDVARS (IMAGEOBJTYPES (TEditMenuButton FILE TEDITMENU GETFN MB.GETFN]
         [COMS 
-              (* ;; 
-
            "Three-state (ON-OFF-NEUTRAL) menu buttons, for, e.g., character properties like BOLD")

+              (* ;; 
+
            "Three-state (ON-OFF-NEUTRAL) menu buttons, for, e.g., character properties like BOLD")

 
               (FNS MB.CREATE.THREESTATEBUTTON MB.THREESTATE.DISPLAY MB.THREESTATE.SHOWSELFN 
                    MB.THREESTATE.WHENOPERATEDFN MB.THREESTATEBUTTON.FN THREESTATE.INIT)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (THREESTATE.INIT]
-        [COMS                                                (* ; "One-of-N Menu button sets")

+        [COMS                                                (* ; "One-of-N Menu button sets")

               (FNS MB.CREATE.NWAYBUTTON MB.NB.DISPLAYFN MB.NB.WHENOPERATEDFN MB.NB.SIZEFN 
                    MB.NWAYBUTTON.SELFN MB.NWAYMENU.NEWBUTTON NWAYBUTTON.INIT MB.NB.PACKITEMS 
                    MB.NWAYBUTTON.ADDITEM)
@@ -43,7 +45,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (NWAYBUTTON.INIT))
                      (ADDVARS (IMAGEOBJTYPES (NWayButton FILE TEDITMENU GETFN MB.GETFN]
         [COMS 
-              (* ;; "Two-state, toggling menu buttons.")

+              (* ;; "Two-state, toggling menu buttons.")

 
               (FNS \TEXTMENU.TOGGLE.CREATE \TEXTMENU.TOGGLE.DISPLAY \TEXTMENU.TOGGLE.SHOWSELFN 
                    \TEXTMENU.TOGGLE.WHENOPERATEDFN \TEXTMENU.TOGGLEFN \TEXTMENU.TOGGLE.INIT 
@@ -52,7 +54,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEXTMENU.TOGGLE.INIT))
                      (ADDVARS (IMAGEOBJTYPES (ToggleButton FILE TEDITMENU GETFN MB.GETFN]
         [COMS 
-              (* ;; "Margin Setting and display")

+              (* ;; "Margin Setting and display")

 
               (FNS DRAWMARGINSCALE MARGINBAR MARGINBAR.CREATE MB.MARGINBAR.SELFN MB.MARGINBAR.SIZEFN
                    MB.MARGINBAR.DISPLAYFN MDESCALE MSCALE MB.MARGINBAR.SHOWTAB MB.MARGINBAR.TABTRACK
@@ -64,11 +66,11 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MARGINBAR.INIT))
                      (ADDVARS (IMAGEOBJTYPES (MarginRuler FILE TEDITMENU GETFN MB.GETFN]
         (COMS 
-              (* ;; "Text menu creation and support")

+              (* ;; "Text menu creation and support")

 
               (FNS \TEXTMENU.START \TEXTMENU.DOC.CREATE TEXTMENU.CLOSEFN)
               (BITMAPS TEXTMENUICON TEXTMENUICONMASK))
-        [COMS                                                (* ; "TEdit-specific support")

+        [COMS                                                (* ; "TEdit-specific support")

               (FNS \TEDITMENU.CREATE \TEDIT.EXPANDED.MENU MB.DEFAULTBUTTON.FN 
                    \TEDITMENU.RECORD.UNFORMATTED MB.DEFAULTBUTTON.ACTIONFN)
               (FNS \TEDIT.CHARLOOKSMENU.CREATE \TEDIT.EXPANDEDCHARLOOKS.MENU \TEDIT.APPLY.BOLDNESS 
@@ -80,7 +82,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                    \TEDIT.SHOW.PARALOOKS \TEDIT.NEUTRALIZE.PARALOOKS.MENU \TEDIT.RECORD.TABLEADERS)
               (FNS \TEDIT.SHOW.PAGEFORMATTING \TEDITPAGEMENU.CREATE \TEDIT.APPLY.PAGEFORMATTING 
                    TEDIT.UNPARSE.PAGEFORMAT)
-              (COMS                                          (* ; "Initialization Code")

+              (COMS                                          (* ; "Initialization Code")

                     (GLOBALVARS TEDIT.EXPANDED.MENU TEDIT.EXPANDEDPARA.MENU TEDIT.CHARLOOKS.MENU 
                            TEDIT.MENUDIVIDER.SPEC TEDIT.EXPANDEDMENU.SPEC TEDIT.CHARLOOKSMENU.SPEC 
                            TEDIT.PARAMENU.SPEC TEDIT.PAGEMENU.SPEC TEDIT.EXPANDED.PAGEMENU)
@@ -4039,19 +4041,19 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 (DEFINEQ
 
 (\TEDIT.MENU.INIT

-  [LAMBDA NIL
                                          (* ; "Edited  4-Jan-2021 13:36 by larry")

-                                                             (* ; "Edited 30-Mar-94 15:53 by jds")

+  [LAMBDA NIL
                                           (* ; "Edited 29-Apr-2021 22:44 by rmk:")


+                                                             (* ; "Edited 30-Mar-94 15:53 by jds")

 
-(* ;;; "Initialize the descriptions for all TEdit menus")

+(* ;;; "Initialize the descriptions for all TEdit menus")

 
-(* ;;; "Divides between the main page layout menu and page-# font submenu")

+(* ;;; "Divides between the main page layout menu and page-# font submenu")

 
     (SETQ TEDIT.MENUDIVIDER.SPEC (LIST (create
 MB.TEXT
                                               MBSTRING _ "
 
 ")))
 
-(* ;;; "The principal expanded menu")

+(* ;;; "The principal expanded menu")

 
     (SETQ TEDIT.EXPANDEDMENU.SPEC (LIST (create
 MB.BUTTON
                                                MBLABEL _ "Quit")
@@ -4138,7 +4140,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                MBSTRING _ "   Message/Phone#:")
                                         (create
 MB.INSERT)))
 
-(* ;;; "The character-looks (font, etc.) menu")

+(* ;;; "The character-looks (font, etc.) menu")

 
     (SETQ TEDIT.CHARLOOKSMENU.SPEC (LIST (create
 MB.TEXT
                                                 MBSTRING _ "Props:  "
@@ -4188,7 +4190,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                                 MBFONT _ (FONTCREATE 'HELVETICA 8))
                                          (create
 MB.INSERT)))
 
-(* ;;; "The paragraph-formatting menu (margins, etc.)")

+(* ;;; "The paragraph-formatting menu (margins, etc.)")

 
     (SETQ TEDIT.PARAMENU.SPEC (LIST (create
 MB.BUTTON
                                            MBLABEL _ 'APPLY
@@ -4217,7 +4219,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                                            MBSTRING _ "  type:")
                                     (create
 MB.INSERT)
                                     (create
 MB.TEXT
-                                           MBSTRING _ "%
+                                           MBSTRING _ "
 Line leading:"
                                            MBFONT _ (FONTCREATE 'HELVETICA 8))
                                     (create
 MB.INSERT)
@@ -4234,7 +4236,7 @@ Line leading:"
                                            MBFONT _ (FONTCREATE 'HELVETICA 8))
                                     (create
 MB.INSERT)
                                     (create
 MB.TEXT
-                                           MBSTRING _ "picas%
+                                           MBSTRING _ "picas
 New Page:  "
                                            MBFONT _ (FONTCREATE 'HELVETICA 8))
                                     (create
 MB.3STATE
@@ -4279,7 +4281,7 @@ Tab Type:  "
                                            MBSTRING _ "
 ")))
 
-(* ;;; "Page-layout menu for columns, page headings, page numbers, etc.")

+(* ;;; "Page-layout menu for columns, page headings, page numbers, etc.")

 
     (SETQ TEDIT.PAGEMENU.SPEC (APPEND (LIST (create
 MB.BUTTON
                                                    MBLABEL _ 'APPLY
@@ -4342,7 +4344,8 @@ Tab Type:  "
                                                    MBBUTTONS _ '(123 xiv XIV)
                                                    MBINITSTATE _ '123)
                                             (create
 MB.TEXT
-                                                   MBSTRING _ "%
+                                                   MBSTRING _ "
+
 		")
                                             (create
 MB.TEXT
                                                    MBSTRING _ "Alignment: ")
@@ -4400,7 +4403,7 @@ Tab Type:  "
                                                   MBSTRING _ "Page Headings:"
                                                   MBFONT _ (FONTCREATE 'HELVETICA 10 'BOLD))
                                            (create
 MB.TEXT
-                                                  MBSTRING _ "%
+                                                  MBSTRING _ "
 	Heading Type:")
                                            (create
 MB.INSERT)
                                            (create
 MB.TEXT
@@ -4419,7 +4422,7 @@ Tab Type:  "
                                                   MBSTRING _ "  Y:")
                                            (create
 MB.INSERT)
                                            (create
 MB.TEXT
-                                                  MBSTRING _ "%
+                                                  MBSTRING _ "
 	Heading Type:")
                                            (create
 MB.INSERT)
                                            (create
 MB.TEXT
@@ -4499,42 +4502,42 @@ Tab Type:  "
 (PUTPROPS TEDITMENU COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
 1991 1992 1993 1994 1995 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6319 33161 (MB.BUTTONEVENTINFN 6329 . 7660) (MB.DISPLAY 7662 . 10030) (MB.SETIMAGE 
-10032 . 10990) (MB.SELFN 10992 . 12407) (MB.SIZEFN 12409 . 13426) (MB.WHENOPERATEDFN 13428 . 13760) (
-MB.COPYFN 13762 . 14224) (MB.GETFN 14226 . 14834) (MB.PUTFN 14836 . 15613) (MB.SHOWSELFN 15615 . 16587
-) (MBUTTON.CREATE 16589 . 17873) (MBUTTON.CHANGENAME 17875 . 18270) (MBUTTON.FIND.BUTTON 18272 . 19288
-) (MBUTTON.FIND.NEXT.BUTTON 19290 . 20685) (MBUTTON.FIND.NEXT.FIELD 20687 . 24401) (MBUTTON.INIT 24403
- . 25193) (MBUTTON.NEXT.FIELD.AS.NUMBER 25195 . 25548) (MBUTTON.NEXT.FIELD.AS.PIECES 25550 . 25980) (
-MBUTTON.NEXT.FIELD.AS.TEXT 25982 . 26404) (MBUTTON.NEXT.FIELD.AS.ATOM 26406 . 27279) (
-MBUTTON.SET.FIELD 27281 . 29337) (MBUTTON.SET.NEXT.FIELD 29339 . 30556) (MBUTTON.SET.NEXT.BUTTON.STATE
- 30558 . 31054) (TEDITMENU.STREAM 31056 . 31665) (\TEDITMENU.SELSCREENER 31667 . 33159)) (33465 43888 
-(MB.CREATE.THREESTATEBUTTON 33475 . 34646) (MB.THREESTATE.DISPLAY 34648 . 37238) (
-MB.THREESTATE.SHOWSELFN 37240 . 40342) (MB.THREESTATE.WHENOPERATEDFN 40344 . 41723) (
-MB.THREESTATEBUTTON.FN 41725 . 42822) (THREESTATE.INIT 42824 . 43886)) (43989 63225 (
-MB.CREATE.NWAYBUTTON 43999 . 47967) (MB.NB.DISPLAYFN 47969 . 50241) (MB.NB.WHENOPERATEDFN 50243 . 
-51275) (MB.NB.SIZEFN 51277 . 54816) (MB.NWAYBUTTON.SELFN 54818 . 56762) (MB.NWAYMENU.NEWBUTTON 56764
- . 57350) (NWAYBUTTON.INIT 57352 . 58205) (MB.NB.PACKITEMS 58207 . 60204) (MB.NWAYBUTTON.ADDITEM 60206
- . 63223)) (63479 74127 (\TEXTMENU.TOGGLE.CREATE 63489 . 64890) (\TEXTMENU.TOGGLE.DISPLAY 64892 . 
-67244) (\TEXTMENU.TOGGLE.SHOWSELFN 67246 . 69608) (\TEXTMENU.TOGGLE.WHENOPERATEDFN 69610 . 70998) (
-\TEXTMENU.TOGGLEFN 71000 . 72080) (\TEXTMENU.TOGGLE.INIT 72082 . 72917) (\TEXTMENU.SET.TOGGLE 72919 . 
-74125)) (74379 111751 (DRAWMARGINSCALE 74389 . 77933) (MARGINBAR 77935 . 85305) (MARGINBAR.CREATE 
-85307 . 88217) (MB.MARGINBAR.SELFN 88219 . 100813) (MB.MARGINBAR.SIZEFN 100815 . 101177) (
-MB.MARGINBAR.DISPLAYFN 101179 . 103864) (MDESCALE 103866 . 104305) (MSCALE 104307 . 104641) (
-MB.MARGINBAR.SHOWTAB 104643 . 106814) (MB.MARGINBAR.TABTRACK 106816 . 108151) (\TEDIT.TABTYPE.SET 
-108153 . 110860) (MARGINBAR.INIT 110862 . 111749)) (112768 130370 (\TEXTMENU.START 112778 . 115970) (
-\TEXTMENU.DOC.CREATE 115972 . 127496) (TEXTMENU.CLOSEFN 127498 . 130368)) (130680 150744 (
-\TEDITMENU.CREATE 130690 . 130990) (\TEDIT.EXPANDED.MENU 130992 . 131696) (MB.DEFAULTBUTTON.FN 131698
- . 134570) (\TEDITMENU.RECORD.UNFORMATTED 134572 . 134910) (MB.DEFAULTBUTTON.ACTIONFN 134912 . 150742)
-) (150745 178128 (\TEDIT.CHARLOOKSMENU.CREATE 150755 . 152895) (\TEDIT.EXPANDEDCHARLOOKS.MENU 152897
- . 153271) (\TEDIT.APPLY.BOLDNESS 153273 . 153558) (\TEDIT.APPLY.CHARLOOKS 153560 . 155491) (
-\TEDIT.APPLY.OLINE 155493 . 155774) (\TEDIT.SHOW.CHARLOOKS 155776 . 157689) (
-\TEDIT.NEUTRALIZE.CHARLOOKS 157691 . 158617) (\TEDIT.FILL.IN.CHARLOOKS.MENU 158619 . 166272) (
-\TEDIT.NEUTRALIZE.CHARLOOKS.MENU 166274 . 169157) (\TEDIT.PARSE.CHARLOOKS.MENU 169159 . 177267) (
-\TEDIT.APPLY.SLOPE 177269 . 177552) (\TEDIT.APPLY.STRIKEOUT 177554 . 177841) (\TEDIT.APPLY.ULINE 
-177843 . 178126)) (178129 210195 (\TEDITPARAMENU.CREATE 178139 . 178519) (\TEDIT.EXPANDEDPARA.MENU 
-178521 . 178841) (\TEDIT.APPLY.PARALOOKS 178843 . 191073) (\TEDIT.SHOW.PARALOOKS 191075 . 202602) (
-\TEDIT.NEUTRALIZE.PARALOOKS.MENU 202604 . 208675) (\TEDIT.RECORD.TABLEADERS 208677 . 210193)) (210196 
-248198 (\TEDIT.SHOW.PAGEFORMATTING 210206 . 226746) (\TEDITPAGEMENU.CREATE 226748 . 227791) (
-\TEDIT.APPLY.PAGEFORMATTING 227793 . 240164) (TEDIT.UNPARSE.PAGEFORMAT 240166 . 248196)) (248503 
-275352 (\TEDIT.MENU.INIT 248513 . 275350)))))
+  (FILEMAP (NIL (6266 33108 (MB.BUTTONEVENTINFN 6276 . 7607) (MB.DISPLAY 7609 . 9977) (MB.SETIMAGE 9979
+ . 10937) (MB.SELFN 10939 . 12354) (MB.SIZEFN 12356 . 13373) (MB.WHENOPERATEDFN 13375 . 13707) (
+MB.COPYFN 13709 . 14171) (MB.GETFN 14173 . 14781) (MB.PUTFN 14783 . 15560) (MB.SHOWSELFN 15562 . 16534
+) (MBUTTON.CREATE 16536 . 17820) (MBUTTON.CHANGENAME 17822 . 18217) (MBUTTON.FIND.BUTTON 18219 . 19235
+) (MBUTTON.FIND.NEXT.BUTTON 19237 . 20632) (MBUTTON.FIND.NEXT.FIELD 20634 . 24348) (MBUTTON.INIT 24350
+ . 25140) (MBUTTON.NEXT.FIELD.AS.NUMBER 25142 . 25495) (MBUTTON.NEXT.FIELD.AS.PIECES 25497 . 25927) (
+MBUTTON.NEXT.FIELD.AS.TEXT 25929 . 26351) (MBUTTON.NEXT.FIELD.AS.ATOM 26353 . 27226) (
+MBUTTON.SET.FIELD 27228 . 29284) (MBUTTON.SET.NEXT.FIELD 29286 . 30503) (MBUTTON.SET.NEXT.BUTTON.STATE
+ 30505 . 31001) (TEDITMENU.STREAM 31003 . 31612) (\TEDITMENU.SELSCREENER 31614 . 33106)) (33412 43835 
+(MB.CREATE.THREESTATEBUTTON 33422 . 34593) (MB.THREESTATE.DISPLAY 34595 . 37185) (
+MB.THREESTATE.SHOWSELFN 37187 . 40289) (MB.THREESTATE.WHENOPERATEDFN 40291 . 41670) (
+MB.THREESTATEBUTTON.FN 41672 . 42769) (THREESTATE.INIT 42771 . 43833)) (43936 63172 (
+MB.CREATE.NWAYBUTTON 43946 . 47914) (MB.NB.DISPLAYFN 47916 . 50188) (MB.NB.WHENOPERATEDFN 50190 . 
+51222) (MB.NB.SIZEFN 51224 . 54763) (MB.NWAYBUTTON.SELFN 54765 . 56709) (MB.NWAYMENU.NEWBUTTON 56711
+ . 57297) (NWAYBUTTON.INIT 57299 . 58152) (MB.NB.PACKITEMS 58154 . 60151) (MB.NWAYBUTTON.ADDITEM 60153
+ . 63170)) (63426 74074 (\TEXTMENU.TOGGLE.CREATE 63436 . 64837) (\TEXTMENU.TOGGLE.DISPLAY 64839 . 
+67191) (\TEXTMENU.TOGGLE.SHOWSELFN 67193 . 69555) (\TEXTMENU.TOGGLE.WHENOPERATEDFN 69557 . 70945) (
+\TEXTMENU.TOGGLEFN 70947 . 72027) (\TEXTMENU.TOGGLE.INIT 72029 . 72864) (\TEXTMENU.SET.TOGGLE 72866 . 
+74072)) (74326 111698 (DRAWMARGINSCALE 74336 . 77880) (MARGINBAR 77882 . 85252) (MARGINBAR.CREATE 
+85254 . 88164) (MB.MARGINBAR.SELFN 88166 . 100760) (MB.MARGINBAR.SIZEFN 100762 . 101124) (
+MB.MARGINBAR.DISPLAYFN 101126 . 103811) (MDESCALE 103813 . 104252) (MSCALE 104254 . 104588) (
+MB.MARGINBAR.SHOWTAB 104590 . 106761) (MB.MARGINBAR.TABTRACK 106763 . 108098) (\TEDIT.TABTYPE.SET 
+108100 . 110807) (MARGINBAR.INIT 110809 . 111696)) (112715 130317 (\TEXTMENU.START 112725 . 115917) (
+\TEXTMENU.DOC.CREATE 115919 . 127443) (TEXTMENU.CLOSEFN 127445 . 130315)) (130627 150691 (
+\TEDITMENU.CREATE 130637 . 130937) (\TEDIT.EXPANDED.MENU 130939 . 131643) (MB.DEFAULTBUTTON.FN 131645
+ . 134517) (\TEDITMENU.RECORD.UNFORMATTED 134519 . 134857) (MB.DEFAULTBUTTON.ACTIONFN 134859 . 150689)
+) (150692 178075 (\TEDIT.CHARLOOKSMENU.CREATE 150702 . 152842) (\TEDIT.EXPANDEDCHARLOOKS.MENU 152844
+ . 153218) (\TEDIT.APPLY.BOLDNESS 153220 . 153505) (\TEDIT.APPLY.CHARLOOKS 153507 . 155438) (
+\TEDIT.APPLY.OLINE 155440 . 155721) (\TEDIT.SHOW.CHARLOOKS 155723 . 157636) (
+\TEDIT.NEUTRALIZE.CHARLOOKS 157638 . 158564) (\TEDIT.FILL.IN.CHARLOOKS.MENU 158566 . 166219) (
+\TEDIT.NEUTRALIZE.CHARLOOKS.MENU 166221 . 169104) (\TEDIT.PARSE.CHARLOOKS.MENU 169106 . 177214) (
+\TEDIT.APPLY.SLOPE 177216 . 177499) (\TEDIT.APPLY.STRIKEOUT 177501 . 177788) (\TEDIT.APPLY.ULINE 
+177790 . 178073)) (178076 210142 (\TEDITPARAMENU.CREATE 178086 . 178466) (\TEDIT.EXPANDEDPARA.MENU 
+178468 . 178788) (\TEDIT.APPLY.PARALOOKS 178790 . 191020) (\TEDIT.SHOW.PARALOOKS 191022 . 202549) (
+\TEDIT.NEUTRALIZE.PARALOOKS.MENU 202551 . 208622) (\TEDIT.RECORD.TABLEADERS 208624 . 210140)) (210143 
+248145 (\TEDIT.SHOW.PAGEFORMATTING 210153 . 226693) (\TEDITPAGEMENU.CREATE 226695 . 227738) (
+\TEDIT.APPLY.PAGEFORMATTING 227740 . 240111) (TEDIT.UNPARSE.PAGEFORMAT 240113 . 248143)) (248450 
+275299 (\TEDIT.MENU.INIT 248460 . 275297)))))
 STOP

library/exports.all

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
 (LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources> ON 
-26-Apr-2021 23:01:58"  T)
+29-Apr-2021 09:49:02"  T)
 (LISPXTERPRI T)
 (RPAQQ MODARITHMACROS (CEIL FLOOR FOLDHI FOLDLO MODUP UNFOLD MOD))
 (PUTPROPS CEIL MACRO ((X N) (FLOOR (IPLUS X (CONSTANT (SUB1 N))) N)))
@@ -53,7 +53,7 @@ MAX.FIXP))))
 LOGOR (LSH 1 (SUB1 SMALLP.LENGTH)) (SUB1 (LSH 1 (SUB1 SMALLP.LENGTH))))) (MIN.SMALLP (IDIFFERENCE -1 
 MAX.SMALLP)) (BITS.PER.FIXP BITSPERCELL) (FIXP.LENGTH (SUB1 BITS.PER.FIXP)) (MAX.FIXP (LOGOR (LSH 1 (
 SUB1 FIXP.LENGTH)) (SUB1 (LSH 1 (SUB1 FIXP.LENGTH))))) (MIN.FIXP (IDIFFERENCE -1 MAX.FIXP)))
-(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:46:21"))
+(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ WINDFLG T)
 (CONSTANTS (WINDFLG T))
@@ -597,7 +597,7 @@ EmulatorSpace of \InterfacePage) %, ADDR))))) (EVAL (CAR ARGS)))))
 \D0BCPLspace (CAR X))))))
 (PUTPROPS EMADDRESSP MACRO (X (LIST (QUOTE EQ) (LIST (QUOTE \HILOC) (CAR X)) (COND ((EQ \D1BCPLspace 
 \D0BCPLspace) \D0BCPLspace) (T (QUOTE (fetch (IFPAGE EmulatorSpace) of \InterfacePage)))))))
-(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE " 7-Feb-2021 11:52:02"))
+(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE COMPILED-CLOSURE (FNHEADER ENVIRONMENT))
 (RPAQQ \COMPILED-CLOSURE 13)
@@ -716,7 +716,7 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 (RPAQQ \NT.PVARCODE 2)
 (RPAQQ \NT.FVARCODE 3)
 (CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE)
-(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "19-Jan-1993 10:45:33"))
+(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" 
 "HARD DISK ERROR" "ATTEMPT TO SET NIL OR T" "ATTEMPT TO RPLAC NIL" "UNDEFINED OR ILLEGAL GO" 
@@ -733,7 +733,7 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 (DEFOPTIMIZER LISPERROR (MESSAGE ARG) (BQUOTE (\LISPERROR (\, ARG) (\, (CL:IF (CL:STRINGP MESSAGE) (
 FOR X IN \ERRORMESSAGELIST AS I FROM 0 WHEN (CL:EQUAL X MESSAGE) DO (RETURN I) FINALLY (RETURN (HELP 
 "Unknown error message" (LIST MESSAGE ARG)))) MESSAGE)))))
-(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:58:35"))
+(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((BIASOFFST (fetch (STREAM FW6) of DATUM) 
 (replace (STREAM FW6) of DATUM with NEWVALUE)) (BBSNCHARS (fetch (STREAM FW7) of DATUM) (replace (
@@ -743,7 +743,7 @@ STREAM FW7) of DATUM with NEWVALUE)) (WRITEXTENSIONFN (fetch (STREAM F1) of DATU
 (PUTPROPS \OUTSTREAMARG MACRO ((STRM NOERRORFLG) (\GETSTREAM STRM (QUOTE OUTPUT) NOERRORFLG)))
 (PUTPROPS \STREAMARG MACRO (OPENLAMBDA (STRM NOERRORFLG) (COND (NOERRORFLG (\GETSTREAM STRM NIL T)) (T
  (\DTEST STRM (QUOTE STREAM))))))
-(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "13-Sep-1990 16:39:58"))
+(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS .SPACECHECK. MACRO ((STRM N) (AND \THISFILELINELENGTH (IGREATERP (IPLUS N (fetch 
 CHARPOSITION of STRM)) \THISFILELINELENGTH) (FRESHLINE STRM))))
@@ -763,7 +763,7 @@ OUTSTREAM)) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE C
  (\BOUT OUTSTREAM NSCHARSETSHIFT) (\BOUT OUTSTREAM (freplace (STREAM CHARSET) of OUTSTREAM with (
 \CHARSET CHARCODE))) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE)))) (freplace CHARPOSITION of OUTSTREAM 
 with (PROGN (* ; "Ugh.  Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1)))))))
-(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "17-Jan-2020 05:51:20"))
+(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (GLOBALVARS \BCPLDISPLAY)
 (ACCESSFNS LINEBUFFER ((LPARCOUNT (fetch FW6 of DATUM) (replace FW6 of DATUM with NEWVALUE)) (
@@ -783,7 +783,7 @@ PEEKEDECHOFLG FLAG) (INSTRINGP FLAG)))))
 (PUTPROPS \INTERMP MACRO ((OFD) (EQ OFD \LINEBUF.OFD)))
 (PUTPROPS \OUTTERMP MACRO ((OFD) (EQ OFD \TERM.OFD)))
 (GLOBALVARS \DEFAULTLINEBUF)
-(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "16-May-1990 12:08:04"))
+(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "29-Apr-2021 09:38:58"))
 
 (DATATYPE HARRAYP ((NULLSLOTS WORD) (* ; "Number of NIL-NIL slots, which break chains") (LASTINDEX 
 WORD) (* ; 
@@ -925,7 +925,7 @@ UNINTERRUPTABLY (replace DTDOLDCNT of DATUM with NEWVALUE) (replace DTDCNT0 of D
 (CONSTANTS \GUARDSTORAGEFULL \GUARD1STORAGEFULL)
 (GLOBALVARS \NxtMDSPage \LeastMDSPage \SecondArrayPage \SecondMDSPage \MDSFREELISTPAGE \MaxSysTypeNum 
 \MaxTypeNumber \STORAGEFULL \INTERRUPTSTATE \PENDINGINTERRUPT)
-(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:57:50"))
+(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ACCESSFNS POINTER ((PAGE# (IPLUS (LLSH (\HILOC DATUM) 8) (LRSH (\LOLOC DATUM) 8))) (WORDINPAGE (
 LOGAND (\LOLOC DATUM) 255)) (CELLINPAGE (LRSH (fetch WORDINPAGE of DATUM) 1)) (BYTEINPAGE (LLSH (fetch
@@ -961,7 +961,7 @@ FIXP) (* ; "Empty cells, space for another 2 CONS cells if we can figure out how
 (CONSTANTS \CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST)
 (PUTPROPS LOCAL MACRO ((X) X))
 (PUTPROPS ALLOCAL MACRO ((X) X))
-(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE " 2-Feb-1995 16:21:44"))
+(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS CHECK MACRO (ARGS (COND ((AND (BOUNDP (QUOTE CHECK)) CHECK) (CONS (QUOTE PROGN) (for I in 
 ARGS collect (LIST (QUOTE OR) I (LIST (QUOTE RAID) (KWOTE (LIST (QUOTE Check-failure%:) I))))))) (T (
@@ -1198,7 +1198,7 @@ CODE)) (T (\PUTBASETHIN BASE OFFSET CODE)))))
 NSCHARSETSHIFT 255) (%#STRINGPWORDS 4))
 (PUTPROPS \NATOMCHARS DMACRO ((AT) (fetch (LITATOM PNAMELENGTH) of AT)))
 (PUTPROPS \NSTRINGCHARS DMACRO ((S) (fetch (STRINGP LENGTH) of S)))
-(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "11-Nov-2018 13:08:04"))
+(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* ; "basic frame pointer") (BLOCKRECORD BFBLOCK ((
 FLAGS BITS 3) (NIL BITS 3) (RESIDUAL FLAG) (* ; "true if this is not a full BF") (PADDING BITS 1) (
@@ -1310,7 +1310,7 @@ BINDNEGVALUES of DATUM) 65535))))))
 (RPAQQ \NT.PVAR 128)
 (RPAQQ \NT.FVAR 192)
 (CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR)
-(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 18:07:37"))
+(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\GETBASE PTR 0)))
 (PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\PUTBASE PTR 0 N)))
@@ -1318,7 +1318,7 @@ BINDNEGVALUES of DATUM) 65535))))))
 (PUTPROPS \RELEASECPAGE MACRO ((STREAM) (PROGN (* ; "Must be under an UNINTERRUPTABLY !") (COND ((
 fetch CBUFDIRTY of STREAM) (\SETIODIRTY STREAM (fetch CPAGE of STREAM)) (replace CBUFDIRTY of STREAM 
 with NIL))) (replace CBUFSIZE of STREAM with 0) (replace CBUFPTR of STREAM with NIL))))
-(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE " 3-Feb-2002 14:11:02"))
+(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\ADDREF PTR))))
 (PUTPROPS \ADDREF DMACRO ((X) ((OPCODES GCREF 0) X)))
@@ -1347,7 +1347,7 @@ CONTENTS (\GETBASEFIXP DATUM 0) (\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAN
 ) (FREEPTR FIXP) (* ; "The GC table entry") (NEXTFREE FIXP) (* ; 
 "If the entry is in use, points to the next entry in this collision chain.  If not, offset (in 1/2-entries) of the next free one on the chain."
 )))
-(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "19-Oct-1994 12:30:11"))
+(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \SYNCODE DMACRO (OPENLAMBDA (TABLE CHAR) (CHECK (type? CHARTABLE TABLE)) (* ; 
 "0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND ((IGREATERP CHAR \MAXTHINCHAR) (OR (AND (fetch (
@@ -1457,7 +1457,7 @@ FLAG) (DISPATCHMACRODEFS POINTER) (* ;
 "The character code used in this read table for multiple escape") (PACKAGECHAR BYTE) (* ; 
 "The character code used in this read table for package delimiter") (READTBLNAME POINTER) (* ; 
 "The canonical 'name' of this read table")) READSA _ (create CHARTABLE))
-(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "12-Feb-2021 22:55:58"))
+(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE STREAM ((* ;; 
 "First 8 words are fixed for BIN, BOUT opcodes.  Used to require length of whole datatype be multiple of 4, but Dolphin dead now."
@@ -1685,7 +1685,7 @@ BYTESPERPAGE))))
 (ACCESSFNS BYTEPTR ((PAGE (FOLDLO DATUM BYTESPERPAGE)) (OFFSET (MOD DATUM BYTESPERPAGE))) (TYPE? (AND 
 (FIXP DATUM) (IGEQ DATUM 0) (ILEQ DATUM \MAXFILEPTR))) (CREATE (IPLUS (UNFOLD PAGE BYTESPERPAGE) 
 OFFSET)))
-(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "26-Apr-2021 22:59:15"))
+(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \FIXP)) (TYPE? (EQ (NTYPX DATUM) 
 \FIXP)))
@@ -1717,7 +1717,7 @@ ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* Add high parts
 MAX.SMALL.INTEGER) 0) (T (ADD1 HX)))) (IDIFFERENCE LX (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER LY)))) (T (
 IPLUS LX LY)))) (\PUTBASE X 0 HX) (RETURN X))))
 (PUTPROPS PutUnboxed DMACRO (= . \PUTFIXP))
-(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 18:47:56"))
+(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* ; 
 "execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\FLOATBOX ((
@@ -1739,7 +1739,7 @@ FLOATING FLOATP) (CADR VAR)) (HELP))) (\, (CAR VAR))))))) (SETQ NEXT (fetch (FX
 IDIFFERENCE NEXT WORDSPERCELL)))))) (COND ((LISTP X) (BQUOTE (SETQ (\, (CAR X)) (\FLOATBOX (\, FORMS))
 ))) (T (BQUOTE (SETQ (\, X) (\, FORMS)))))))) (\MAKEFREEBLOCK NEXT (TIMES (\, (LENGTH ARGS)) 
 WORDSPERCELL)) (replace (FX NEXTBLOCK) of AL with NEXT) (PROGN (\,@ FORMS))))))))
-(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "16-May-1990 19:26:51"))
+(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DEFOPTIMIZER FONTPROP (&REST ARGS) (SELECTQ (AND (EQ (CAADR ARGS) (QUOTE QUOTE)) (CADADR ARGS)) (
 ASCENT (LIST (QUOTE FONTASCENT) (CAR ARGS))) (DESCENT (LIST (QUOTE FONTDESCENT) (CAR ARGS))) (HEIGHT (
@@ -1803,7 +1803,7 @@ SIGNED-BYTE 16)) :INITIAL-ELEMENT 0)))
 )
 (RPAQQ \MAXNSCHAR 65535)
 (CONSTANTS (\MAXNSCHAR 65535))
-(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2021 11:39:44"))
+(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (BLOCKRECORD KEYACTION ((* ;; 
 "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage."
@@ -1850,7 +1850,7 @@ replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS) (replace (IOPAGE NEWMOUSESTATE)
 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 \EM.DISPINTERRUPT \EM.DISPLAYHEAD 
 \EM.CURSORBITMAP \MACHINETYPE \DEFAULTKEYACTION \COMMANDKEYACTION \CURRENTKEYACTION 
 \PERIODIC.INTERRUPT \PERIODIC.INTERRUPT.FREQUENCY)
-(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "13-Feb-2021 23:24:49"))
+(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) (PBTDESTBPL SIGNEDWORD) (
 PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (
@@ -1946,7 +1946,7 @@ fetch (\DISPLAYDATA DDXOFFSET) of DD)))
 (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
 (GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN 
 SCREENWIDTH SCREENHEIGHT)
-(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "18-Apr-1994 00:20:42"))
+(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 (
 ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM) -1)) (PTOP (
@@ -1991,7 +1991,7 @@ PRINTCURSOR))))))))
 (ADDTOVAR GLOBALVARS GRAYSHADE)
 (RECORD HLS (HUE LIGHTNESS SATURATION))
 (RECORD RGB (RED GREEN BLUE))
-(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Sep-1994 17:07:04"))
+(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ADDTOVAR SYSSPECVARS \INTERRUPTABLE)
 (PUTPROPS UNINTERRUPTABLY INFO EVAL)
@@ -2016,7 +2016,7 @@ PENDING BITS 8) (* ; "Pending-interrupt flags") (IN-PROGRESS BITS 8) (* ;
 (PUTPROPS \TAKEINTERRUPT DMACRO ((PREFORM POSTFORM) (DECLARE (GLOBALVARS \PENDINGINTERRUPT)) (COND ((
 AND \PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\INTERRUPTABLE) (
 \CALLINTERRUPTED)) T) POSTFORM))))
-(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "17-Sep-1992 10:42:38"))
+(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS UNLESSRDSYS MACRO ((NORMAL RDSYS) NORMAL))
 (PUTPROPS UNLESSINEW MACRO ((NORMAL I-NEW) NORMAL))
@@ -2056,7 +2056,7 @@ ARGS)))))
 (PUTPROPS WITHIN MACRO ((A B C) (AND (IGEQ A B) (ILESSP A (IPLUS B C)))))
 (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS)
 (PUTPROPS IABS MACRO (OPENLAMBDA (A) (COND ((IGEQ A 0) A) (T (IMINUS A)))))
-(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Mar-1994 10:48:02"))
+(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP 
 (QUOTE COPY)))))
@@ -2129,7 +2129,7 @@ SCDESTINATION) of DATUM) (fetch (BITMAP BITMAPBITSPERPIXEL) of (fetch (SCREEN SC
 )) (T 1))) (SCREGION (create REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ (fetch (SCREEN SCWIDTH) of DATUM) 
 HEIGHT _ (fetch (SCREEN SCHEIGHT) of DATUM))))) (SYSTEM))
 (GLOBALVARS WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW)
-(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE " 9-Apr-2000 17:36:29"))
+(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS NNLITATOM MACRO (OPENLAMBDA (X) (AND X (LITATOM X))))
 (PUTPROPS \NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X))))
@@ -2144,7 +2144,7 @@ VAR MSG)))))))))
 (PUTPROPS \MACRO.EVAL DMACRO (Z (PROG ((X (EXPANDMACRO (CAR Z) T))) (if (EQ X (CAR Z)) then (ERROR 
 "No macro property -- \MACRO.EVAL" X) else (RETURN (EVAL X))))))
 (DEFOPTIMIZER \MACRO.MX (FORM) FORM)
-(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:26:31"))
+(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ MASK0WORD1'S 32767)
 (RPAQQ MASK1WORD0'S 32768)
@@ -2212,11 +2212,11 @@ LOCALVARS \ByteNo \BitMask \Byte)) (SETQ \Byte (\GETBASEBYTE BASE \ByteNo)) (if
 \BitMask \Byte)) then (NOT (EQ 0 VAL)) else (EQ 0 VAL)) then (\PUTBASEBYTE BASE \ByteNo (LOGXOR 
 \BitMask \Byte))) VAL) (FOLDLO OFFST BITSPERBYTE) (MASK.1'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE))
  (IMOD OFFST BITSPERBYTE)) 1))))
-(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:46:37"))
+(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \MAXFILEPAGE 65534)
 (CONSTANTS \MAXFILEPAGE)
-(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "21-Mar-2021 21:33:01"))
+(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \UPDATETIMERS MACRO (NIL (* * Moves excess time from the processor clock to our software 
 clocks. Needs to be run often, uninterruptably, preferably from the vertical retrace interrupt) (* Get
@@ -2244,7 +2244,7 @@ of \MISCSTATS)) 1000) (* Increment clocks by 1 second) (\BOXIPLUS (LOCF (fetch S
 62500))
 (PUTPROPS ALTO.TO.LISP.DATE MACRO ((DATE) (LOGXOR DATE -2147483648)))
 (PUTPROPS LISP.TO.ALTO.DATE MACRO ((DATE) (LOGXOR DATE -2147483648)))
-(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:13:11"))
+(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1)
 (PUTPROPS IMAGEOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) (
@@ -2279,7 +2279,7 @@ _ (FUNCTION NILL) IMTRANSLATE _ (FUNCTION NILL) IMPUSHSTATE _ (FUNCTION NILL) IM
 NILL) IMSCALE2 _ (FUNCTION NILL) IMDEFAULTSTATE _ (FUNCTION NILL) IMBLTCHAR _ (FUNCTION \MEDW.BLTCHAR)
  IMXOFFSET _ (FUNCTION \MEDW.XOFFSET) IMYOFFSET _ (FUNCTION \MEDW.YOFFSET))
 (GLOBALVARS \NOIMAGEOPS)
-(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:33:59"))
+(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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") (
@@ -2319,7 +2319,7 @@ CREATECELL \FIXP) PROCFX0 _ \STACKHI)
 (PUTPROPS TTY.PROCESSP MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE (OR (NULL (THIS.PROCESS)
 ) (EQ (THIS.PROCESS) (TTY.PROCESS))))))))
 (GLOBALVARS \RUNNING.PROCESS \TTY.PROCESS \PROC.RESTARTME \PROC.RESETME \PROC.ABORTME)
-(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "17-Jun-1999 21:58:52"))
+(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \BACKCHAR MACRO (OPENLAMBDA (STREAM) (* ; "Backs up over an NS character") (\BACKNSCHAR 
 STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256))))
@@ -2467,17 +2467,17 @@ IPLUS CH1 64)))))
 (PUTPROPS \EUC.KANJI.FIRST.BYTEP MACRO ((CHAR) (< 160 CHAR 255)))
 (PUTPROPS \GAIJIP MACRO ((CHAR) (EQ CHAR 143)))
 (PUTPROPS \EUC.HANKAKUP MACRO ((CHAR) (EQ CHAR 142)))
-(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "19-Apr-2021 21:52:10"))
+(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS EMPASSWORDLOC DMACRO (LAMBDA NIL (* lmm "24-MAR-83 06:46") (fetch (IFPAGE UserPswdAddr) of 
 \InterfacePage)))
 (PUTPROPS \DECRYPT.PWD.CHAR MACRO ((CHAR) (LOGXOR CHAR 73)))
-(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "16-May-1990 21:02:21"))
+(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ MICASPERINCH 2540)
 (RPAQQ MICASPERMILLIMETER 100)
 (CONSTANTS (MICASPERINCH 2540) (MICASPERMILLIMETER 100))
-(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "16-Apr-2018 21:56:38"))
+(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQ MICASPERPT (FQUOTIENT 2540 72))
 (RPAQQ IHALFMICASPERPT 17)
@@ -2485,10 +2485,10 @@ IPLUS CH1 64)))))
 (CONSTANTS (MICASPERPT (FQUOTIENT 2540 72)) (IHALFMICASPERPT 17) (IMICASPERPT 35))
 (DEFMACRO \MICASTOPTS (MICAS) (COND ((NUMBERP MICAS) (QUOTIENT MICAS MICASPERPT)) (T (BQUOTE (QUOTIENT
  (\, MICAS) MICASPERPT)))))
-(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "16-Apr-2018 22:15:08"))
+(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT)
-(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 12:21:21"))
+(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \MISCN-TABLE-LIST ((USER-SUBR 0 \USER-SUBR-UFN T) (CL:VALUES 1 CL::VALUES-UFN NIL) (CL:SXHASH 2
  CL::SXHASH-UFN NIL) (CL::EQLHASHBITSFN 3 CL::EQLHASHBITSFN-UFN NIL) (STRINGHASHBITS 4 
@@ -2522,7 +2522,7 @@ DLD-GET-SYMBOL 171) (DLD-GET-FUNC 172) (DLD-FUNCTION-EXECUTABLE-P 173) (DLD-LIST
 ) (C-MALLOC 175) (C-FREE 176) (C-PUTBASEBYTE 177) (C-GETBASEBYTE 178) (CHAR-OPENFILE 200) (CHAR-BIN 
 201) (CHAR-BOUT 202) (CHAR-IOCTL 203) (CHAR-CLOSEFILE 204) (CHAR-EOFP 205) (CHAR-READP 206) (CHAR-BINS
  207) (CHAR-BOUTS 208) (CHAR-FILLBUFFER 209)))
-(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "17-Mar-2021 11:10:55"))
+(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 STOP
 

loadups/full.dribble

@@ -1,5 +1,5 @@
 
-Full loadup started at 26-Apr-2021 23:01:47 while connected to 
+Full loadup started at 30-Apr-2021 14:49:55 while connected to 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>
 
 loading POSTSCRIPTSTREAM
@@ -69,9 +69,9 @@ compiled on 18-May-2018 09:16:59
 File created 20-Apr-2018 08:07:35
 TEDITCOMMANDCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;1
-compiled on 18-May-2018 09:18:38
-File created 25-Aug-94 13:26:23
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;4
+compiled on 30-Apr-2021 14:42:15
+File created 30-Apr-2021 14:42:15
 TEDITSCREENCOMS
 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1
@@ -94,9 +94,9 @@ compiled on 18-May-2018 09:17:41
 File created 29-Jan-99 17:34:39
 TEDITHISTORYCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;1
-compiled on 18-May-2018 09:17:06
-File created 19-May-2001 11:45:53
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;5
+compiled on 30-Apr-2021 14:46:41
+File created 30-Apr-2021 14:46:41
 TEDITFILECOMS
 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.LCOM;1
@@ -139,9 +139,9 @@ compiled on 18-May-2018 09:18:32
 File created 25-Aug-94 10:55:28
 TEDITPAGECOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;1
-compiled on  4-Jan-2021 13:48:55
-File created  4-Jan-2021 13:48:43
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;4
+compiled on 29-Apr-2021 22:44:22
+File created 29-Apr-2021 22:44:22
 TEDITMENUCOMS
 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1

loadups/lisp.dribble

@@ -584,7 +584,7 @@ File created 16-May-90 11:46:37
 loading CMLPATHNAME
 loading HPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;2
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;3
 compiled on 26-Apr-2021 14:46:05
 File created 26-Apr-2021 14:45:00
 loading AARITH

scripts/loadup-all.sh

@@ -7,10 +7,16 @@ if [ ! -x run-medley ] ; then
     exit 1
 fi
 
+# set timestamp
+mkdir -p ./tmp
+touch ./tmp/loadup-timestamp
+
 ./scripts/loadup-init.sh && \
     ./scripts/loadup-mid-from-init.sh && \
     ./scripts/loadup-lisp-from-mid.sh && \
     ./scripts/loadup-full.sh && \
-    ./scripts/loadup-aux.sh
+    ./scripts/loadup-aux.sh && \
+    echo "**** DONE ****"
+
+
 
-echo tada!

scripts/loadup-aux.sh

@@ -7,11 +7,21 @@ if [ ! -f run-medley ] ; then
     exit 1
 fi
 
+touch tmp/loadup.timestamp
+
 scr="-sc 1024x768 -g 1042x790"
 
 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 -greet "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
 
-echo ---- made ----
-ls -l tmp/exports.all tmp/whereis.hash
-echo --------------
+if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
+    
+    echo ---- made ----
+    ls -l tmp/whereis.hash tmp/exports.all
+    echo --------------
+
+else
+    echo XXXXX FAILURE XXXXX
+    ls -l tmp/whereis.hash tmp/exports.all
+    exit 1
+fi

scripts/loadup-full.sh

@@ -8,11 +8,18 @@ if [ ! -x run-medley ] ; then
 fi
 scr="-sc 1024x768 -g 1042x790"
 
-rm -f ~/rem.cm
+touch tmp/loadup.timestamp
 
-./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/tmp/lisp.sysout
+./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
 
+if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
+    
+    echo ---- made ----
+    ls -l tmp/full.*
+    echo --------------
 
-echo ----- made ----
-ls -l tmp/full.sysout
-echo ---------------
+else
+    echo XXXXX FAILURE XXXXX
+    ls -l tmp/full.*
+    exit 1
+fi

scripts/loadup-init.sh

@@ -10,9 +10,17 @@ fi
 scr="-sc 1024x768 -g 1042x790"
 
 mkdir -p "$MEDLEYDIR/tmp"
+touch tmp/loadup.timestamp
 
 ./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
 
-echo ---- made ----
-ls -l tmp/*[WMShlet]
-echo --------------
+if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
+    
+    echo ---- made ----
+    ls -l tmp/init.* tmp/RDSYS* tmp/I-NEW*
+    echo --------------
+
+else
+    echo XXXXX FAILURE XXXXX
+    exit 1
+fi

scripts/loadup-lisp-from-mid.sh

@@ -7,12 +7,19 @@ if [ ! -f run-medley ] ; then
     exit 1
 fi
 
+touch tmp/loadup.timestamp
+
 scr="-sc 1024x768 -g 1042x790"
 
 
-./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-LISP.CM tmp/init-mid.sysout
-
-echo ----- created: -------
-ls -l tmp/lisp.*[te]
-echo ----------------------
+./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
 
+if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
+    
+    echo ---- made ----
+    ls -l tmp/lisp.*
+    echo --------------
+else
+    echo XXXXX FAILURE XXXXX
+    exit 1
+fi

scripts/loadup-mid-from-init.sh

@@ -8,10 +8,19 @@ if [ ! -x run-medley ] ; then
 fi
 
 mkdir -p "$MEDLEYDIR/tmp"
+touch tmp/loadup.timestamp
+
 scr="-sc 1024x768 -g 1042x790"
 
 ./run-medley -prog ldeinit -greet $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
 
-echo ---- made ----
-ls -l tmp/
-echo --------------
+if [ tmp/init-mid.sysout -nt tmp/loadup.timestamp ]; then
+    echo 
+    echo ---- made ----
+    ls -l tmp/init-mid.sysout
+    echo --------------
+
+else
+    echo XXXXX FAILURE XXXXX
+    exit 1
+fi

sources/LOADUP-FULL

@@ -1,19 +1,17 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "26-Mar-2021 10:47:11" {DSK}<home>larry>ilisp>medley>sources>LOADUP-FULL.;3
 5393   
+
(FILECREATED "29-Apr-2021 22:31:24" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;2
 4691   
 
-      changes to%:  (FNS LOADUP-FULL)
+      changes to%:  (VARS LOADUP-FULLCOMS)
+                    (FNS LOADUP-FULL)
 
-      previous date%: "25-Mar-2021 22:09:37" {DSK}<home>larry>ilisp>medley>sources>LOADUP-FULL.;2)
+      previous date%: "26-Mar-2021 10:47:11" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;1)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
 
-(RPAQQ LOADUP-FULLCOMS
 [(COMMANDS "cd" "pwd" "ls")
+(RPAQQ LOADUP-FULLCOMS
 ((COMMANDS "cd" "pwd" "ls")
                             (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
-                            (P (FIXMETA))
-                            (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS 
-                                   MISSINGCHARSETDISPLAYFONTCOERCIONS)
-                            (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (LOADUP-FULL T])
+                            (P (FIXMETA))))
 
 (DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
 
@@ -49,7 +47,7 @@
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA (DOIT)
                                       (* ; "Edited 26-Mar-2021 10:44 by larry")


+  [LAMBDA (DOIT)
                                        (* ; "Edited 29-Apr-2021 22:27 by rmk:")


                                                           (* ; "Edited 14-May-2018 15:01 by kaplan")


                                                             (* ; "Edited 28-Sep-2020 12:35 by rmk:")


                                                             (* ; "Edited 21-Apr-2018 07:27 by rmk:")


@@ -91,15 +89,7 @@
        ((WINDOWP *WHO-LINE*)
         (CLOSEW *WHO-LINE*)))
     (SETTOPVAL 'INITIALS NIL)
-    (DRIBBLE)
-
-    (* ;; "Set up for making the sysout, if we made it this far.")

-
-    (CL:WHEN DOIT
-        (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T)
-        (BKSYSBUF (CONCAT "(IL:ENDLOADUP)" "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " 
-                         " Full Sysout%")" "
-(IL:LOGOUT T)")))])
+    (DRIBBLE])
 
 (FIXMETA

   [LAMBDA NIL
                                           (* ; "Edited 25-Jun-2017 17:12 by rmk:")

@@ -109,15 +99,7 @@
 )
 
 (FIXMETA
)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
-)
-(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 
-
-(LOADUP-FULL
 T)
-)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (887 5168 (LOADFULLFONTS 897 . 2485) (LOADUP-FULL 2487 . 4922) (FIXMETA 4924 . 5166))))
+  (FILEMAP (NIL (685 4653 (LOADFULLFONTS 695 . 2283) (LOADUP-FULL 2285 . 4407) (FIXMETA 4409 . 4651))))
 )
 STOP

sources/LOADUP-FULL.CM

@@ -0,0 +1 @@
+"

sources/LOADUP-LISP

@@ -1,10 +1,9 @@
 (DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
-
(FILECREATED "28-Mar-2021 10:06:54" |{DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;4|
 8886   
+
(FILECREATED "29-Apr-2021 22:31:24" |{DSK}<Users>larry>medley>SOURCES>LOADUP-LISP.;2|
 8463   
 
       |changes| |to:|  (FNS LOADUP-LISP)
 
-      |previous| |date:| "25-Mar-2021 16:34:41" |{DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;3|
-)
+      |previous| |date:| "28-Mar-2021 10:06:54" |{DSK}<Users>larry>medley>SOURCES>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -18,7 +17,7 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA NIL
                                         (* \; "Edited 28-Mar-2021 10:06 by larry")

+  (LAMBDA NIL
                                          (* \; "Edited 29-Apr-2021 22:30 by rmk:")

     (SETQQ COMPILE.EXT LCOM)                                 (* \; "should be set earlier")

     (DRIBBLE (MEDLEYDIR
 "tmp" "lisp.dribble" T))
     (FOR
 X IN
 BOOTLOADEDFILES DO
 (CL:UNLESS (MEMB X SYSFILES)
@@ -103,7 +102,7 @@
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
     (DRIBBLE)
-    (SETQ MAKESYSNAME ':MEDLEY)))
+    (SETQ MAKESYSNAME ':LISP)))
 )
 (DEFINEQ
 
@@ -159,28 +158,27 @@
 
 (RPAQ? FILING.ENUMERATION.DEPTH
 T)
 
-(RPAQQ MEDLEY-INIT-VARS
 ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" 
-                                                                      "internal/library")))
-                             (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
-                             (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
-                             (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
-                             (IRM.DINFOGRAPH)
-                             (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
-                             (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
-                                                               (UNIX-GETENV "HOME"))))
-                             (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
-                                               (,LOGINHOST/DIR "INIT")))
-                             (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" 
-                                                                        "fonts/altofonts")))
-                             (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
-                             (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
-                             (XCL::*WHERE-IS-CASH-FILES*)))
+(RPAQQ MEDLEY-INIT-VARS

+       ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library")))
+        (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
+        (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
+        (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
+        (IRM.DINFOGRAPH)
+        (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
+        (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+                                          (UNIX-GETENV "HOME"))))
+        (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
+                          (,LOGINHOST/DIR "INIT")))
+        (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts")))
+        (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
+        (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
+        (XCL::*WHERE-IS-CASH-FILES*)))
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS XCL::*WHERE-IS-CASH-FILES* LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
        SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (764 4856 (LOADUP-LISP 774 . 4854)) (4857 7356 (MEDLEY-INIT-VARS 4867 . 6012) (MEDLEYDIR
- 6014 . 7354)))))
+  (FILEMAP (NIL (753 4843 (LOADUP-LISP 763 . 4841)) (4844 7343 (MEDLEY-INIT-VARS 4854 . 5999) (MEDLEYDIR
+ 6001 . 7341)))))
 STOP