Merge pull request #352 from Interlisp/restore-versions

Add small util for restoring versions from git history

library/SYSEDIT

@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "12-Jun-90 15:31:15" {DSK}<usr>local>lde>lispcore>library>SYSEDIT.;2
 1411   
+
(FILECREATED " 6-May-2021 16:22:01" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;6
 1312   
 
       changes to%:  (VARS SYSEDITCOMS)
 
-      previous date%: " 9-Mar-87 10:53:12" {DSK}<usr>local>lde>lispcore>library>SYSEDIT.;1)
+      previous date%: "12-Jun-90 15:31:15" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
 
 
 (* ; "
-Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT SYSEDITCOMS)
@@ -15,7 +15,6 @@ Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation.  All rights reserve
 (RPAQQ SYSEDITCOMS

        [(VARS (CLISPIFYPRETTYFLG)
               (MSRECORDTRANFLG T)
-              (MSMACROPROPS COMPILERMACROPROPS)
               (RECOMPILEDEFAULT 'CHANGES)
               (CLEANUPOPTIONS '(RC F))
               (GLOBALVARFLG T)
@@ -30,8 +29,6 @@ Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation.  All rights reserve
 
 (RPAQQ MSRECORDTRANFLG
 T)
 
-(RPAQ MSMACROPROPS
 COMPILERMACROPROPS)
-
 (RPAQQ RECOMPILEDEFAULT
 CHANGES)
 
 (RPAQQ CLEANUPOPTIONS
 (RC F))
@@ -46,7 +43,7 @@ Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation.  All rights reserve
             (DIRECTORIES DIRECTORIES))
            (FILESLOAD (SOURCE)
                   EXPORTS.ALL))
-(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990))
+(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP

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)                                  (* ; 
+                   LF.EOLC)                                  (* ; 
-
                                          "This file is on a non-CR host;  make a note to cache it")

+
                                          "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)
+                           (* ;; 
-                                                             (* ; 
+
                         "RMK: BOUT ptimizations would miss external formats and EOL conventions")

-
                                            "The string is fat: Copy twice as many bytes as chars.")

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

+
                                            "The string is fat: Copy twice as many bytes as chars.")
-                                 (for
 I from
 1 to
 (fetch
 (PIECE PLEN) of
 PC)
+
                                                           (for I from 1 to (fetch
-                                    as
 CH instring PSTR do
 (\BOUT OFILE CH]
+
                                                           (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
+  (FILEMAP (NIL (3052 57958 (TEDIT.BUILD.PCTB 3062 . 37515) (\TEDIT.CONVERT.FOREIGN.FORMAT 37517 . 38958
-) (TEDIT.FORMATTEDFILEP 38928 . 42792) (TEDIT.GET 42794 . 51610) (TEDIT.PARSE.PAGEFRAMES1 51612 . 
+) (TEDIT.FORMATTEDFILEP 38960 . 42824) (TEDIT.GET 42826 . 51642) (TEDIT.PARSE.PAGEFRAMES1 51644 . 
-53318) (\ARBIN 53320 . 53941) (\ATMIN 53943 . 54272) (\DWIN 54274 . 54552) (\STRINGIN 54554 . 55151) (
+53350) (\ARBIN 53352 . 53973) (\ATMIN 53975 . 54304) (\DWIN 54306 . 54584) (\STRINGIN 54586 . 55183) (
-\TEDIT.FORMATTEDP1 55153 . 57417) (\TEDIT.SET.WINDOW 57419 . 57924)) (57962 78490 (TEDIT.INCLUDE 57972
+\TEDIT.FORMATTEDP1 55185 . 57449) (\TEDIT.SET.WINDOW 57451 . 57956)) (57994 78522 (TEDIT.INCLUDE 58004
- . 69359) (TEDIT.RAW.INCLUDE 69361 . 78488)) (78524 122097 (TEDIT.PUT 78534 . 88907) (TEDIT.PUT.PCTB 
+ . 69391) (TEDIT.RAW.INCLUDE 69393 . 78520)) (78556 122796 (TEDIT.PUT 78566 . 88939) (TEDIT.PUT.PCTB 
-88909 . 115833) (\TEDIT.PUTRESET 115835 . 116081) (TEDIT.PUT.PIECE.DESCRIPTOR 116083 . 118546) (
+88941 . 116532) (\TEDIT.PUTRESET 116534 . 116780) (TEDIT.PUT.PIECE.DESCRIPTOR 116782 . 119245) (
-\ARBOUT 118548 . 119748) (\ATMOUT 119750 . 120265) (\DWOUT 120267 . 120550) (\STRINGOUT 120552 . 
+\ARBOUT 119247 . 120447) (\ATMOUT 120449 . 120964) (\DWOUT 120966 . 121249) (\STRINGOUT 121251 . 
-121004) (\TEDIT-OPEN-FONT-FILE 121006 . 122095)) (122098 132610 (\TEDIT.GET.CHARLOOKS.LIST 122108 . 
+121703) (\TEDIT-OPEN-FONT-FILE 121705 . 122794)) (122797 133309 (\TEDIT.GET.CHARLOOKS.LIST 122807 . 
-122513) (\TEDIT.GET.SINGLE.CHARLOOKS 122515 . 125560) (\TEDIT.PUT.CHARLOOKS.LIST 125562 . 127357) (
+123212) (\TEDIT.GET.SINGLE.CHARLOOKS 123214 . 126259) (\TEDIT.PUT.CHARLOOKS.LIST 126261 . 128056) (
-\TEDIT.PUT.SINGLE.CHARLOOKS 127359 . 132608)) (132611 146890 (\TEDIT.GET.PARALOOKS.LIST 132621 . 
+\TEDIT.PUT.SINGLE.CHARLOOKS 128058 . 133307)) (133310 147589 (\TEDIT.GET.PARALOOKS.LIST 133320 . 
-133034) (\TEDIT.GET.SINGLE.PARALOOKS 133036 . 139430) (\TEDIT.PUT.PARALOOKS.LIST 139432 . 140426) (
+133733) (\TEDIT.GET.SINGLE.PARALOOKS 133735 . 140129) (\TEDIT.PUT.PARALOOKS.LIST 140131 . 141125) (
-\TEDIT.PUT.SINGLE.PARALOOKS 140428 . 146888)) (147198 208459 (TEDIT.BUILD.PCTB2 147208 . 160564) (
+\TEDIT.PUT.SINGLE.PARALOOKS 141127 . 147587)) (147897 209158 (TEDIT.BUILD.PCTB2 147907 . 161263) (
-\TEDIT.GET.CHARLOOKS.LIST2 160566 . 160973) (\TEDIT.GET.SINGLE.CHARLOOKS2 160975 . 163887) (
+\TEDIT.GET.CHARLOOKS.LIST2 161265 . 161672) (\TEDIT.GET.SINGLE.CHARLOOKS2 161674 . 164586) (
-\TEDIT.PUT.SINGLE.PARALOOKS2 163889 . 168603) (\TEDIT.PUT.SINGLE.CHARLOOKS2 168605 . 173101) (
+\TEDIT.PUT.SINGLE.PARALOOKS2 164588 . 169302) (\TEDIT.PUT.SINGLE.CHARLOOKS2 169304 . 173800) (
-\TEDIT.GET.PARALOOKS.LIST2 173103 . 173510) (\TEDIT.GET.SINGLE.PARALOOKS2 173512 . 178100) (
+\TEDIT.GET.PARALOOKS.LIST2 173802 . 174209) (\TEDIT.GET.SINGLE.PARALOOKS2 174211 . 178799) (
-TEDIT.PUT.PCTB2 178102 . 205763) (\TEDIT.PUT.CHARLOOKS.LIST2 205765 . 207562) (
+TEDIT.PUT.PCTB2 178801 . 206462) (\TEDIT.PUT.CHARLOOKS.LIST2 206464 . 208261) (
-\TEDIT.PUT.PARALOOKS.LIST2 207564 . 208457)) (208536 229660 (TEDIT.BUILD.PCTB1 208546 . 218736) (
+\TEDIT.PUT.PARALOOKS.LIST2 208263 . 209156)) (209235 230359 (TEDIT.BUILD.PCTB1 209245 . 219435) (
-TEDIT.GET.PAGEFRAMES1 218738 . 218993) (\TEDIT.GET.CHARLOOKS1 218995 . 222545) (\TEDIT.GET.PARALOOKS1 
+TEDIT.GET.PAGEFRAMES1 219437 . 219692) (\TEDIT.GET.CHARLOOKS1 219694 . 223244) (\TEDIT.GET.PARALOOKS1 
-222547 . 227128) (TEDIT.GET.OBJECT1 227130 . 229658)) (229720 245426 (TEDIT.BUILD.PCTB0 229730 . 
+223246 . 227827) (TEDIT.GET.OBJECT1 227829 . 230357)) (230419 246125 (TEDIT.BUILD.PCTB0 230429 . 
-235437) (TEDIT.GET.CHARLOOKS0 235439 . 239458) (TEDIT.GET.OBJECT0 239460 . 241988) (
+236136) (TEDIT.GET.CHARLOOKS0 236138 . 240157) (TEDIT.GET.OBJECT0 240159 . 242687) (
-TEDIT.GET.PARALOOKS0 241990 . 245424)))))
+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")

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


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

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

loadups/full.dribble

@@ -1,10 +1,10 @@
 
-Full loadup started at 26-Apr-2021 23:01:47 while connected to 
+Full loadup started at  6-May-2021 15:26:50 while connected to 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>
+{DSK}<home>larry>ilisp>medley>
 
 loading POSTSCRIPTSTREAM
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
 compiled on 14-May-2018 10:53:32
 File created 14-May-2018 10:52:48
 POSTSCRIPTSTREAMCOMS
@@ -16,147 +16,147 @@ Loading FULL fonts...
 FULL fonts loaded
 loading CHAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>CHAT.LCOM;1
 compiled on 25-Oct-93 12:23:25
 File created 20-Jan-93 13:46:52
 CHATCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>DMCHAT.LCOM;1
 compiled on 25-Feb-93 18:08:53
 File created 20-Jan-93 13:49:09
 DMCHATCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.LCOM;1
 compiled on 24-Feb-93 19:37:23
 File created  4-Jul-90 02:21:01
 CHATTERMINALCOMS
 loading PRESS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>PRESS.LCOM;1
 compiled on  5-Feb-2021 22:18:09
 File created  5-Feb-2021 22:18:06
 PRESSCOMS
 loading INTERPRESS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.LCOM;6
+{DSK}<home>larry>ilisp>medley>sources>INTERPRESS.LCOM;7
 compiled on 16-Apr-2018 21:56:38
 File created 16-Apr-2018 21:56:38
 INTERPRESSCOMS
 loading TEDIT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDIT.LCOM;1
 compiled on 18-May-2018 09:16:24
 File created 19-Apr-2018 12:22:03
 TEDITCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITDCL.LCOM;1
-compiled on 18-May-2018 09:17:04
+compiled on 30-Apr-2021 17:26:58
-File created 25-Aug-94 10:53:00
+File created 30-Apr-2021 17:26:17
 TEDITDCLCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>PCTREE.LCOM;1
 compiled on 18-May-2018 09:19:35
 File created 19-Apr-2018 12:19:49
 PCTREECOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEXTOFD.LCOM;1
 compiled on 11-Feb-2001 12:06:43
 File created 11-Feb-2001 12:06:42
 TEXTOFDCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1
 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
+{DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.LCOM;1
-compiled on 18-May-2018 09:18:38
+compiled on 30-Apr-2021 14:42:15
-File created 25-Aug-94 13:26:23
+File created 30-Apr-2021 14:42:15
 TEDITSCREENCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITABBREV.LCOM;1
 compiled on  6-Aug-2020 14:52:14
 File created  6-Aug-2020 14:52:14
 TEDITABBREVCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.LCOM;1
 compiled on 18-May-2018 09:17:44
 File created 29-Jan-99 17:33:35
 TEDITLOOKSCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITFIND.LCOM;1
 compiled on 18-May-2018 09:17:21
 File created  6-May-2018 17:34:44
 TEDITFINDCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.LCOM;1
 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
+{DSK}<home>larry>ilisp>medley>library>TEDITFILE.LCOM;1
-compiled on 18-May-2018 09:17:06
+compiled on 30-Apr-2021 14:46:41
-File created 19-May-2001 11:45:53
+File created 30-Apr-2021 14:46:41
 TEDITFILECOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.LCOM;1
 compiled on 18-May-2018 09:18:51
 File created 21-Jun-99 20:00:42
 TEDITWINDOWCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.LCOM;1
 compiled on 18-May-2018 09:18:43
 File created 25-Aug-94 10:56:07
 TEDITSELECTIONCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.LCOM;1
 compiled on  8-Feb-97 11:26:32
 File created  7-Dec-95 13:21:56
 IMAGEOBJCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>EDITBITMAP.LCOM;1
 compiled on 25-Feb-93 18:10:27
 File created 11-Jun-90 15:42:25
 EDITBITMAPCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>READNUMBER.LCOM;1
 compiled on 16-Aug-95 11:18:52
 File created 25-May-93 00:28:30
 READNUMBERCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TFBRAVO.LCOM;1
 compiled on 19-Apr-2018 12:19:55
 File created 19-Apr-2018 12:19:55
 TFBRAVOCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITHCPY.LCOM;1
 compiled on 18-May-2018 09:17:32
 File created 25-Aug-94 10:54:07
 TEDITHCPYCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITPAGE.LCOM;1
 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
+{DSK}<home>larry>ilisp>medley>library>TEDITMENU.LCOM;1
-compiled on  4-Jan-2021 13:48:55
+compiled on 29-Apr-2021 22:44:22
-File created  4-Jan-2021 13:48:43
+File created 29-Apr-2021 22:44:22
 TEDITMENUCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1
 compiled on 18-May-2018 09:17:25
 File created  6-May-2018 17:15:13
 TEDITFNKEYSCOMS
 loading HRULE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>HRULE.LCOM;1
 compiled on 26-Feb-93 11:26:19
 File created  8-Oct-92 16:50:21
 HRULECOMS
 loading TEDITCHAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITCHAT.LCOM;1
 compiled on 18-May-2018 09:16:55
 File created 28-Mar-94 16:05:24
 IL:TEDITCHATCOMS
@@ -164,121 +164,121 @@ loading READNUMBER
 loading EDITBITMAP
 loading FILEBROWSER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;29
+{DSK}<home>larry>ilisp>medley>library>FILEBROWSER.LCOM;1
 compiled on 27-Feb-2021 20:08:26
 File created 27-Feb-2021 20:08:26
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;3
+{DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.LCOM;1
 compiled on 20-Feb-2021 23:04:42
 File created 20-Feb-2021 23:02:39
 TABLEBROWSERCOMS
 loading THINFILES
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;1
+{DSK}<home>larry>ilisp>medley>lispusers>THINFILES.LCOM;1
 compiled on 26-Jun-99 00:47:00
 File created  1-May-92 16:49:39
 THINFILESCOMS
 loading GRAPHER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;2
+{DSK}<home>larry>ilisp>medley>library>GRAPHER.LCOM;1
 compiled on 14-Mar-2021 20:40:31
 File created 14-Mar-2021 20:40:30
 GRAPHERCOMS
 loading SPY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>SPY.LCOM;1
 compiled on 23-Aug-94 16:33:38
 File created 29-Apr-94 14:13:52
 SPYCOMS
 loading WHERE-IS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>WHERE-IS.DFASL;1
 XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
 Source file created Wednesday, 13 June 1990, 1:16:15.
 FASL file created Thursday, 21 January 1993, 18:52:55.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.dfasl;1
+{DSK}<home>larry>ilisp>medley>library>HASH-FILE.dfasl;1
 XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
 Source file created Monday, 11 June 1990, 16:16:54.
 FASL file created Friday, 26 February 1993, 11:23:40.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;4
+{DSK}<home>larry>ilisp>medley>library>CASH-FILE.DFASL;5
 XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
 Source file created 11-Jun-90 14:33:44
 FASL file created Saturday, 19 September 2020, 22:04:31
 
 loading COPYFILES
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>COPYFILES.LCOM;1
 compiled on  6-Apr-2018 21:14:29
 File created  6-Apr-2018 21:14:29
 COPYFILESCOMS
 loading MSANALYZE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>MSANALYZE.DFASL;1
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MSANALYZE.;2
 Source file created  3-Mar-2021 10:31:16
 FASL file created Wednesday, 3 March 2021, 10:31:16
 
 loading MSPARSE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>MSPARSE.DFASL;1
 XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
 Source file created Wednesday, 15 August 1990, 13:00:12.
 FASL file created Sunday, 28 February 1993, 23:24:50.
 
 loading MASTERSCOPE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;4
+{DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.DFASL;4
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.;6
 Source file created  7-Mar-2021 19:39:11
 FASL file created Sunday, 7 March 2021, 20:20:40
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>MSCOMMON.DFASL;1
 XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
 Source file created Monday, 4 May 1992, 13:19:40.
 FASL file created Sunday, 28 February 1993, 23:23:14.
 
 loading UNIXPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>UNIXPRINT.DFASL;1
 XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
 Source file created Friday, 4 May 2018, 17:18:00.
 FASL file created Friday, 4 May 2018, 17:18:00.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>UNIXCOMM.LCOM;1
 compiled on 25-Apr-2018 07:31:56
 File created 25-Apr-2018 07:31:56
 UNIXCOMMCOMS
 loading UNICODE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;21
+{DSK}<home>larry>ilisp>medley>library>UNICODE.LCOM;18
 compiled on  1-Feb-2021 18:00:30
 File created  1-Feb-2021 18:00:30
 UNICODECOMS
 loading ISO8859IO
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;3
+{DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1
 compiled on 24-Apr-2021 17:06:43
 File created 24-Apr-2021 17:06:30
 ISO8859IOCOMS
 loading HELPSYS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.LCOM;1
+{DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.LCOM;1
 compiled on 27-Nov-2020 11:23:11
 File created 27-Nov-2020 09:47:44
 HELPSYSCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;6
+{DSK}<home>larry>ilisp>medley>lispusers>DINFO.LCOM;1
 compiled on 14-Feb-2021 23:11:53
 File created 14-Feb-2021 23:11:36
 DINFOCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>HASH.LCOM;1
 compiled on 26-Feb-93 11:22:10
 File created 11-Jun-90 16:23:11
 HASHCOMS
@@ -286,25 +286,25 @@ HASHCOMS
 Reading IRM graph...OK.loading DINFO
 loading CLIPBOARD
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;9
+{DSK}<home>larry>ilisp>medley>library>CLIPBOARD.LCOM;1
 compiled on 23-Feb-2021 22:13:09
 File created 23-Feb-2021 22:13:09
 CLIPBOARDCOMS
 loading MODERNIZE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;14
+{DSK}<home>larry>ilisp>medley>lispusers>MODERNIZE.LCOM;1
 compiled on 14-Mar-2021 20:33:34
 File created 14-Mar-2021 20:33:34
 MODERNIZECOMS
 loading PRETTYFILEINDEX
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;2
+{DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
 compiled on 28-Jun-99 17:13:58
 File created 28-Jun-99 17:13:51
 PRETTYFILEINDEXCOMS
 loading WHO-LINE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.DFASL;1
+{DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.DFASL;1
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;4
 Source file created 26-Mar-2021 11:01:59
 FASL file created Friday, 26 March 2021, 11:01:59
@@ -312,7 +312,7 @@ FASL file created Friday, 26 March 2021, 11:01:59
 loading UNIXCOMM
 loading UNIXCHAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>UNIXCHAT.LCOM;1
 compiled on 21-Jan-93 18:45:15
 File created 15-Aug-90 11:05:53
 UNIXCHATCOMS

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 ----
+if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
-ls -l tmp/exports.all tmp/whereis.hash
+    
-echo --------------
+    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 ----
+else
-ls -l tmp/full.sysout
+    echo XXXXX FAILURE XXXXX
-echo ---------------
+    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 ----
+if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
-ls -l tmp/*[WMShlet]
+    
-echo --------------
+    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
+./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
-
-echo ----- created: -------
-ls -l tmp/lisp.*[te]
-echo ----------------------
 
+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 
-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

scripts/restore-versions.sh

@@ -0,0 +1,134 @@
+#!/bin/sh
+
+# restore old versions from git repo
+# For use after a rm-versions or in a newly cloned repo
+# not guaranteed to return the SAME version as before
+# but it tries when it can.
+# version numbers follow git history
+
+
+# LC_ALL is needed for tr to keep it from getting confused
+export LC_ALL=C 
+
+file="$1"
+
+# If given a directory, restore all versions from that directory
+# There's a suble difference, bcause glob expansion won't try
+# to reversion .git .github at top level.
+
+if [ -d "$file" ]; then
+    for dir in "$file/"*[a-zA-Z0-9]
+    do echo restoring versions "$dir" && \
+	    find "$dir" -type f -iname "*[a-z0-9]" -exec "$0" {} \;
+    done
+    exit 0
+fi
+
+
+if [ ! -f "$file" ]; then
+    echo no such file "$file"
+    exit 1
+fi
+
+# file already has versions?
+
+for vfn in "$file".~[1-9]*~
+do if [ -f "$vfn" ]; then
+       echo "Already has versions: " $vfn && \
+	   exit 1
+   fi
+done
+
+
+#stash file and remember status
+#The $stash remembers if it did something or not
+
+stash=`git stash push -- $file 2>&1`
+
+
+# max is the maximum version checked in as as separate
+
+max=0
+
+# find commits with explicit old versions
+# In most cases there will be only one commit
+# these versions are restored, and n is set to 1+max of them
+# this is specific to our situation where we checked in some
+# ~nn~ versions and then .gitignore *~ was set 
+
+for commit in `git log --remove-empty --reverse --format="%h" -- "$file.~[1-9]*~"` 
+do git checkout -q $commit "$file.~[1-9]*~" 2>/dev/null && \
+   for version in "$file".~[1-9]*~
+   do  vn=`echo $version | sed 's/^.*\.~\([1-9][0-9]*\)~$/\1/'`
+       if [ ! -z $vn ]; then
+	   vn=`expr $vn + 1`  
+	   if [ $max -lt $vn ]; then
+	       max=$vn
+	   fi
+       fi
+   done
+done
+
+# if file and max version are the same, link them
+# this obsoletes medley-fix-links
+
+if cmp -q $file $file.~$max~ >/dev/null 2>&1
+then
+    rm $file.~$max~
+    ln $file $file.~$max~
+fi
+
+# $base is used to look for mentions of DSK versions
+base=`basename "$file" .LCOM`
+base=`basename "$base" .DFASL`
+pattern='{DSK}.*'"$base"'\.\?;[1-9][0-9]*'
+
+# Restore versions from git history. This process starts with
+# the max from the previous calculation and would go up by 1, but it
+# also prefers to restore files to their FILECREATED version
+# number. It does this by looking for {DSK}...root.~nn~ and using nn
+# as the version number if it isn't too small. It then makes a hard
+# link (each time for each commit) since the checkout will break any
+# old links
+
+n=`expr $max + 1`
+
+####
+# !!!! if you don't want these post-github versions
+# skip until end
+# If you want things before the last delete, remove the '--remove empty'
+####
+
+for commit in `git log --remove-empty --reverse --format="%h" -- "$file"`
+do git checkout -q $commit "$file" && \
+   fcv=`tr '\r' '\n' <"$file" | head -n 6 | grep -ai --max-count=1 --only-matching "$pattern"`
+   fcv=`echo $fcv | sed 's/^.*;\([1-9][0-9]*\)$/\1/'`
+   if [ ! -z $fcv ]; then
+       if [ $fcv -gt $n ]; then
+	   n=$fcv
+       fi
+   fi
+   ln "$file" "$file.~"$n"~" && n=`expr $n + 1`
+done
+
+### END SKIP
+
+# if the 'stash' at the beginning did something, restore the stashed file
+
+case $stash in
+    "error*" | "No local changes*") 
+	;;
+    "*")
+	git stash pop -- "$file" && \
+	ln $file "$file.~"$n"~" && n=`expr $n + 1`
+    ;;
+esac
+
+# if the result is only one version ;1 remove it
+# Otherwise, make sure no versions are staged
+if [ $n -eq 2 ]; then
+    rm -f "$file".~1~
+else
+    git restore --staged "$file.~[1-9]*~" 2>/dev/null
+fi
+	

sources/LLETHER

@@ -1,19 +1,19 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "19-Jan-93 10:49:30" {DSK}<python>lde>lispcore>sources>LLETHER.;2
 139094 
+
(FILECREATED " 3-May-2021 23:13:56" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;4
 139646 
 
-      changes to%:  (RECORDS SYSQUEUE QABLEITEM ETHERPACKET ETHERAUX NDB ROUTING ETHERTRANS 
+      changes to%:  (FNS \ETHEREVENTFN \ETHER-AVAILABLE)
-                           CENTICLOCK 3MBENCAPSULATION PBI)
+                    (VARS LLETHERCOMS)
 
-      previous date%: " 5-Jan-93 00:36:20" {DSK}<python>lde>lispcore>sources>LLETHER.;1)
+      previous date%: " 2-May-2021 12:37:02" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;3)
 
 
 (* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT LLETHERCOMS)
 
-(RPAQQ LLETHERCOMS
 
+(RPAQQ LLETHERCOMS

        [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
                                                 LLNSDECLS))
         [COMS                                                (* ; 
@@ -27,7 +27,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
                                                (MACROS \QUEUEHEAD)))
                     (INITRECORDS SYSQUEUE)
                     (SYSRECORDS SYSQUEUE)
-                    (FNS \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
+                    (FNS CANONICAL.HOSTNAME \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
                                                              (* ; 
 
                                                           "Queue management constructed by TCONC")

                     (EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC]
@@ -58,7 +58,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
                    PRINTNSHOSTNUMBER)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'NSADDRESS '\NSADDRESS.DEFPRINT]
         [COMS                                                (* ; "Assorted Level 0")

-              (FNS \ETHERINIT \ETHEREVENTFN \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS \FLUSH.NDB.QUEUE)
+              (FNS \ETHERINIT \ETHEREVENTFN \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS
+                   \FLUSH.NDB.QUEUE)
               (FNS \CHECKSUM \HANDLE.RAW.OTHER \HANDLE.RAW.PACKET \ADD.PACKET.FILTER 
                    \DEL.PACKET.FILTER)
               (DECLARE%: DONTCOPY (EXPORT (CONSTANTS (\NULLCHECKSUM 65535)))
@@ -190,8 +191,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
        '6)
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \QUEUEHEAD MACRO ((Q)
+(PUTPROPS \QUEUEHEAD
 MACRO
 ((Q)
-                            (fetch
 (SYSQUEUE SYSQUEUEHEAD) of
 Q)))
+                                    (fetch
 (SYSQUEUE SYSQUEUEHEAD) of
 Q)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -213,6 +214,33 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
 )
 (DEFINEQ
 
+(CANONICAL.HOSTNAME

+  [LAMBDA (HOSTNAME)
                                   (* ; "Edited  1-May-2021 19:45 by larry")

+    (LET [(DEV (CL:ASSOC HOSTNAME \DEVICENAMETODEVICE :TEST 'STRING-EQUAL]
+         (if
 DEV
+             then
                                        (* ; "Known device, don't ask anyone")

+                   (fetch
 DEVICENAME of
 (CDR DEV))
+           elseif
 (NOT (SUBRCALL ETHER-AVAILABLE))
+             then
 HOSTNAME
+           elseif
 (AND \NS.READY (STRPOS ":" HOSTNAME))
+             then
                                        (* ; "Assume NS")

+                   (\CANONICAL.NSHOSTNAME HOSTNAME)
+           elseif
 (NUMBERP HOSTNAME)
+             then
                                        (* ; "Some sort of host address")

+                   (if
 (AND (SMALLP HOSTNAME)
+                                (< HOSTNAME 255))
+                       then
                              (* ; "valid pup address")

+                             HOSTNAME
+                     elseif
 \IP.READY
+                       then
                              (* ; "Big number may be IP host")

+                             (IPHOSTNAME HOSTNAME))
+           else
 (if
 (NOT (LITATOM HOSTNAME))
+                        then
 (SETQ HOSTNAME (MKATOM HOSTNAME)))
+                 (OR (CDR (FASSOC HOSTNAME \HOSTNAMES))
+                     (AND \IP.READY (\CANONICALIZE.IP.HOSTNAME HOSTNAME))
+                     (AND \PUP.READY (\CANONICALIZE.PUP.HOSTNAME HOSTNAME))
+                     HOSTNAME])
+
 (\ENQUEUE

   [LAMBDA (Q ITEM)
                                       (* bvm%: "14-Feb-85 21:55")

 
@@ -333,14 +361,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \DETCONC MACRO (OPENLAMBDA (TQ)
+(PUTPROPS \DETCONC
 MACRO
 [OPENLAMBDA (TQ)
-                                (PROG1 (\PEEKTCONC TQ)
+                                   (PROG1 (\PEEKTCONC TQ)
-                                    (if
 [NULL (CAR (RPLACA TQ (CDAR TQ]
+                                       (if
 [NULL (CAR (RPLACA TQ (CDAR TQ]
-                                        then
 (RPLACD TQ)))]
+                                           then
 (RPLACD TQ)))])
 
-(PUTPROPS \ENTCONC MACRO (= . TCONC))
+(PUTPROPS \ENTCONC
 MACRO
 (= . TCONC))
 
-(PUTPROPS \PEEKTCONC MACRO (= . CAAR))
+(PUTPROPS \PEEKTCONC
 MACRO
 (= . CAAR))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -1471,16 +1499,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
                               HOSTNAMEP _ 'NILL])
 
 (\ETHEREVENTFN

-  [LAMBDA (DEV EVENT)
                                    (* ; "Edited 15-Jan-88 01:30 by bvm")

+  [LAMBDA (DEV EVENT)
                                  (* ; "Edited  3-May-2021 23:12 by larry")

-    (SELECTQ EVENT
+    (PROG (NDB TURNOFFNS TIMESET)
-        ((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART) 
+          (SELECTQ EVENT
-             (PROG (NDB TURNOFFNS TIMESET)
+              ((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART) 
                    (SETQ \PUP.READY (SETQ \NS.READY (SETQ \IP.READY)))
+                   (OR (\ETHER-AVAILABLE
)
+                       (RETURN))
                    (\SETETHERFLAGS
)
                    (\SETLOCALNSNUMBERS
)
                    (\FLUSHNDBS
 EVENT)
-                   [SETQ \3MBLOCALNDB (COND
-                                         (\3MBFLG (SETQ \LOCALNDBS (\3MB.CREATENDB
 \3MBFLG]
                    (SETQ \10MBLOCALNDB (COND
                                           (\10MBFLG (SETQ NDB (\10MB.CREATENDB \10MBFLG))
                                                  (COND
@@ -1499,30 +1527,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
                        (\NSINIT EVENT)
                        (SETQ TIMESET (\NS.SETTIME]
                    (\STARTPUP EVENT)
-                   (OR TIMESET (AND (EQ \PUP.READY T)
-                                    (\PUP.SETTIME))
-                       [SELECTC \MACHINETYPE
-                           (\DANDELION (NEQ 0 (fetch
 DLTODVALID of
 \IOPAGE)))
-                           (\DAYBREAK (\DoveMisc.TODValid))
-                           (> (IDATE)
-                              (CONSTANT (IDATE " 1-JAN-88 12:00"]
-                       (\TIME.NOT.SET
))
                    (COND
                       (TURNOFFNS (STOPNS)))
                    (COND
                       (\GATEWAYFLG (\INIT.GATEWAY)))
                    (for
 FN in
 RESTARTETHERFNS do
 (CL:FUNCALL FN EVENT))
-               T))
+                   T)
-        ((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM) 
+              ((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM) 
-             (COND
+                   (COND
-                ((EQ EVENT 'BEFORESAVEVM)                    (* ; 
+                      ((EQ EVENT 'BEFORESAVEVM)              (* ; 
 
                       "Save passwords in place outside vmem to avoid having to reenter them later")

-                 (\STASH.PASSWORDS))
+                       (\STASH.PASSWORDS))
-                (T                                           (* ; 
+                      (T                                     (* ; 
 
                                                           "No need to flush this before SAVEVM")

-                   (CLRHASH \ETHERPORTS)))
+                         (CLRHASH \ETHERPORTS)))
-             (CLRHASH LOGINPASSWORDS))
+                   (CLRHASH LOGINPASSWORDS))
-        NIL])
+              NIL])
+
+(\ETHER-AVAILABLE

+  [LAMBDA NIL
                                          (* ; "Edited  3-May-2021 23:12 by larry")

+    (SUBRCALL ETHER-AVAILABLE])
 
 (\TIME.NOT.SET

   [LAMBDA NIL
                                            (* ; "Edited 13-Jan-88 14:40 by bvm")

@@ -1532,28 +1556,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
     (printout PROMPTWINDOW T "[Time not set]"])
 
 (\SETETHERFLAGS

-  [LAMBDA NIL
                                            (* ; "Edited 17-May-88 12:00 by bvm")

+  [LAMBDA NIL
                                          (* ; "Edited  2-May-2021 12:35 by larry")

-    (SELECTC \MACHINETYPE
+
-        ((LIST \DANDELION \DAYBREAK \MAIKO) 
+    (* ;; "for Medley there is no 3MB ethernet ; used to be conditional on \MACHINETYPE")

-             (SETQ \10MBFLG 0)
+
-             (SETQ \3MBFLG NIL)
+    (SETQ \10MBFLG 0)
-             (SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE)
+    (SETQ \3MBFLG NIL)
-                                            (UNFOLD (INDEXF (FETCH
 EPBODY))
+    (SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE)
-                                                   BYTESPERWORD))))
+                                   (UNFOLD (INDEXF (FETCH
 EPBODY))
-        (\DORADO (SETQ \3MBFLG T)
+                                          BYTESPERWORD])
-                 (SETQ \10MBFLG NIL)
-                 (SETQ *MAXIMUM-PACKET-SIZE* (if
 (>= (fetch
 (IFPAGE BVersion) of
 
-                                                                                       \InterfacePage
-                                                                )
-                                                         11776)
-                                                 then
    (* ; "This field is valid")

-                                                       (fetch
 (IFPAGE MAXETHERBYTES) of

-                                                                                         
-                                                                                       \InterfacePage
-                                                              )
-                                               else
      (* ; "Old bcpl had this much")

-                                                     590)))
-        (SHOULDNT])
 
 (\FLUSHNDBS

   [LAMBDA (EVENT)
                                        (* ; "Edited 15-Jan-88 00:30 by bvm")

@@ -1774,25 +1785,27 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
 
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS ENCAPSULATE.ETHERPACKET MACRO ((NDB PACKET HOST LENGTH TYPE)
+(PUTPROPS ENCAPSULATE.ETHERPACKET
 MACRO
 ((NDB PACKET HOST LENGTH TYPE)
-                                         (SPREADAPPLY* (fetch
 NDBENCAPSULATOR of
 NDB)
+                                                 (SPREADAPPLY* (fetch
 NDBENCAPSULATOR
-                                                NDB PACKET HOST LENGTH TYPE)))
+                                                                  of
 NDB)
+                                                        NDB PACKET HOST LENGTH TYPE)))
 
-(PUTPROPS TRANSMIT.ETHERPACKET MACRO ((NDB PACKET)
+(PUTPROPS TRANSMIT.ETHERPACKET
 MACRO
 ((NDB PACKET)
-                                      (SPREADAPPLY* (fetch
 NDBTRANSMITTER of
 NDB)
+                                              (SPREADAPPLY* (fetch
 NDBTRANSMITTER of
 NDB)
-                                             NDB PACKET)))
+                                                     NDB PACKET)))
 
-[PUTPROPS BROADCASTP MACRO ((PACKET)
+(PUTPROPS BROADCASTP
 MACRO
 ((PACKET)
-                            ([LAMBDA (NDB)
+                                    ([LAMBDA (NDB)
-                               (AND NDB (APPLY* (fetch
 NDBBROADCASTP of
 NDB)
+                                       (AND NDB (APPLY* (fetch
 NDBBROADCASTP of
 NDB)
-                                               PACKET NDB]
+                                                       PACKET NDB]
-                             (fetch
 EPNETWORK of
 PACKET]
+                                     (fetch
 EPNETWORK of
 PACKET))))
 
-[PUTPROPS \CHECK.ROUTING.TABLE MACRO ((TABLE)
+(PUTPROPS \CHECK.ROUTING.TABLE
 MACRO
 [(TABLE)
-                                      (if
 (NEQ (NTYPX TABLE)
+                                              (if
 (NEQ (NTYPX TABLE)
-                                                   \ROUTING.TABLE.TYPENUM)
+                                                           \ROUTING.TABLE.TYPENUM)
-                                          then
 (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR :CULPRIT 
+                                                  then
 (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR 
-                                                          TABLE :EXPECTED-TYPE 'RoutingTable]
+                                                                  :CULPRIT TABLE :EXPECTED-TYPE
+                                                                  'RoutingTable])
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -2785,7 +2798,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \SERIALNUMBER MACRO (NIL (fetch
 (IFPAGE SerialNumber) of
 \InterfacePage)))
+(PUTPROPS \SERIALNUMBER
 MACRO
 (NIL (fetch
 (IFPAGE SerialNumber) of
 \InterfacePage)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -2866,9 +2879,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
                                                              T])
 )
 
-(RPAQQ ROUTINGINFOMACRO
 
+(RPAQQ ROUTINGINFOMACRO
 (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS
-       (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS SEPR ") " -2 FINALLY
+                               SEPR ") " -2 FINALLY ")"))
-          ")"))
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -2926,41 +2938,42 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
 )
 
 (* "FOLLOWING DEFINITIONS EXPORTED")
-(PUTPROPS \DEVICE.INPUT DOPVAL
 (1 MISC1 1))
+(PUTPROPS \DEVICE.INPUT
 DOPVAL
 (1 MISC1 1))
 
-(PUTPROPS \DEVICE.OUTPUT DOPVAL
 (2 MISC2 2))
+(PUTPROPS \DEVICE.OUTPUT
 DOPVAL
 (2 MISC2 2))
 
-(PUTPROPS \D0.STARTIO DOPVAL
 (1 MISC1 0))
+(PUTPROPS \D0.STARTIO
 DOPVAL
 (1 MISC1 0))
 
 (* "END EXPORTED DEFINITIONS")
 
 )
 (PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 
-1992 1993))
+1992 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (10827 17692 (\ENQUEUE 10837 . 13482) (\DEQUEUE 13484 . 14811) (\QUEUELENGTH 14813 . 
+  (FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040
-15113) (\ONQUEUE 15115 . 15381) (\UNQUEUE 15383 . 17690)) (51359 55225 (\ALLOCATE.ETHERPACKET 51369 . 
+ . 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815
-52410) (\RELEASE.ETHERPACKET 52412 . 53485) (RELEASE.PUP 53487 . 53632) (\FLUSH.PACKET.QUEUE 53634 . 
+ (\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222
-53985) (\REQUEUE.ETHERPACKET 53987 . 54501) (\EP.PUT.AUX 54503 . 55223)) (55799 67180 (
+) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813)
-\SETLOCALNSNUMBERS 55809 . 57194) (\LOADNSADDRESS 57196 . 57488) (\STORENSADDRESS 57490 . 57671) (
+) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS 
-\PRINTNSADDRESS 57673 . 58756) (\NSADDRESS.DEFPRINT 58758 . 63703) (\NSADDRESS.PRINT.DECIMAL 63705 . 
+59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) (
-65836) (\LOADNSHOSTNUMBER 65838 . 66467) (\STORENSHOSTNUMBER 66469 . 66873) (PRINTNSHOSTNUMBER 66875
+\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 . 
- . 67178)) (67293 74381 (\ETHERINIT 67303 . 67873) (\ETHEREVENTFN 67875 . 70869) (\TIME.NOT.SET 70871
+68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465
- . 71197) (\SETETHERFLAGS 71199 . 72688) (\FLUSHNDBS 72690 . 73868) (\FLUSH.NDB.QUEUE 73870 . 74379)) 
+ . 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938
-(74382 77674 (\CHECKSUM 74392 . 76324) (\HANDLE.RAW.OTHER 76326 . 76681) (\HANDLE.RAW.PACKET 76683 . 
+) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574) 
-77195) (\ADD.PACKET.FILTER 77197 . 77429) (\DEL.PACKET.FILTER 77431 . 77672)) (85243 85768 (
+(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679
-ENCAPSULATE.ETHERPACKET 85253 . 85525) (TRANSMIT.ETHERPACKET 85527 . 85766)) (86056 98652 (
+) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) (
-\AGE.ROUTING.TABLE 86066 . 88215) (\ADD.ROUTING.TABLE.ENTRY 88217 . 88913) (\CLEAR.ROUTING.TABLE 88915
+TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) (
- . 89642) (\MAP.ROUTING.TABLE 89644 . 90172) (PRINTROUTINGTABLE 90174 . 93799) (\ROUTINGTABLE.INFOHOOK
+\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158
- 93801 . 98650)) (99137 105922 (\TRANSLATE.10TO3 99147 . 100931) (\NOTE.10TO3 100933 . 102549) (
+ . 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 (
-\HANDLE.RAW.10TO3 102551 . 105920)) (109904 124726 (PRINTPACKET 109914 . 110475) (\MAYBEPRINTPACKET 
+\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) (
-110477 . 112134) (PRINT10TO3 112136 . 113504) (PRINTPACKETDATA 113506 . 118796) (PRINTPACKETQUEUE 
+110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 . 
-118798 . 119227) (TIME.SINCE.PACKET 119229 . 119714) (MAKE-NETWORK-TRACE-WINDOW 119716 . 123258) (
+114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743
-\CHANGE.ETHER.TRACING 123260 . 124724)) (125097 125912 (\CENTICLOCK 125107 . 125910)) (126367 132467 (
+ . 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) (
-\3MBGETPACKET 126377 . 127797) (\3MB.CREATENDB 127799 . 128514) (\3MBSENDPACKET 128516 . 130699) (
+125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) (
-\3MBWATCHER 130701 . 131439) (\3MBENCAPSULATE 131441 . 131989) (\3MB.BROADCASTP 131991 . 132162) (
+\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) (
-\3MBFLUSH 132164 . 132465)) (135413 137356 (ASSURE.ETHER.ON 135423 . 135753) (INITPUPLEVEL1 135755 . 
+\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) (
-136235) (TURN.ON.ETHER 136237 . 136382) (RESTART.ETHER 136384 . 136758) (TURN.OFF.ETHER 136760 . 
+135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759
-137078) (PRINTWORDS 137080 . 137354)) (137618 138153 (\DEVICE.INPUT 137628 . 137793) (\DEVICE.OUTPUT 
+ . 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 . 
-137795 . 137989) (\D0.STARTIO 137991 . 138151)))))
+137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO 
+138526 . 138686)))))
 STOP

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))
+                            (P (FIXMETA))))
-                            (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS 
-                                   MISSINGCHARSETDISPLAYFONTCOERCIONS)
-                            (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (LOADUP-FULL T])
 
 (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)
+    (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)")))])
 
 (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" 
+(RPAQQ MEDLEY-INIT-VARS

-                                                                      "internal/library")))
+       ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library")))
-                             (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
+        (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
-                             (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
+        (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
-                             (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
+        (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
-                             (IRM.DINFOGRAPH)
+        (IRM.DINFOGRAPH)
-                             (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
+        (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
-                             (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+        (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
-                                                               (UNIX-GETENV "HOME"))))
+                                          (UNIX-GETENV "HOME"))))
-                             (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
+        (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
-                                               (,LOGINHOST/DIR "INIT")))
+                          (,LOGINHOST/DIR "INIT")))
-                             (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" 
+        (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts")))
-                                                                        "fonts/altofonts")))
+        (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
-                             (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
+        (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
-                             (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
+        (XCL::*WHERE-IS-CASH-FILES*)))
-                             (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
+  (FILEMAP (NIL (753 4843 (LOADUP-LISP 763 . 4841)) (4844 7343 (MEDLEY-INIT-VARS 4854 . 5999) (MEDLEYDIR
- 6014 . 7354)))))
+ 6001 . 7341)))))
 STOP

sources/PUP

@@ -1,139 +1,134 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 8)
-
(FILECREATED "19-Jan-93 11:14:09" {DSK}<python>lde>lispcore>sources>PUP.;4
 352070Q
+
(FILECREATED " 1-May-2021 19:49:18" {DSK}<home>larry>ilisp>medley>sources>PUP.;2
 336270Q
 
-      changes to%:  (RECORDS PUP PUPADDRESS ERRORPUP PUPROUTINGINFO PUPSOCKET PORT TIMEPUPCONTENTS)
+      changes to%:  (FNS \PUP.SETTIME CANONICAL.HOSTNAME)
+                    (VARS PUPCOMS)
 
-      previous date%: " 5-Jan-93 01:53:53" {DSK}<python>lde>lispcore>sources>PUP.;3)
+      previous date%: "19-Jan-93 11:14:09" {DSK}<home>larry>ilisp>medley>sources>PUP.;1)
 
 
 (* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT PUPCOMS)
 
-(RPAQQ PUPCOMS
 ((COMS                                    (* ; "Low level pup")

+(RPAQQ PUPCOMS

-                          (DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS)
+       ((COMS                                                (* ; "Low level pup")

-                                                     (MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER 
+              (DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS)
-                                                            \LOCALPUPNETNUMBER))
+                                         (MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER 
-                                 (GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#))
+                                                \LOCALPUPNETNUMBER))
-                          (FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER 
+                     (GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#))
-                               \PROMPT.FOR.PUP.NUMBER \HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM)
+              (FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER \PROMPT.FOR.PUP.NUMBER 
-                          (INITVARS (\PUP.CHECKSUMFLG T)
+                   \HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM)
-                                 (\MAX.EPKTS.ON.PUPSOCKET 20Q)
+              (INITVARS (\PUP.CHECKSUMFLG T)
-                                 (\LOCALPUPNETHOST)
+                     (\MAX.EPKTS.ON.PUPSOCKET 20Q)
-                                 (\OLDPUPHOST# 0)))
+                     (\LOCALPUPNETHOST)
-                    (COMS                                    (* ; "Pup error stuff")

+                     (\OLDPUPHOST# 0)))
-                          (DECLARE%: DONTCOPY (EXPORT (RECORDS ERRORPUP)
+        (COMS                                                (* ; "Pup error stuff")

-                                                     (CONSTANTS * PUPERRORCODES))
+              (DECLARE%: DONTCOPY (EXPORT (RECORDS ERRORPUP)
-                                 (GLOBALVARS PUPERRORMESSAGES))
+                                         (CONSTANTS * PUPERRORCODES))
-                          (VARS PUPERRORMESSAGES)
+                     (GLOBALVARS PUPERRORMESSAGES))
-                          (FNS \PUPERROR))
+              (VARS PUPERRORMESSAGES)
-                    (COMS                                    (* ; "Pup utilities")

+              (FNS \PUPERROR))
-                          (FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS 
+        (COMS                                                (* ; "Pup utilities")

-                               GETPUPWORD \PUPINIT)
+              (FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS GETPUPWORD \PUPINIT)
-                          (FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0 
+              (FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0 \PUP.SETTIME 
-                               \PUP.SETTIME \SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT 
+                   \SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT \PARSE.PORTCONSTANT \FIXLOCALNET)
-                               \PARSE.PORTCONSTANT \FIXLOCALNET)
+              (FNS PORTSTRING OCTALSTRING)
-                          (FNS PORTSTRING OCTALSTRING)
+              (INITVARS (\ETHERPORTS (HASHARRAY 24Q))
-                          (INITVARS (\ETHERPORTS (HASHARRAY 24Q))
+                     (\ETHERTIMEOUT 3720Q)
-                                 (\ETHERTIMEOUT 3720Q)
+                     (\MAXETHERTRIES 4)
-                                 (\MAXETHERTRIES 4)
+                     (\PUPCOUNTER 0))
-                                 (\PUPCOUNTER 0))
+              (GLOBALVARS \ETHERPORTS \PUPCOUNTER))
-                          (GLOBALVARS \ETHERPORTS \PUPCOUNTER))
+        (COMS                                                (* ; "Accessing a PUP's contents")

-                    (COMS                                    (* ; "Accessing a PUP's contents")

+              (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM PUTPUPSTRING)
-                          (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM 
+              (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE))
-                               PUTPUPSTRING)
+        (COMS                                                (* ; 
-                          (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE))
-                    (COMS                                    (* ; 
 
                                                           "Reading property lists from streams")

-                          (FNS READPLIST)
+              (FNS READPLIST)
-                          (INITVARS \READPLIST.READTABLES)
+              (INITVARS \READPLIST.READTABLES)
-                          (GLOBALVARS \READPLIST.READTABLES))
+              (GLOBALVARS \READPLIST.READTABLES))
-                    (COMS (FNS CANONICAL.HOSTNAME \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME)
+        (COMS (FNS \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME)
-                          (P                                 (* ; 
+              (P                                             (* ; 
 
                                                           "Default this for when IP not loaded")

-                             (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T))
+                 (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T))
-                          (ADDVARS (\HOSTNAMES)
+              (ADDVARS (\HOSTNAMES)
-                                 (\SYSTEMCACHEVARS \HOSTNAMES))
+                     (\SYSTEMCACHEVARS \HOSTNAMES))
-                          (GLOBALVARS \HOSTNAMES))
+              (GLOBALVARS \HOSTNAMES))
-                    [COMS                                    (* ; "PUP allocation")

+        [COMS                                                (* ; "PUP allocation")

-                          (EXPORT (MACROS BINDPUPS)
+              (EXPORT (MACROS BINDPUPS)
-                                 (PROP INFO BINDPUPS)
+                     (PROP INFO BINDPUPS)
-                                 (ALISTS (PRETTYPRINTMACROS BINDPUPS]
+                     (ALISTS (PRETTYPRINTMACROS BINDPUPS]
-                    (COMS                                    (* ; "Pup routing")

+        (COMS                                                (* ; "Pup routing")

-                          (FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET 
+              (FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET 
-                               SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE)
+                   SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE)
-                          (INITVARS (\PUP.ROUTING.TABLE (CONS))
+              (INITVARS (\PUP.ROUTING.TABLE (CONS))
-                                 (\PUP.ROUTING.TABLE.RADIUS 2)
+                     (\PUP.ROUTING.TABLE.RADIUS 2)
-                                 (\PUPROUTER.PROBECOUNT 0)
+                     (\PUPROUTER.PROBECOUNT 0)
-                                 (\PUPROUTER.PROBETIMER)
+                     (\PUPROUTER.PROBETIMER)
-                                 (\PUPROUTER.PROBEINTERVAL 5670Q)
+                     (\PUPROUTER.PROBEINTERVAL 5670Q)
-                                 (\PUP.READY)
+                     (\PUP.READY)
-                                 (\PUP.READY.EVENT (CREATE.EVENT "Pup Ready"))
+                     (\PUP.READY.EVENT (CREATE.EVENT "Pup Ready"))
-                                 (\PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready")))
+                     (\PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready")))
-                          (ADDVARS (\SYSTEMCACHEVARS \PUP.READY))
+              (ADDVARS (\SYSTEMCACHEVARS \PUP.READY))
-                          (DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO)
+              (DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO)
-                                 (CONSTANTS \PUP.ROUTINGINFO.WORDS)
+                     (CONSTANTS \PUP.ROUTINGINFO.WORDS)
-                                 (GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS 
+                     (GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS \PUPROUTER.PROBECOUNT 
-                                        \PUPROUTER.PROBECOUNT \PUPROUTER.PROBETIMER 
+                            \PUPROUTER.PROBETIMER \PUPROUTER.PROBEINTERVAL \PUP.READY 
-                                        \PUPROUTER.PROBEINTERVAL \PUP.READY \PUP.READY.EVENT 
+                            \PUP.READY.EVENT \PUP.READY.LOCK)))
-                                        \PUP.READY.LOCK)))
+        (COMS                                                (* ; "Sockets")

-                    (COMS                                    (* ; "Sockets")

+              (DECLARE%: DONTCOPY (RECORDS PUPSOCKET)
-                          (DECLARE%: DONTCOPY (RECORDS PUPSOCKET)
+                     (MACROS \PUPSOCKET.FROM#)
-                                 (MACROS \PUPSOCKET.FROM#)
+                     (GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET \PUP.CHECKSUMFLG))
-                                 (GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET 
+              (INITRECORDS PUPSOCKET)
-                                        \PUP.CHECKSUMFLG))
+              (SYSRECORDS PUPSOCKET)
-                          (INITRECORDS PUPSOCKET)
+              (FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER PUPSOCKETEVENT 
-                          (SYSRECORDS PUPSOCKET)
+                   \FLUSHPUPSOCQUEUE)
-                          (FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER 
+              (FNS \GETMISCSOCKET)
-                               PUPSOCKETEVENT \FLUSHPUPSOCQUEUE)
+              (GLOBALVARS \MISC.SOCKET \PUPSOCKETS)
-                          (FNS \GETMISCSOCKET)
+              (INITVARS (\MISC.SOCKET)
-                          (GLOBALVARS \MISC.SOCKET \PUPSOCKETS)
+                     (\PUPSOCKETS)))
-                          (INITVARS (\MISC.SOCKET)
+        (DECLARE%: DONTCOPY (EXPORT (RECORDS PORT ERRORPUP)
-                                 (\PUPSOCKETS)))
+                                   (GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES PUPTRACEFLG 
-                    (DECLARE%: DONTCOPY (EXPORT (RECORDS PORT ERRORPUP)
+                                          LOGINPASSWORDS)
-                                               (GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES 
+                                   (GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES 
-                                                      PUPTRACEFLG LOGINPASSWORDS)
+                                          PUPPRINTMACROS)
-                                               (GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES 
+                                   (CONSTANTS (\PUPOVLEN 26Q)
-                                                      PUPPRINTMACROS)
+                                          (\MAX.PUPLENGTH 1024Q)
-                                               (CONSTANTS (\PUPOVLEN 26Q)
+                                          (\TIME.GETPUP 5))
-                                                      (\MAX.PUPLENGTH 1024Q)
+                                   (PROP VARTYPE PUPPRINTMACROS)
-                                                      (\TIME.GETPUP 5))
+                                   (MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE \PUTPUPBYTE)
-                                               (PROP VARTYPE PUPPRINTMACROS)
+                                   (CONSTANTS * RAWPUPTYPES)
-                                               (MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE 
+                                   (INITVARS (PUPTYPES RAWPUPTYPES))
-                                                      \PUTPUPBYTE)
+                                   (CONSTANTS * WELLKNOWNPUPSOCKETS))
-                                               (CONSTANTS * RAWPUPTYPES)
+               (CONSTANTS * PUPCONSTANTS)
-                                               (INITVARS (PUPTYPES RAWPUPTYPES))
+               (MACROS PUPDEBUGGING)
-                                               (CONSTANTS * WELLKNOWNPUPSOCKETS))
+               (ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q))
-                           (CONSTANTS * PUPCONSTANTS)
+               (RECORDS TIMEPUPCONTENTS))
-                           (MACROS PUPDEBUGGING)
+        (COMS                                                (* ; "echo utilities")

-                           (ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q))
+              (FNS PUP.ECHOSERVER PUP.ECHOUSER))
-                           (RECORDS TIMEPUPCONTENTS))
+        (COMS                                                (* ; "Peeking")

-                    (COMS                                    (* ; "echo utilities")

+              (FNS \PEEKPUP \MAYBEPEEKPUP)
-                          (FNS PUP.ECHOSERVER PUP.ECHOUSER))
+              (INITVARS (\PEEKPUPNUMBER))
-                    (COMS                                    (* ; "Peeking")

+              (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC)
-                          (FNS \PEEKPUP \MAYBEPEEKPUP)
+                     (GLOBALVARS \PEEKPUPNUMBER)))
-                          (INITVARS (\PEEKPUPNUMBER))
+        (COMS                                                (* ; "Debugging assistance")

-                          (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC)
+              (FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE PRINTCONSTANT)
-                                 (GLOBALVARS \PEEKPUPNUMBER)))
+              (INITVARS (PUPTRACEFLG)
-                    (COMS                                    (* ; "Debugging assistance")

+                     (PUPTRACEFILE T)
-                          (FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE 
+                     (PUPTRACETIME))
-                               PRINTCONSTANT)
+              (GLOBALVARS PUPTRACETIME)
-                          (INITVARS (PUPTRACEFLG)
+              (ADDVARS (PUPPRINTMACROS)
-                                 (PUPTRACEFILE T)
+                     (PUPONLYTYPES)
-                                 (PUPTRACETIME))
+                     (PUPIGNORETYPES))
-                          (GLOBALVARS PUPTRACETIME)
+              (ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q)))
-                          (ADDVARS (PUPPRINTMACROS)
+        (DECLARE%: DONTEVAL@LOAD (P (\PUPINIT)))
-                                 (PUPONLYTYPES)
+        (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)
-                                 (PUPIGNORETYPES))
+               (FILES (LOADCOMP)
-                          (ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q)))
+                      LLETHER))
-                    (DECLARE%: DONTEVAL@LOAD (P (\PUPINIT)))
+        (PROP (MAKEFILE-ENVIRONMENT FILETYPE)
-                    (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)
+              PUP)))
-                           (FILES (LOADCOMP)
-                                  LLETHER))
-                    (PROP (MAKEFILE-ENVIRONMENT FILETYPE)
-                          PUP)))
 
 
 
@@ -193,11 +188,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
 )
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \LOCALPUPADDRESS MACRO (NIL \LOCALPUPNETHOST))
+(PUTPROPS \LOCALPUPADDRESS
 MACRO
 (NIL \LOCALPUPNETHOST))
 
-(PUTPROPS \LOCALPUPHOSTNUMBER MACRO (NIL (fetch
 PUPHOST# of
 \LOCALPUPNETHOST)))
+(PUTPROPS \LOCALPUPHOSTNUMBER
 MACRO
 (NIL (fetch
 PUPHOST# of
 \LOCALPUPNETHOST)))
 
-(PUTPROPS \LOCALPUPNETNUMBER MACRO (NIL (fetch
 PUPNET# of
 \LOCALPUPNETHOST)))
+(PUTPROPS \LOCALPUPNETNUMBER
 MACRO
 (NIL (fetch
 PUPNET# of
 \LOCALPUPNETHOST)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -485,16 +480,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
                                                    )))
 )
 
-(RPAQQ PUPERRORCODES
 ((\PUPE.CHECKSUM 1)
+(RPAQQ PUPERRORCODES

-                          (\PUPE.NOSOCKET 2)
+       ((\PUPE.CHECKSUM 1)
-                          (\PUPE.SOCKETFULL 3)
+        (\PUPE.NOSOCKET 2)
-                          (\PUPE.GATEWAY.BADPUP 1001Q)
+        (\PUPE.SOCKETFULL 3)
-                          (\PUPE.NOROUTE 1002Q)
+        (\PUPE.GATEWAY.BADPUP 1001Q)
-                          (\PUPE.NOHOST 1003Q)
+        (\PUPE.NOROUTE 1002Q)
-                          (\PUPE.LOOPED 1004Q)
+        (\PUPE.NOHOST 1003Q)
-                          (\PUPE.TOOLARGE 1005Q)
+        (\PUPE.LOOPED 1004Q)
-                          (\PUPE.WRONG.GATEWAY 1006Q)
+        (\PUPE.TOOLARGE 1005Q)
-                          (\PUPE.GATEWAYFULL 1007Q)))
+        (\PUPE.WRONG.GATEWAY 1006Q)
+        (\PUPE.GATEWAYFULL 1007Q)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \PUPE.CHECKSUM
 1)
@@ -539,16 +535,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
 )
 )
 
-(RPAQQ PUPERRORMESSAGES
 ((1 "Bad Checksum")
+(RPAQQ PUPERRORMESSAGES

-                             (2 "No such socket")
+       ((1 "Bad Checksum")
-                             (3 "Socket full")
+        (2 "No such socket")
-                             (1001Q "Inconsistent pup")
+        (3 "Socket full")
-                             (1002Q "No route to that host")
+        (1001Q "Inconsistent pup")
-                             (1003Q "Host is down")
+        (1002Q "No route to that host")
-                             (1004Q "Too many hops")
+        (1003Q "Host is down")
-                             (1005Q "Pup too long")
+        (1004Q "Too many hops")
-                             (1006Q "Wrong gateway for that host")
+        (1005Q "Pup too long")
-                             (1007Q "Gateway IQ full")))
+        (1006Q "Wrong gateway for that host")
+        (1007Q "Gateway IQ full")))
 (DEFINEQ
 
 (\PUPERROR

@@ -936,41 +933,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
     (\NET.SETTIME
 T])
 
 (\PUP.SETTIME

-  [LAMBDA (RETFLG)
                                       (* bvm%: " 1-NOV-83 17:07")

+  [LAMBDA (RETFLG)
                                    (* ; "Edited 13-May-88 15:22 by MASINTER")

-
+    (CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG)))
-(* ;;; "Sets the local time from the network, if possible, or simply returns a 32-bit unsigned alto time if RETFLG is T")

+        (SETQ \TimeZoneComp (SUBRCALL GETUNIXTIME 10Q NIL)))
-
+    (\PROCESS.RESET.TIMERS)
-    (DECLARE
 (GLOBALVARS \TimeZoneComp \BeginDST \EndDST))
+    (DAYTIME])
-    (PROG ((SOC (\GETMISCSOCKET
))
-           (OPUP (ALLOCATE.PUP))
-           RESULT IPUP DATA TIME)
-          (SETUPPUP
 OPUP 0 \PUPSOCKET.MISCSERVICES \PT.ALTOTIMEREQUEST NIL SOC T)
-          (RETURN (to
 \MAXETHERTRIES when
 (SETQ IPUP (EXCHANGEPUPS
 SOC OPUP NIL T))
-                     do
 (SELECTC (fetch
 PUPTYPE of
 IPUP)
-                                (\PT.ALTOTIMERESPONSE 
-                                     (SETQ DATA (fetch
 PUPCONTENTS of
 IPUP))
-                                     (SETQ TIME (create
 FIXP
-                                                       HINUM _ (fetch
 TIMEPUPVALUEHI of

-                                                                                         DATA)
-                                                       LONUM _ (fetch
 TIMEPUPVALUELO of

-                                                                                         DATA)))
-                                     (COND
-                                        (RETFLG (RETURN TIME)))
-                                     (\SETNEWTIME0
 TIME)
-                                     (SETQ \TimeZoneComp (ITIMES (COND
-                                                                    ((fetch
 TIMEPUPEASTP
-                                                                        of
 DATA)
-                                                                     -1)
-                                                                    (T 1))
-                                                                (fetch
 TIMEPUPHOURS of
 DATA))
-                                      )
-                                     (SETQ \BeginDST (fetch
 TIMEPUPBEGINDST of
 DATA))
-                                     (SETQ \EndDST (fetch
 TIMEPUPENDDST of
 DATA))
-                                     (RELEASE.PUP IPUP)
-                                     (RETURN T))
-                                (\PT.ERROR (AND PUPTRACEFLG (PRINTERRORPUP
 IPUP PUPTRACEFILE)))
-                                NIL)
-                           (RELEASE.PUP IPUP])
 
 (\SETNEWTIME0

   [LAMBDA (NEWTIME)
                                      (* bvm%: "26-Jul-84 15:23")

@@ -1281,30 +1248,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
 )
 (DEFINEQ
 
-(CANONICAL.HOSTNAME

-  [LAMBDA (HOSTNAME)
                                     (* ; "Edited 12-Apr-88 17:43 by bvm")

-    (LET [(DEV (CL:ASSOC HOSTNAME \DEVICENAMETODEVICE :TEST 'STRING-EQUAL]
-         (if
 DEV
-             then
                                        (* ; "Known device, don't ask anyone")

-                   (fetch
 DEVICENAME of
 (CDR DEV))
-           elseif
 (STRPOS ":" HOSTNAME)
-             then
                                        (* ; "Assume NS")

-                   (\CANONICAL.NSHOSTNAME HOSTNAME)
-           elseif
 (NUMBERP HOSTNAME)
-             then
                                        (* ; "Some sort of host address")

-                   (if
 (AND (SMALLP HOSTNAME)
-                                (< HOSTNAME 377Q))
-                       then
                              (* ; "valid pup address")

-                             HOSTNAME
-                     elseif
 \IP.READY
-                       then
                              (* ; "Big number may be IP host")

-                             (IPHOSTNAME HOSTNAME))
-           else
 (if
 (NOT (LITATOM HOSTNAME))
-                        then
 (SETQ HOSTNAME (MKATOM HOSTNAME)))
-                 (OR (CDR (FASSOC HOSTNAME \HOSTNAMES))
-                     (\CANONICALIZE.IP.HOSTNAME HOSTNAME)
-                     (\CANONICALIZE.PUP.HOSTNAME
 HOSTNAME])
-
 (\CANONICAL.HOSTNAME

   [LAMBDA (NAME)
                                         (* ; "Edited 11-Mar-88 12:09 by bvm")

 
@@ -1357,25 +1300,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS BINDPUPS MACRO (X (CONS (LIST 'LAMBDA (CAR X)
+(PUTPROPS BINDPUPS
 MACRO
 [X (CONS (LIST 'LAMBDA (CAR X)
-                                        (CONS 'PROGN (CDR X)))
+                                                (CONS 'PROGN (CDR X)))
-                                  (in
 (CAR X) collect
 (LIST 'ALLOCATE.PUP]
+                                          (in
 (CAR X) collect
 (LIST 'ALLOCATE.PUP])
 )
 
-(PUTPROPS BINDPUPS INFO
 BINDS)
+(PUTPROPS BINDPUPS
 INFO
 BINDS)
 
-(ADDTOVAR PRETTYPRINTMACROS
 (BINDPUPS LAMBDA
+(ADDTOVAR PRETTYPRINTMACROS

-                                  (FORM)
+          (BINDPUPS LAMBDA
-                                  (PROG [(POS (IPLUS 2 (POSITION]
+            (FORM)
-                                        (PRIN1 "(")
+            (PROG [(POS (IPLUS 2 (POSITION]
-                                        (PRIN2 (CAR FORM))
+                  (PRIN1 "(")
-                                        (SPACES 1)
+                  (PRIN2 (CAR FORM))
-                                        (PRINTDEF (CADR FORM)
+                  (SPACES 1)
-                                               (POSITION))
+                  (PRINTDEF (CADR FORM)
-                                        (OR [EQ COMMENTFLG (CAAR (SETQ FORM (CDDR FORM]
+                         (POSITION))
-                                            (TAB POS 0))
+                  (OR [EQ COMMENTFLG (CAAR (SETQ FORM (CDDR FORM]
-                                        (PRINTDEF FORM POS T T FNSLST)
+                      (TAB POS 0))
-                                        (PRIN1 ")"))))
+                  (PRINTDEF FORM POS T T FNSLST)
+                  (PRIN1 ")"))))
 
 (* "END EXPORTED DEFINITIONS")
 
@@ -1725,12 +1669,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
 
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO)
+(PUTPROPS \PUPSOCKET.FROM#
 MACRO
 (OPENLAMBDA (SOCHI SOCLO)
-                                        (for
 SOC in
 \PUPSOCKETS
+                                           (for
 SOC in
 \PUPSOCKETS
-                                           when
 (AND (EQ (fetch
 PSOCKETLO of
 SOC)
+                                              when
 (AND (EQ (fetch
 PSOCKETLO of
 SOC)
-                                                             SOCLO)
+                                                                SOCLO)
-                                                         (EQ (fetch
 PSOCKETHI of
 SOC)
+                                                            (EQ (fetch
 PSOCKETHI of
 SOC)
-                                                             SOCHI)) do
 (RETURN SOC]
+                                                                SOCHI)) do
 (RETURN SOC))))
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1920,61 +1864,62 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
        (\TIME.GETPUP 5))
 )
 
-(PUTPROPS PUPPRINTMACROS VARTYPE
 ALIST)
+(PUTPROPS PUPPRINTMACROS
 VARTYPE
 ALIST)
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#)
+(PUTPROPS \GETPUPWORD
 DMACRO
 ((PUP WORD#)
-                              (\GETBASE (fetch
 PUPCONTENTS of
 PUP)
+                                      (\GETBASE (fetch
 PUPCONTENTS of
 PUP)
-                                     WORD#)))
+                                             WORD#)))
 
-(PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE)
+(PUTPROPS \PUTPUPWORD
 DMACRO
 ((PUP WORD# VALUE)
-                              (\PUTBASE (fetch
 PUPCONTENTS of
 PUP)
+                                      (\PUTBASE (fetch
 PUPCONTENTS of
 PUP)
-                                     WORD# VALUE)))
+                                             WORD# VALUE)))
 
-(PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#)
+(PUTPROPS \GETPUPBYTE
 DMACRO
 ((PUP BYTE#)
-                              (\GETBASEBYTE (fetch
 PUPCONTENTS of
 PUP)
+                                      (\GETBASEBYTE (fetch
 PUPCONTENTS of
 PUP)
-                                     BYTE#)))
+                                             BYTE#)))
 
-(PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE)
+(PUTPROPS \PUTPUPBYTE
 DMACRO
 ((PUP BYTE# VALUE)
-                              (\PUTBASEBYTE (fetch
 PUPCONTENTS of
 PUP)
+                                      (\PUTBASEBYTE (fetch
 PUPCONTENTS of
 PUP)
-                                     BYTE# VALUE)))
+                                             BYTE# VALUE)))
 )
 
-(RPAQQ RAWPUPTYPES
 ((\PT.ECHOME 1)
+(RPAQQ RAWPUPTYPES

-                        (\PT.IAMECHO 2)
+       ((\PT.ECHOME 1)
-                        (\PT.IAMBADECHO 3)
+        (\PT.IAMECHO 2)
-                        (\PT.ERROR 4)
+        (\PT.IAMBADECHO 3)
-                        (\PT.RFC 10Q)
+        (\PT.ERROR 4)
-                        (\PT.ABORT 11Q)
+        (\PT.RFC 10Q)
-                        (\PT.END 12Q)
+        (\PT.ABORT 11Q)
-                        (\PT.ENDREPLY 13Q)
+        (\PT.END 12Q)
-                        (\PT.DATA 20Q)
+        (\PT.ENDREPLY 13Q)
-                        (\PT.ADATA 21Q)
+        (\PT.DATA 20Q)
-                        (\PT.ACK 22Q)
+        (\PT.ADATA 21Q)
-                        (\PT.MARK 23Q)
+        (\PT.ACK 22Q)
-                        (\PT.INTERRUPT 24Q)
+        (\PT.MARK 23Q)
-                        (\PT.INTERRUPTREPLY 25Q)
+        (\PT.INTERRUPT 24Q)
-                        (\PT.AMARK 26Q)
+        (\PT.INTERRUPTREPLY 25Q)
-                        (\PT.GATEWAYREQUEST 200Q)
+        (\PT.AMARK 26Q)
-                        (\PT.GATEWAYRESPONSE 201Q)
+        (\PT.GATEWAYREQUEST 200Q)
-                        (\PT.ALTOTIMEREQUEST 206Q)
+        (\PT.GATEWAYRESPONSE 201Q)
-                        (\PT.ALTOTIMERESPONSE 207Q)
+        (\PT.ALTOTIMEREQUEST 206Q)
-                        (\PT.MSGCHECK 210Q)
+        (\PT.ALTOTIMERESPONSE 207Q)
-                        (\PT.NEWMAIL 211Q)
+        (\PT.MSGCHECK 210Q)
-                        (\PT.NONEWMAIL 212Q)
+        (\PT.NEWMAIL 211Q)
-                        (\PT.NOMAILBOX 213Q)
+        (\PT.NONEWMAIL 212Q)
-                        (\PT.LAURELCHECK 214Q)
+        (\PT.NOMAILBOX 213Q)
-                        (\PT.NAMELOOKUP 220Q)
+        (\PT.LAURELCHECK 214Q)
-                        (\PT.NAMERESPONSE 221Q)
+        (\PT.NAMELOOKUP 220Q)
-                        (\PT.NAME/ADDRERROR 222Q)
+        (\PT.NAMERESPONSE 221Q)
-                        (\PT.ADDRLOOKUP 223Q)
+        (\PT.NAME/ADDRERROR 222Q)
-                        (\PT.ADDRRESPONSE 224Q)
+        (\PT.ADDRLOOKUP 223Q)
-                        (\PT.PRINTERSTATUS 200Q)
+        (\PT.ADDRRESPONSE 224Q)
-                        (\PT.STATUSRESPONSE 201Q)
+        (\PT.PRINTERSTATUS 200Q)
-                        (\PT.PRINTERCAPABILITY 202Q)
+        (\PT.STATUSRESPONSE 201Q)
-                        (\PT.CAPABILITYRESPONSE 203Q)
+        (\PT.PRINTERCAPABILITY 202Q)
-                        (\PT.PRINTJOBSTATUS 204Q)
+        (\PT.CAPABILITYRESPONSE 203Q)
-                        (\PT.PRINTJOBRESPONSE 205Q)))
+        (\PT.PRINTJOBSTATUS 204Q)
+        (\PT.PRINTJOBRESPONSE 205Q)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \PT.ECHOME
 1)
@@ -2151,9 +2096,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
 
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS PUPDEBUGGING MACRO ((X . Y)
+(PUTPROPS PUPDEBUGGING
 MACRO
 [(X . Y)
-                              (COND
+                                      (COND
-                                 (PUPTRACEFLG (printout PUPTRACEFILE X . Y]
+                                         (PUPTRACEFLG (printout PUPTRACEFILE X . Y])
 )
 
 
@@ -2521,36 +2466,35 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
        LLETHER)
 )
 
-(PUTPROPS PUP MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q))
+(PUTPROPS PUP
 MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q))
 
-(PUTPROPS PUP FILETYPE
 CL:COMPILE-FILE)
+(PUTPROPS PUP
 FILETYPE
 CL:COMPILE-FILE)
 (PUTPROPS PUP COPYRIGHT ("Venue & Xerox Corporation" 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3705Q 
-3706Q 3707Q 3710Q 3711Q))
+3706Q 3707Q 3710Q 3711Q 3745Q))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (30620Q 64575Q (\STARTPUP 30632Q . 31504Q) (ASSURE.PUP.READY 31506Q . 37601Q) (
+  (FILEMAP (NIL (25631Q 61606Q (\STARTPUP 25643Q . 26515Q) (ASSURE.PUP.READY 26517Q . 34612Q) (
-\FIND.LOCALPUPHOSTNUMBER 37603Q . 42001Q) (\PROMPT.FOR.PUP.NUMBER 42003Q . 44023Q) (\HANDLE.RAW.PUP 
+\FIND.LOCALPUPHOSTNUMBER 34614Q . 37012Q) (\PROMPT.FOR.PUP.NUMBER 37014Q . 41034Q) (\HANDLE.RAW.PUP 
-44025Q . 62125Q) (\FORWARD.PUP 62127Q . 63047Q) (\SETPUPCHECKSUM 63051Q . 64573Q)) (72106Q 77200Q (
+41036Q . 57136Q) (\FORWARD.PUP 57140Q . 60060Q) (\SETPUPCHECKSUM 60062Q . 61604Q)) (66376Q 73470Q (
-\PUPERROR 72120Q . 77176Q)) (77237Q 116373Q (SETUPPUP 77251Q . 102437Q) (SWAPPUPPORTS 102441Q . 
+\PUPERROR 66410Q . 73466Q)) (73527Q 112663Q (SETUPPUP 73541Q . 76727Q) (SWAPPUPPORTS 76731Q . 77546Q) 
-103256Q) (GETPUP 103260Q . 106172Q) (SENDPUP 106174Q . 112016Q) (EXCHANGEPUPS 112020Q . 114056Q) (
+(GETPUP 77550Q . 102462Q) (SENDPUP 102464Q . 106306Q) (EXCHANGEPUPS 106310Q . 110346Q) (DISCARDPUPS 
-DISCARDPUPS 114060Q . 114664Q) (GETPUPWORD 114666Q . 115205Q) (\PUPINIT 115207Q . 116371Q)) (116374Q 
+110350Q . 111154Q) (GETPUPWORD 111156Q . 111475Q) (\PUPINIT 111477Q . 112661Q)) (112664Q 154244Q (
-164121Q (ETHERHOSTNAME 116406Q . 125534Q) (ETHERHOSTNUMBER 125536Q . 126151Q) (ETHERPORT 126153Q . 
+ETHERHOSTNAME 112676Q . 122024Q) (ETHERHOSTNUMBER 122026Q . 122441Q) (ETHERPORT 122443Q . 126162Q) (
-131672Q) (BESTPUPADDRESS 131674Q . 141734Q) (NETDAYTIME0 141736Q . 142267Q) (\PUP.SETTIME 142271Q . 
+BESTPUPADDRESS 126164Q . 136224Q) (NETDAYTIME0 136226Q . 136557Q) (\PUP.SETTIME 136561Q . 137206Q) (
-147063Q) (\SETNEWTIME0 147065Q . 150145Q) (\NET.SETTIME 150147Q . 151236Q) (NETDATE 151240Q . 151575Q)
+\SETNEWTIME0 137210Q . 140270Q) (\NET.SETTIME 140272Q . 141361Q) (NETDATE 141363Q . 141720Q) (
- (\LOOKUPPORT 151577Q . 157436Q) (\PARSE.PORTCONSTANT 157440Q . 162550Q) (\FIXLOCALNET 162552Q . 
+\LOOKUPPORT 141722Q . 147561Q) (\PARSE.PORTCONSTANT 147563Q . 152673Q) (\FIXLOCALNET 152675Q . 154242Q
-164117Q)) (164122Q 165457Q (PORTSTRING 164134Q . 165123Q) (OCTALSTRING 165125Q . 165455Q)) (166051Q 
+)) (154245Q 155602Q (PORTSTRING 154257Q . 155246Q) (OCTALSTRING 155250Q . 155600Q)) (156174Q 165305Q (
-175162Q (CLEARPUP 166063Q . 170576Q) (PUTPUPWORD 170600Q . 171125Q) (GETPUPBYTE 171127Q . 171452Q) (
+CLEARPUP 156206Q . 160721Q) (PUTPUPWORD 160723Q . 161250Q) (GETPUPBYTE 161252Q . 161575Q) (PUTPUPBYTE 
-PUTPUPBYTE 171454Q . 172005Q) (GETPUPSTRING 172007Q . 173440Q) (GETPUPSTREAM 173442Q . 174371Q) (
+161577Q . 162130Q) (GETPUPSTRING 162132Q . 163563Q) (GETPUPSTREAM 163565Q . 164514Q) (PUTPUPSTRING 
-PUTPUPSTRING 174373Q . 175160Q)) (177265Q 205104Q (READPLIST 177277Q . 205102Q)) (205265Q 213311Q (
+164516Q . 165303Q)) (167410Q 175227Q (READPLIST 167422Q . 175225Q)) (175410Q 200610Q (
-CANONICAL.HOSTNAME 205277Q . 210121Q) (\CANONICAL.HOSTNAME 210123Q . 211170Q) (
+\CANONICAL.HOSTNAME 175422Q . 176467Q) (\CANONICALIZE.PUP.HOSTNAME 176471Q . 200606Q)) (203163Q 
-\CANONICALIZE.PUP.HOSTNAME 211172Q . 213307Q)) (216177Q 251404Q (\PUPGATELISTENER 216211Q . 222042Q) (
+236370Q (\PUPGATELISTENER 203175Q . 207026Q) (\HANDLE.PUP.ROUTING.INFO 207030Q . 221367Q) (\ROUTE.PUP 
-\HANDLE.PUP.ROUTING.INFO 222044Q . 234403Q) (\ROUTE.PUP 234405Q . 240240Q) (\LOCATE.PUPNET 240242Q . 
+221371Q . 225224Q) (\LOCATE.PUPNET 225226Q . 231763Q) (SORT.PUPHOSTS.BY.DISTANCE 231765Q . 234241Q) (
-244777Q) (SORT.PUPHOSTS.BY.DISTANCE 245001Q . 247255Q) (\PUPNET.CLOSERP 247257Q . 250440Q) (
+\PUPNET.CLOSERP 234243Q . 235424Q) (PUPNET.DISTANCE 235426Q . 236366Q)) (250017Q 257771Q (
-PUPNET.DISTANCE 250442Q . 251402Q)) (263001Q 272753Q (OPENPUPSOCKET 263013Q . 267474Q) (CLOSEPUPSOCKET
+OPENPUPSOCKET 250031Q . 254512Q) (CLOSEPUPSOCKET 254514Q . 256173Q) (PUPSOCKETNUMBER 256175Q . 256426Q
- 267476Q . 271155Q) (PUPSOCKETNUMBER 271157Q . 271410Q) (PUPSOCKETFROMNUMBER 271412Q . 272051Q) (
+) (PUPSOCKETFROMNUMBER 256430Q . 257067Q) (PUPSOCKETEVENT 257071Q . 257350Q) (\FLUSHPUPSOCQUEUE 
-PUPSOCKETEVENT 272053Q . 272332Q) (\FLUSHPUPSOCQUEUE 272334Q . 272751Q)) (272754Q 273521Q (
+257352Q . 257767Q)) (257772Q 260537Q (\GETMISCSOCKET 260004Q . 260535Q)) (300551Q 313341Q (
-\GETMISCSOCKET 272766Q . 273517Q)) (314367Q 327157Q (PUP.ECHOSERVER 314401Q . 317206Q) (PUP.ECHOUSER 
+PUP.ECHOSERVER 300563Q . 303370Q) (PUP.ECHOUSER 303372Q . 313337Q)) (313372Q 322523Q (\PEEKPUP 313404Q
-317210Q . 327155Q)) (327210Q 336341Q (\PEEKPUP 327222Q . 334353Q) (\MAYBEPEEKPUP 334355Q . 336337Q)) (
+ . 320535Q) (\MAYBEPEEKPUP 320537Q . 322521Q)) (323124Q 334361Q (PRINTPUP 323136Q . 327306Q) (
-336742Q 350177Q (PRINTPUP 336754Q . 343124Q) (PRINTPUPROUTE 343126Q . 345073Q) (PRINTPUPDATA 345075Q
+PRINTPUPROUTE 327310Q . 331255Q) (PRINTPUPDATA 331257Q . 331727Q) (PRINTERRORPUP 331731Q . 332431Q) (
- . 345545Q) (PRINTERRORPUP 345547Q . 346247Q) (PUPTRACE 346251Q . 346562Q) (PRINTCONSTANT 346564Q . 
+PUPTRACE 332433Q . 332744Q) (PRINTCONSTANT 332746Q . 334357Q)))))
-350175Q)))))
 STOP