Ignore #\( #\{ patterns in 'smart' argnames when showing stack frames (#475)

TEDIT + FILEBROWSER:  Add function TEDIT-SEE, call from FILEBROWSER

.gitignore

@@ -1,7 +1,19 @@
 # loadup interim steps
 
 tmp/*
-loadups/init*
+
+# all loadup files 
+
+library/exports.all
+library/RDSYS*
+loadups/lisp.sysout
+loadups/full.sysout
+loadups/*.dribble
+loadups/whereis.hash
+
+# manual cross-reference files
+
+*.IMPTR
 
 #compiled code -- leave in for now
 
@@ -24,7 +36,3 @@ core
 
 # Mac OS detritus
 .DS_Store
-
-# set up by install-diff-filter.sh script
-.gitattributes
-sources/LLREAD.LCOM.~1~

greetfiles/NOGREET

@@ -0,0 +1,19 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "10-Sep-2021 21:25:42" {DSK}<home>larry>medley>greetfiles>NOGREET.;1
 537    )
+
+
+(PRETTYCOMPRINT NOGREETCOMS)
+
+(RPAQQ NOGREETCOMS
 [(P (COND ((STKPOS 'GREET)
+                                  (SETQ USERGREETFILES NIL)
+                                  (CLOSEF? (INPUT))
+                                  (RETFROM 'GREET])
+
+[COND
+   ((STKPOS 'GREET)
+    (SETQ USERGREETFILES NIL)
+    (CLOSEF? (INPUT))
+    (RETFROM 'GREET]
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL)))
+STOP

internal/library/MAKE-PS

@@ -0,0 +1,133 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED " 1-Sep-2021 21:13:57" {DSK}<home>larry>medley>internal>library>MAKE-PS.;6
 5503   
+
+      changes to%:  (VARS MAKE-PSCOMS)
+                    (FNS MAKE-PS-INIT)
+
+      previous date%: "31-Aug-2021 22:30:13" {DSK}<home>larry>medley>internal>library>MAKE-PS.;4)
+
+
+(PRETTYCOMPRINT MAKE-PSCOMS)
+
+(RPAQQ MAKE-PSCOMS

+       [(FNS MAKE-PS MAKE-PS-INIT BADFILE)
+        
+        (* ;; " Load known used image object types")

+
+        (FILES DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
+        (ADVISE TEDIT.PROMPTPRINT)
+        (INITVARS (BADFILESFILE)
+               (BADFS)
+               (BADFILES))
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAKE-PS-INIT])
+(DEFINEQ
+
+(MAKE-PS

+  [LAMBDA (TFILE PREFIX DEST REDOFLG TOPDIRLEN)
        (* ; "Edited 21-Aug-2021 20:56 by larry")

+    (DECLARE
 (SPECVARS TFILE))
+    (COND
+       ((DIRECTORYNAMEP TFILE)
+        (SETQ TFILE (DIRECTORYNAME TFILE))
+        [OR TOPDIRLEN (SETQ TOPDIRLEN (IPLUS 1 (CL:LENGTH (MKSTRING (FILENAMEFIELD TFILE 'DIRECTORY]
+        [OR DEST (PROGN (ShellCommand (CONCAT "mkdir -p " (UNIX-GETENV "MEDLEYDIR")
+                                             "/tmp/psfiles"))
+                        (SETQ DEST (MEDLEYDIR "tmp/psfiles"]
+
+        (* ;; "first deal with files in this directory")

+
+        (for
 X in
 (IF
 (EQ REDOFLG 'REV)
+                              THEN
 (REVERSE (DIRECTORY (CONCAT TFILE "*.TED*;")))
+                            ELSE
 (DIRECTORY (CONCAT TFILE "*.TED*;")))
+           when
 (NOT (MEMB X BADFILES)) do
 (MAKE-PS
 X PREFIX DEST REDOFLG TOPDIRLEN))
+
+        (* ;; " then deal with subdirs ")

+
+        (for
 X in
 (IF
 (EQ REDOFLG 'REV)
+                              THEN
 (REVERSE (DIRECTORY (CONCAT TFILE "*")))
+                            ELSE
 (DIRECTORY (CONCAT TFILE "*")))
+           when
 [for
 SKIP in
 '(">." ">internal>test" ">dinfo>")
+                       always
 (NOT (STRPOS SKIP (L-CASE X] when
 (DIRECTORYNAMEP X)
+           do
 (MAKE-PS
 X PREFIX DEST REDOFLG TOPDIRLEN)))
+       [(SETQ TFILE (INFILEP TFILE))
+        (PROG ((PSFILE (PACKFILENAME.STRING 'EXTENSION (if
 (EQ REDOFLG 'IP)
+                                                           then
 'IP
+                                                         else
 "PS")
+                              'NAME
+                              (CONCAT (OR PREFIX "")
+                                     (if
 PREFIX
+                                         then
 "-"
+                                       else
 "")
+                                     [PACK (SUBST '- '> (UNPACK (SUBSTRING (FILENAMEFIELD
+                                                                            TFILE
+                                                                            'DIRECTORY)
+                                                                       (IPLUS 1 TOPDIRLEN)
+                                                                       -1]
+                                     "-"
+                                     (FILENAMEFIELD TFILE 'NAME))
+                              'DIRECTORY DEST))
+               (TEXTSTREAM))
+              (if
 (MEMB TFILE BADFILES)
+                  then
 (RETURN))
+              (if
 (AND (NOT REDOFLG)
+                           (INFILEP PSFILE))
+                  then
                                   (* ; " do nothing")

+                        (PRINTOUT T PSFILE " already there" T)
+                elseif
 (EQ REDOFLG 'TEST)
+                  then
 (PRINTOUT T "TESTING " TFILE)
+                        (CLOSEF (OPENTEXTSTREAM TFILE))
+                else
 (PRINTOUT T "Converting " TFILE "...")
+                      (TEDIT.FORMAT.HARDCOPY (SETQ TEXTSTREAM (OPENTEXTSTREAM TFILE))
+                             PSFILE T NIL NIL NIL (if
 (EQ REDOFLG 'IP)
+                                                      then
 'INTERPRESS
+                                                    else
 'POSTSCRIPT))
+                      (printout T " DONE" T)
+                      (CLOSEF? TEXTSTREAM]
+       (T (PRINTOUT T "no such file " T])
+
+(MAKE-PS-INIT

+  [LAMBDA NIL
                                          (* ; "Edited  1-Sep-2021 16:27 by larry")

+                                                             (* ; " initialize")

+    (SETQ BADFILESFILE (MEDLEYDIR "tmp" "badfiles.txt" T))
+    (SETQ BADFS (OPENSTREAM BADFILESFILE 'APPEND))
+    (POSTSCRIPT.INIT)
+    (SETQ BADFILES (SUBSET (READFILE BADFILESFILE)
+                          (FUNCTION INFILEP])
+
+(BADFILE

+  [LAMBDA (X)
                                          (* ; "Edited 16-Aug-2021 13:14 by larry")

+    ([LAMBDA ($$1)
+       (COND
+          ((FMEMB $$1 BADFILES)
+           BADFILES)
+          (T (NCONC1 BADFILES $$1]
+     (OR X TFILE))
+    (PRINT (OR X TFILE)
+           BADFS)
+    (FLUSHOUTPUT BADFS)
+    (CLOSEF? TEXTSTREAM)
+    (RETFROM 'MAKE-PS NIL])
+)
+
+
+
+(* ;; " Load known used image object types")

+
+
+(FILESLOAD DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
+
+[XCL:REINSTALL-ADVICE 'TEDIT.PROMPTPRINT :BEFORE '((:LAST (PRIN1 MSG T]
+
+(READVISE TEDIT.PROMPTPRINT)
+
+(RPAQ? BADFILESFILE
 )
+
+(RPAQ? BADFS
 )
+
+(RPAQ? BADFILES
 )
+(DECLARE%: DONTEVAL@LOAD DOCOPY 
+
+(MAKE-PS-INIT
)
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (786 5110 (MAKE-PS 796 . 4293) (MAKE-PS-INIT 4295 . 4731) (BADFILE 4733 . 5108)))))
+STOP

library/FILEBROWSER

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
-
(FILECREATED "21-Aug-2021 23:33:58" 
-|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;9|
 263236 
+
(FILECREATED "19-Sep-2021 18:08:05" 
+|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;9|
 260675 
 
-      |changes| |to:|  (FNS FB.FIX-DIRECTORY-DATES)
+      |changes| |to:|  (FNS FB.EDITCOMMAND.ONEFILE)
 
-      |previous| |date:| "21-Aug-2021 23:08:34" 
+      |previous| |date:| "21-Aug-2021 23:33:58" 
 |{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;7|)
 
 
@@ -22,11 +22,11 @@
                                                       (TERPRI T))))
               (FILES ATTACHEDWINDOW ICONW TABLEBROWSER)
               (P 
-                 (* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded")

+                 (* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded")

 
                  (MOVD? 'NILL 'TOTOPW.MODERNIZE))
               
-              (* |;;| "JDS 11/94 FB.ICONSPEC is now an INITVAR so we can create smaller ones in profiles for, e.g., laptops.")

+              (* |;;| "JDS 11/94 FB.ICONSPEC is now an INITVAR so we can create smaller ones in profiles for, e.g., laptops.")

 
               (INITVARS (FB.EXPUNGE?MENU)
                      (FB.BROWSERFONT DEFAULTFONT)
@@ -45,7 +45,7 @@
                                  (FB.PROMPTFONT LITTLEFONT)
                                  (FB.BROWSER.DIRECTORY.FONT BOLDFONT)))
               (P 
-                 (* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.")

+                 (* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.")

 
                  (FONTSET (FONTSET)))
               (ADDVARS (CACHEDMENUS FB.EXPUNGE?MENU))
@@ -170,16 +170,16 @@ You specify how many versions to keep.")))
               (VARS FB.VERSION.MENU.ITEMS FB.CLOSE.MENU.ITEMS FB.DEPTH.MENU.ITEMS FB.INFO.MENU.ITEMS
                     FB.DEFAULT.NAME.WIDTH FB.INFO.FIELDS FB.INFOSHADE FB.ITEMUNSELECTEDSHADE 
                     FB.ITEMSELECTEDSHADE))
-        (COMS                                                (* \; "Entries")

+        (COMS                                                (* \; "Entries")

               (COMMANDS "fb")
               (FNS FB FB.COPYBINARYCOMMAND FB.COPYTEXTCOMMAND FILEBROWSER FB.TABLEBROWSER 
                    FB.SELECTEDFILES FB.FETCHFILENAME FB.DIRECTORYP FB.PROMPTWPRINT FB.PROMPTW.FORMAT
                    FB.PROMPTFORINPUT FB.YES-OR-NO-P FB.ALLOW.ABORT \\FB.HARDCOPY.TOFILE.EXTENSION)
-                                                             (* \; "Setup")

+                                                             (* \; "Setup")

               (FNS FB.STARTUP FB.MAKERIGIDWINDOW)
               (FNS FB.PRINTFN FB.COPYFN))
-        (COMS                                                (* \; 
-
                                                           "commands and major subfunctions")

+        (COMS                                                (* \; 
+
                                                           "commands and major subfunctions")

               (FNS FB.MENU.WHENSELECTEDFN FB.COMMANDSELECTEDFN FB.SUBITEMP FB.MAKE.BROWSER.BUSY 
                    FB.FINISH.COMMAND FB.HANDLE.ABORT.BUTTON)
               (FNS FB.DELETECOMMAND FB.DELVERCOMMAND FB.IS.NOT.SUBDIRECTORY.ITEM FB.DELVER.FILES 
@@ -204,7 +204,7 @@ You specify how many versions to keep.")))
               (FNS FB.EXPUNGECOMMAND FB.NEWPATTERNCOMMAND FB.NEWINFOCOMMAND FB.DEPTHCOMMAND 
                    FB.SHAPECOMMAND FB.REMOVE.FILE FB.COUNT.FILE.CHANGE FB.SETNEWPATTERN 
                    FB.GET.NEWPATTERN FB.OPTIONSCOMMAND))
-        (COMS                                                (* \; "window functions")

+        (COMS                                                (* \; "window functions")

               (FNS FB.INFOMENU.SHADEINITIALSELECTIONS FB.INFO.ITEM.NAMED)
               (FNS FB.MAKECOUNTERWINDOW FB.COUNTERW.REDISPLAYFN FB.UPDATE.COUNTERS 
                    FB.DISPLAY.COUNTERS FB.COUNTER.STRING)
@@ -253,7 +253,7 @@ You specify how many versions to keep.")))
 (FILESLOAD ATTACHEDWINDOW ICONW TABLEBROWSER)
 
 
-(* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded")

+(* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded")

 
 
 (MOVD? 'NILL 'TOTOPW.MODERNIZE)
@@ -295,7 +295,7 @@ You specify how many versions to keep.")))
                           (FB.BROWSER.DIRECTORY.FONT BOLDFONT))
 
 
-(* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.")

+(* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.")

 
 
 (FONTSET (FONTSET))
@@ -1684,84 +1684,49 @@ Your deletions are thus ignored.")))
                ELSE
 (FB.FASTSEECOMMAND
 BROWSER KEY ITEM MENU)))))
 
 (FB.EDITCOMMAND.ONEFILE

-  (LAMBDA (BROWSER FILE OPTION ITEM MENU)
              (* \; "Edited  8-Aug-2021 11:16 by rmk:")


-                                                           (* \; "Edited 27-Feb-2021 20:07 by rmk:")


-                                                             (* \; "Edited  1-Feb-88 19:00 by bvm:")

+  (LAMBDA (BROWSER FILE OPTION ITEM MENU)
              (* \; "Edited 19-Sep-2021 18:07 by rmk:")


+                                                           (* \; "Edited 27-Feb-2021 20:07 by rmk:")


+                                                             (* \; "Edited  1-Feb-88 19:00 by bvm:")

 
-    (* |;;| "Called when we know that FILE is a file, not a directory, and that TEDIT exists.  If OPTION is READONLY, we don't want to edit, just view.  If FILE is a lisp sourcefile, we execute the font changes by COPY.TEXT.TO.IMAGE.")

+    (* |;;| "Called when we know that FILE is a file, not a directory, and that TEDIT exists.  If OPTION is READONLY, we don't want to edit, just view.  .")

 
-    (* |;;| "We clear the shade stuff here because we don't want the FB to come up on top of our see/edit region.  We don't factor it to the top because we want to do whatever heavy lifting (copying files) before.  Don't factor to the end because then it is too late--the TEDIT window was up and then buried.  (If TEDIT had a don'topen option, we could set things up, then change the shade, then open.  We could also do the manufactured title on the window before it shows.")

+    (* |;;| "We clear the shade stuff here because we don't want the FB to come up on top of our see/edit region.   Don't factor to the end because then it is too late--the TEDIT window was up and then buried.  (If TEDIT had a don'topen option, we could set things up, then change the shade, then open.  We could also do the manufactured title on the window before it shows.")

 
-    (CL:UNLESS OPTION (SETQ OPTION FB.DEFAULT.EDITOR))
-    (CL:MULTIPLE-VALUE-BIND
-     (IGNORE CONDITION)
-     (IGNORE-ERRORS
-      (LET ((ENV (LISPSOURCEFILEP FILE)))
-           (IF
 ENV
-               THEN
 (SELECTQ OPTION
-                            ((LISP NIL TEDIT) 
-                                              (* |;;| 
-
"Asks to load prop and edits the coms.  We really don't want to use a text editor on a source file.")

+    (CL:UNLESS OPTION (SETQ OPTION FB.DEFAULT.EDITOR))       (* \; "Default editor is TEDIT. ")

 
-                                 
-                                 (* |;;| "The FUNCALL at the bottom is concerning.")

+    (* |;;| "Unshade the item before we create the TEDIT window, and tell FB.FINISH.COMMAND that we did that.  That way, the FB window won't pop up on top.")

 
-                                 (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE)
-                                 (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE))
-                                 (FB.EDITLISPFILE
 FILE BROWSER))
-                            (READONLY                        (* \; "READONLY on call from SEE")

-                                      (CL:WITH-OPEN-FILE
-                                       (STREAM FILE :DIRECTION :INPUT)
-                                       (LET ((NSTR (OPENTEXTSTREAM)))
-                                            (\\EXTERNALFORMAT STREAM ENV)
-                                            (COPY.TEXT.TO.IMAGE STREAM NSTR)
+    (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE)
+    (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE))
 
-                                 (* |;;| "Unshade the item before we create the TEDIT window, and tell FB.FINISH.COMMAND that we did that.  That way, the FB window won't pop up on top.")

+    (* |;;| "The particular item may be a subitem of the EDIT or SEE menu item, in which case we want to unshade that too.  Seems a little bruteforce")

 
-                                            (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE)
-                                            (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM 
+    (CL:UNLESS (MEMBER ITEM (FETCH
 (MENU ITEMS) OF
 MENU))
+        (FOR
 I IN
 (FETCH
 (MENU ITEMS) OF
 MENU)
+           WHEN
 (MEMBER ITEM (CDR (SASSOC 'SUBITEMS I))) DO
 (SHADEITEM I MENU 
+                                                                           FB.ITEMUNSELECTEDSHADE)
+                                                                   (PUTMENUPROP MENU 'ITEMSHADE
+                                                                          (CONS I 
                                                                                FB.ITEMUNSELECTEDSHADE
-                                                                               ))
-                                            (WINDOWPROP (WFROMDS (TEXTSTREAM
-                                                                  (TEDIT NSTR NIL NIL
-                                                                         '(READONLY T))))
-                                                   'TITLE
-                                                   (CONCAT "SEE window for " (FULLNAME STREAM))))))
-                            (CL:FUNCALL OPTION (MKATOM FILE)))
-             ELSE
 (SELECTQ OPTION
-                          (READONLY 
+                                                                                ))))
+    (CL:MULTIPLE-VALUE-BIND (IGNORE CONDITION)
+           (IGNORE-ERRORS (SELECTQ OPTION
+                              (READONLY (TEDIT-SEE FILE))
+                              (LISP                          (* \; 
+
"Original code allowed OPTION=NIL in thie branch, but NIL should have been coerced to TEDIT above.")

 
-                                 (* |;;| "From SEE command. We want to be able to scroll around in the content, can't do that if it isn't random access.  So in that case we do a secret NODIRCORE copy and look at that.")

+                                    (* |;;| "Asks to load prop and edits the coms, presumably with SEDIT.  We really don't want to use a text editor on a source file.")

 
-                                    (CL:WITH-OPEN-FILE
-                                     (STREAM FILE :DIRECTION :INPUT)
-                                     (LET ((NSTR))
-                                          (CL:UNLESS (RANDACCESSP STREAM)
-                                              (SETQ NSTR (OPENSTREAM
-                                                          '{NODIRCORE}
-                                                          'BOTH
-                                                          'NEW NIL (LIST (LIST 'TYPE
-                                                                               (GETFILEINFO
-                                                                                STREAM
-                                                                                'TYPE)))))
-                                              (COPYBYTES STREAM NSTR))
-                                          (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE)
-                                          (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM 
-                                                                             FB.ITEMUNSELECTEDSHADE))
-                                          (WINDOWPROP (WFROMDS (TEXTSTREAM (TEDIT (OR NSTR STREAM)
-                                                                                  NIL NIL
-                                                                                  '(READONLY T))))
-                                                 'TITLE
-                                                 (CONCAT "SEE window for " (FULLNAME STREAM))))))
-                          ((TEDIT NIL) 
-                               (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE)
-                               (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE))
-                               (TEDIT (MKATOM FILE)))
-                          (LISP (FB.PROMPTW.FORMAT
 BROWSER 
-                                       "Failed because not a Lisp source file"))
-                          (CL:FUNCALL OPTION (MKATOM FILE))))))
-     (|if|
 CONDITION
-         |then|
 (FB.PROMPTW.FORMAT
 BROWSER "Failed because ~A" CONDITION)))))
+                                    (IF
 (LISPSOURCEFILEP FILE)
+                                        THEN
 (FB.EDITLISPFILE
 FILE BROWSER)
+                                      ELSE
 (FB.PROMPTW.FORMAT
 BROWSER 
+                                                      "Failed because not a Lisp source file")))
+                              (PROGN 
+                                     (* |;;| "Might just be a call to TEDIT (if OPTION = TEDIT)")

+
+                                     (CL:FUNCALL OPTION (MKATOM FILE)))))
+           (|if|
 CONDITION
+               |then|
 (FB.PROMPTW.FORMAT
 BROWSER "Failed because ~A" CONDITION)))))
 
 (FB.EDITLISPFILE

   (LAMBDA (FILE BROWSER)
                               (* \; "Edited 21-Feb-2021 17:29 by rmk:")

@@ -3838,26 +3803,26 @@ then click Recompute"))))
 
 (RECORD INFOFIELD
 (INFONAME INFOLABEL INFOWIDTH INFOFORMAT INFOPROTOTYPE))
 
-(DATATYPE FBFILEDATA
 ((FILENAME POINTER)                 (* \; "Full name of this file")

-                          (FILEINFO POINTER)                 (* \; "Plist of attributes")

-                          (VERSIONLESSNAME POINTER)          (* \; "FILENAME sans version")

-                          (DIRECTORYP FLAG)                  (* \; "True if it's a directory line")

-                          (HASDIRPREFIX FLAG)                (* \; 
-
                         "True if it has a directory prefix beyond that in common to all the files")

-                          (DIRECTORYFILEP FLAG)              (* \; 
-
                                     "True if the \"file\" in this item is actually a subdirectory")

-                          (SIZE POINTER)                     (* \; "Size of file, for stats")

-                          (FILEDEPTH BYTE)                   (* \; 
-
          "Number of levels of subdirectory beneath the main pattern--zero for files at that level")

-                          (SORTVALUE POINTER)                (* \; 
-
                                                    "Cached value by which we are sorting the dir.")

-                          (SUBDIREND WORD)                   (* \; 
-
                             "Index of last char in subdirectory, or zero if HASDIRPREFIX is false")

-                          (STARTOFPNAME WORD)                (* \; 
-
            "Start of name for printing purposes.  Same as STARTOFNAME when browser sorted by name")

-                          (VERSION WORD)                     (* \; "Version, or zero if none")

-                          (STARTOFNAME WORD)                 (* \; 
-
                                                           "Index beyond all directory fields")

+(DATATYPE FBFILEDATA
 ((FILENAME POINTER)                 (* \; "Full name of this file")

+                          (FILEINFO POINTER)                 (* \; "Plist of attributes")

+                          (VERSIONLESSNAME POINTER)          (* \; "FILENAME sans version")

+                          (DIRECTORYP FLAG)                  (* \; "True if it's a directory line")

+                          (HASDIRPREFIX FLAG)                (* \; 
+
                         "True if it has a directory prefix beyond that in common to all the files")

+                          (DIRECTORYFILEP FLAG)              (* \; 
+
                                     "True if the \"file\" in this item is actually a subdirectory")

+                          (SIZE POINTER)                     (* \; "Size of file, for stats")

+                          (FILEDEPTH BYTE)                   (* \; 
+
          "Number of levels of subdirectory beneath the main pattern--zero for files at that level")

+                          (SORTVALUE POINTER)                (* \; 
+
                                                    "Cached value by which we are sorting the dir.")

+                          (SUBDIREND WORD)                   (* \; 
+
                             "Index of last char in subdirectory, or zero if HASDIRPREFIX is false")

+                          (STARTOFPNAME WORD)                (* \; 
+
            "Start of name for printing purposes.  Same as STARTOFNAME when browser sorted by name")

+                          (VERSION WORD)                     (* \; "Version, or zero if none")

+                          (STARTOFNAME WORD)                 (* \; 
+
                                                           "Index beyond all directory fields")

                           DUMMY)
                          (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH
 (FBFILEDATA FILENAME
                                                                                         )
@@ -3872,85 +3837,85 @@ then click Recompute"))))
                                                                                        ) OF

                                                                                          DATUM))))))
 
-(DATATYPE FILEBROWSER
 ((NOSUBDIRECTORIES FLAG)           (* \; 
-
               "True if we don't want separate subdirectory lines -- subdirs then included in name")

-                           (NSPATTERN? FLAG)                 (* \; "True if host is an ns host")

-                           (SHOWUNDELETED? FLAG)             (* \; 
-
                        "True if counter window should show `Undeleted' rather than `Total' counts")

-                           (PATTERNPARSED? FLAG)             (* \; 
-
                                     "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid")

-                           (SORTBYDATE FLAG)                 (* \; 
-
                                              "True if SORTATTRIBUTE is one of the date attributes")

-                           (FBREADY FLAG)                    (* \; "False while FB is enumerating.")

-                           (ABORTING FLAG)                   (* \; 
-
                                                           "True if enumeration is being aborted")

-                           (FIXEDTITLE FLAG)                 (* \; "True if caller supplied title")

-                           (FBCOMPUTEDDEPTH BYTE)            (* \; 
-
                                    "Depth at the time we enumerated directory (zero for infinite)")

-                           (FBDISPLAYEDDEPTH BYTE)           (* \; 
-
                                            "Depth we are currently displaying (zero for infinite)")

-                           (TABLEBROWSER POINTER)            (* \; 
-
                                           "Pointer to TABLEBROWSER object controlling the browser")

-                           (BROWSERWINDOW POINTER)           (* \; "Main window")

-                           (COUNTERWINDOW POINTER)           (* \; 
-
                                                       "Window that counts files, pages, deletions")

-                           (HEADINGWINDOW POINTER)           (* \; 
-
                                                         "Window with headings for browser columns")

-                           (INFOMENUW POINTER)               (* \; 
-
                           "Window containing choices for info to be displayed, or NIL if none yet")

-                           (PROMPTWINDOW POINTER)            (* \; "GETPROMPTWINDOW BROWSERWINDOW")

-                           (INFODISPLAYED POINTER)           (* \; 
-
                                                          "List of attribute specs to be displayed")

-                           (PATTERN POINTER)                 (* \; 
-
                                                           "Directory pattern being enumerated")

-                           (PREPAREDPATTERN POINTER)         (* \; "DIRECTORY.MATCH.SETUP of same")

-                           (SEEWINDOW POINTER)               (* \; 
-
                                                          "Primary window used by FAST SEE command")

-                           (BROWSERFONT POINTER)             (* \; "Font of BROWSERWINDOW")

-                           (SORTBY POINTER)                  (* \; 
-
                                                         "Sorting function or NIL for default sort")

-                           (NAMESTART WORD)                  (* \; 
-
                     "Index of first character in file name beyond the common prefix shared by all")

-                           (DIRECTORYSTART WORD)             (* \; 
-
                                              "Index of first character of directory in file names")

-                           (INFOSTART WORD)                  (* \; 
-
                                       "X position in browser where first col of info is displayed")

-                           (NAMEOVERHEAD WORD)               (* \; 
-
                              "This plus width of name gives is how much to allow before INFOSTART")

-                           (OVERFLOWSPACING WORD)            (* \; 
-
                                                 "Increment between sizes considered for INFOSTART")

+(DATATYPE FILEBROWSER
 ((NOSUBDIRECTORIES FLAG)           (* \; 
+
               "True if we don't want separate subdirectory lines -- subdirs then included in name")

+                           (NSPATTERN? FLAG)                 (* \; "True if host is an ns host")

+                           (SHOWUNDELETED? FLAG)             (* \; 
+
                        "True if counter window should show `Undeleted' rather than `Total' counts")

+                           (PATTERNPARSED? FLAG)             (* \; 
+
                                     "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid")

+                           (SORTBYDATE FLAG)                 (* \; 
+
                                              "True if SORTATTRIBUTE is one of the date attributes")

+                           (FBREADY FLAG)                    (* \; "False while FB is enumerating.")

+                           (ABORTING FLAG)                   (* \; 
+
                                                           "True if enumeration is being aborted")

+                           (FIXEDTITLE FLAG)                 (* \; "True if caller supplied title")

+                           (FBCOMPUTEDDEPTH BYTE)            (* \; 
+
                                    "Depth at the time we enumerated directory (zero for infinite)")

+                           (FBDISPLAYEDDEPTH BYTE)           (* \; 
+
                                            "Depth we are currently displaying (zero for infinite)")

+                           (TABLEBROWSER POINTER)            (* \; 
+
                                           "Pointer to TABLEBROWSER object controlling the browser")

+                           (BROWSERWINDOW POINTER)           (* \; "Main window")

+                           (COUNTERWINDOW POINTER)           (* \; 
+
                                                       "Window that counts files, pages, deletions")

+                           (HEADINGWINDOW POINTER)           (* \; 
+
                                                         "Window with headings for browser columns")

+                           (INFOMENUW POINTER)               (* \; 
+
                           "Window containing choices for info to be displayed, or NIL if none yet")

+                           (PROMPTWINDOW POINTER)            (* \; "GETPROMPTWINDOW BROWSERWINDOW")

+                           (INFODISPLAYED POINTER)           (* \; 
+
                                                          "List of attribute specs to be displayed")

+                           (PATTERN POINTER)                 (* \; 
+
                                                           "Directory pattern being enumerated")

+                           (PREPAREDPATTERN POINTER)         (* \; "DIRECTORY.MATCH.SETUP of same")

+                           (SEEWINDOW POINTER)               (* \; 
+
                                                          "Primary window used by FAST SEE command")

+                           (BROWSERFONT POINTER)             (* \; "Font of BROWSERWINDOW")

+                           (SORTBY POINTER)                  (* \; 
+
                                                         "Sorting function or NIL for default sort")

+                           (NAMESTART WORD)                  (* \; 
+
                     "Index of first character in file name beyond the common prefix shared by all")

+                           (DIRECTORYSTART WORD)             (* \; 
+
                                              "Index of first character of directory in file names")

+                           (INFOSTART WORD)                  (* \; 
+
                                       "X position in browser where first col of info is displayed")

+                           (NAMEOVERHEAD WORD)               (* \; 
+
                              "This plus width of name gives is how much to allow before INFOSTART")

+                           (OVERFLOWSPACING WORD)            (* \; 
+
                                                 "Increment between sizes considered for INFOSTART")

                            (DIGITWIDTH WORD)
-                           (TOTALFILES WORD)                 (* \; 
-
                         "Total number of files, deleted files, pages, deleted pages at the moment")

+                           (TOTALFILES WORD)                 (* \; 
+
                         "Total number of files, deleted files, pages, deleted pages at the moment")

                            (DELETEDFILES WORD)
                            (TOTALPAGES POINTER)
                            (DELETEDPAGES POINTER)
-                           (PAGECOUNT? POINTER)              (* \; 
-
                          "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages")

-                           (COUNTERPOSITIONS POINTER)        (* \; 
-
     "List of pairs (left right) describing regions where the values of the counters are displayed")

-                           (COUNTERPAGESTRING POINTER)       (* \; 
-
                                                           "String to print after file/page count")

-                           (OVERFLOWWIDTHS POINTER)          (* \; 
-
                 "List of (xpos occurrences) describing files whose names exceed default INFOSTART")

-                           (INFOMENUCHOICES POINTER)         (* \; 
-
            "Selections user has made in Info window, not necessarily the info currently displayed")

-                           (UPDATEPROC POINTER)              (* \; 
-
                                                           "Process doing an Update (Recompute)")

-                           (DEFAULTDIR POINTER)              (* \; 
-
                                                 "Default directory for destination of Copy/Rename")

-                           (SORTATTRIBUTE POINTER)           (* \; 
-
                                                     "Attribute being sorted on, or NIL if by name")

+                           (PAGECOUNT? POINTER)              (* \; 
+
                          "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages")

+                           (COUNTERPOSITIONS POINTER)        (* \; 
+
     "List of pairs (left right) describing regions where the values of the counters are displayed")

+                           (COUNTERPAGESTRING POINTER)       (* \; 
+
                                                           "String to print after file/page count")

+                           (OVERFLOWWIDTHS POINTER)          (* \; 
+
                 "List of (xpos occurrences) describing files whose names exceed default INFOSTART")

+                           (INFOMENUCHOICES POINTER)         (* \; 
+
            "Selections user has made in Info window, not necessarily the info currently displayed")

+                           (UPDATEPROC POINTER)              (* \; 
+
                                                           "Process doing an Update (Recompute)")

+                           (DEFAULTDIR POINTER)              (* \; 
+
                                                 "Default directory for destination of Copy/Rename")

+                           (SORTATTRIBUTE POINTER)           (* \; 
+
                                                     "Attribute being sorted on, or NIL if by name")

                            (SORTMENU POINTER)
-                           (FBLOCK POINTER)                  (* \; 
-
                                                          "Lock acquired by filebrowser operations")

-                           (SORTINDEX WORD)                  (* \; 
-
                                            "Index (zero-based) in file info of the sort attribute")

-                           (SIZEINDEX WORD)                  (* \; "Index of size attribute")

-                           (FBDEPTH POINTER)                 (* \; 
-
                                                           "Enumeration depth, or NIL for default")

-                           (ABORTWINDOW POINTER)             (* \; 
-
                            "Dotted pair of (abortwindow . menuw) for this browser's abort window.")

+                           (FBLOCK POINTER)                  (* \; 
+
                                                          "Lock acquired by filebrowser operations")

+                           (SORTINDEX WORD)                  (* \; 
+
                                            "Index (zero-based) in file info of the sort attribute")

+                           (SIZEINDEX WORD)                  (* \; "Index of size attribute")

+                           (FBDEPTH POINTER)                 (* \; 
+
                                                           "Enumeration depth, or NIL for default")

+                           (ABORTWINDOW POINTER)             (* \; 
+
                            "Dotted pair of (abortwindow . menuw) for this browser's abort window.")

                            DUMMY))
 )
 
@@ -4253,35 +4218,35 @@ FB.UNDELETEALLCOMMAND 69511 . 69790) (FB.UNDELETE.FILE 69792 . 70537)) (70540 94
 FB.COPY/RENAME.ONE 72023 . 74345) (FB.COPY/RENAME.MANY 74347 . 80567) (FB.MERGE.DIRECTORIES 80569 . 
 80987) (FB.GREATEST.PREFIX 80989 . 82345) (FB.MAYBE.INSERT.FILE 82347 . 89787) (FB.GET.NEW.FILE.SPEC 
 89789 . 93620) (FB.CANONICAL.DIRECTORY 93622 . 94719)) (94722 102506 (FB.HARDCOPYCOMMAND 94732 . 95862
-) (FB.HARDCOPY.TOFILE 95864 . 102504)) (102507 114945 (FB.EDITCOMMAND 102517 . 103318) (
-FB.EDITCOMMAND.ONEFILE 103320 . 109161) (FB.EDITLISPFILE 109163 . 110202) (FB.BROWSECOMMAND 110204 . 
-114943)) (114946 126739 (FB.FASTSEECOMMAND 114956 . 118406) (FB.FASTSEE.ONEFILE 118408 . 121437) (
-FB.SEEFULLFN 121439 . 125570) (FB.SEEBUTTONFN 125572 . 126737)) (126740 128486 (FB.LOADCOMMAND 126750
- . 127257) (FB.COMPILECOMMAND 127259 . 127797) (FB.OPERATE.ON.FILES 127799 . 128484)) (128487 176145 (
-FB.UPDATECOMMAND 128497 . 128722) (FB.FIX-DIRECTORY-DATES 128724 . 129331) (FB.MAYBE.EXPUNGE 129333 . 
-130328) (FB.UPDATEBROWSERITEMS 130330 . 143545) (FB.DATE 143547 . 144288) (FB.ADJUST.DATE.WIDTH 144290
- . 147258) (FB.SET.BROWSER.TITLE 147260 . 148117) (FB.MAYBE.WIDEN.NAMES 148119 . 150238) (
-FB.SET.DEFAULT.NAME.WIDTH 150240 . 151604) (FB.CREATE.FILEBUCKET 151606 . 158826) (
-FB.CHECK.NAME.LENGTH 158828 . 161249) (FB.ADD.FILEGROUP 161251 . 162778) (FB.INSERT.DIRECTORY 162780
- . 163018) (FB.MAKE.SUBDIRECTORY.ITEM 163020 . 164429) (FB.ADD.FILE 164431 . 165044) (FB.INSERT.FILE 
-165046 . 168458) (FB.ANALYZE.PATTERN 168460 . 173724) (FB.CANONICALIZE.PATTERN 173726 . 175038) (
-FB.GETALLFILEINFO 175040 . 176143)) (176146 184305 (FB.SORT.VERSIONS 176156 . 178927) (
-FB.DECREASING.VERSION 178929 . 179598) (FB.INCREASING.VERSION 179600 . 180221) (
-FB.NAMES.DECREASING.VERSION 180223 . 181258) (FB.NAMES.INCREASING.VERSION 181260 . 182257) (
-FB.DECREASING.NUMERIC.ATTR 182259 . 182939) (FB.INCREASING.NUMERIC.ATTR 182941 . 183615) (
-FB.ALPHABETIC.ATTR 183617 . 184303)) (184306 194148 (FB.SORTCOMMAND 184316 . 191146) (
-FB.INSERT.SUBDIRECTORIES 191148 . 191945) (FB.GET.SORT.MENU 191947 . 194146)) (194149 210238 (
-FB.EXPUNGECOMMAND 194159 . 196678) (FB.NEWPATTERNCOMMAND 196680 . 197078) (FB.NEWINFOCOMMAND 197080 . 
-199846) (FB.DEPTHCOMMAND 199848 . 201623) (FB.SHAPECOMMAND 201625 . 204967) (FB.REMOVE.FILE 204969 . 
-206790) (FB.COUNT.FILE.CHANGE 206792 . 208237) (FB.SETNEWPATTERN 208239 . 209409) (FB.GET.NEWPATTERN 
-209411 . 209995) (FB.OPTIONSCOMMAND 209997 . 210236)) (210273 211285 (
-FB.INFOMENU.SHADEINITIALSELECTIONS 210283 . 210930) (FB.INFO.ITEM.NAMED 210932 . 211283)) (211286 
-220752 (FB.MAKECOUNTERWINDOW 211296 . 212758) (FB.COUNTERW.REDISPLAYFN 212760 . 213347) (
-FB.UPDATE.COUNTERS 213349 . 215421) (FB.DISPLAY.COUNTERS 215423 . 220483) (FB.COUNTER.STRING 220485 . 
-220750)) (220753 225396 (FB.MAKEHEADINGWINDOW 220763 . 222311) (FB.HEADINGW.REDISPLAYFN 222313 . 
-222579) (FB.HEADINGW.RESHAPEFN 222581 . 222957) (FB.HEADINGW.DISPLAY 222959 . 225394)) (225397 229580 
-(FB.ICONFN 225407 . 225754) (FB.INFOMENU.WHENSELECTEDFN 225756 . 226486) (FB.CLOSEFN 226488 . 227691) 
-(FB.EXPUNGE?.MENU 227693 . 228105) (FB.AFTERCLOSEFN 228107 . 228468) (FB.CLOSE&EXPUNGE 228470 . 229578
-)) (229581 241639 (FB.HARDCOPY.DIRECTORY 229591 . 239948) (FB.HARDCOPY.PRINT.TITLE 239950 . 240276) (
-FB.HARDCOPY.MAXWIDTH 240278 . 241637)))))
+) (FB.HARDCOPY.TOFILE 95864 . 102504)) (102507 112384 (FB.EDITCOMMAND 102517 . 103318) (
+FB.EDITCOMMAND.ONEFILE 103320 . 106600) (FB.EDITLISPFILE 106602 . 107641) (FB.BROWSECOMMAND 107643 . 
+112382)) (112385 124178 (FB.FASTSEECOMMAND 112395 . 115845) (FB.FASTSEE.ONEFILE 115847 . 118876) (
+FB.SEEFULLFN 118878 . 123009) (FB.SEEBUTTONFN 123011 . 124176)) (124179 125925 (FB.LOADCOMMAND 124189
+ . 124696) (FB.COMPILECOMMAND 124698 . 125236) (FB.OPERATE.ON.FILES 125238 . 125923)) (125926 173584 (
+FB.UPDATECOMMAND 125936 . 126161) (FB.FIX-DIRECTORY-DATES 126163 . 126770) (FB.MAYBE.EXPUNGE 126772 . 
+127767) (FB.UPDATEBROWSERITEMS 127769 . 140984) (FB.DATE 140986 . 141727) (FB.ADJUST.DATE.WIDTH 141729
+ . 144697) (FB.SET.BROWSER.TITLE 144699 . 145556) (FB.MAYBE.WIDEN.NAMES 145558 . 147677) (
+FB.SET.DEFAULT.NAME.WIDTH 147679 . 149043) (FB.CREATE.FILEBUCKET 149045 . 156265) (
+FB.CHECK.NAME.LENGTH 156267 . 158688) (FB.ADD.FILEGROUP 158690 . 160217) (FB.INSERT.DIRECTORY 160219
+ . 160457) (FB.MAKE.SUBDIRECTORY.ITEM 160459 . 161868) (FB.ADD.FILE 161870 . 162483) (FB.INSERT.FILE 
+162485 . 165897) (FB.ANALYZE.PATTERN 165899 . 171163) (FB.CANONICALIZE.PATTERN 171165 . 172477) (
+FB.GETALLFILEINFO 172479 . 173582)) (173585 181744 (FB.SORT.VERSIONS 173595 . 176366) (
+FB.DECREASING.VERSION 176368 . 177037) (FB.INCREASING.VERSION 177039 . 177660) (
+FB.NAMES.DECREASING.VERSION 177662 . 178697) (FB.NAMES.INCREASING.VERSION 178699 . 179696) (
+FB.DECREASING.NUMERIC.ATTR 179698 . 180378) (FB.INCREASING.NUMERIC.ATTR 180380 . 181054) (
+FB.ALPHABETIC.ATTR 181056 . 181742)) (181745 191587 (FB.SORTCOMMAND 181755 . 188585) (
+FB.INSERT.SUBDIRECTORIES 188587 . 189384) (FB.GET.SORT.MENU 189386 . 191585)) (191588 207677 (
+FB.EXPUNGECOMMAND 191598 . 194117) (FB.NEWPATTERNCOMMAND 194119 . 194517) (FB.NEWINFOCOMMAND 194519 . 
+197285) (FB.DEPTHCOMMAND 197287 . 199062) (FB.SHAPECOMMAND 199064 . 202406) (FB.REMOVE.FILE 202408 . 
+204229) (FB.COUNT.FILE.CHANGE 204231 . 205676) (FB.SETNEWPATTERN 205678 . 206848) (FB.GET.NEWPATTERN 
+206850 . 207434) (FB.OPTIONSCOMMAND 207436 . 207675)) (207712 208724 (
+FB.INFOMENU.SHADEINITIALSELECTIONS 207722 . 208369) (FB.INFO.ITEM.NAMED 208371 . 208722)) (208725 
+218191 (FB.MAKECOUNTERWINDOW 208735 . 210197) (FB.COUNTERW.REDISPLAYFN 210199 . 210786) (
+FB.UPDATE.COUNTERS 210788 . 212860) (FB.DISPLAY.COUNTERS 212862 . 217922) (FB.COUNTER.STRING 217924 . 
+218189)) (218192 222835 (FB.MAKEHEADINGWINDOW 218202 . 219750) (FB.HEADINGW.REDISPLAYFN 219752 . 
+220018) (FB.HEADINGW.RESHAPEFN 220020 . 220396) (FB.HEADINGW.DISPLAY 220398 . 222833)) (222836 227019 
+(FB.ICONFN 222846 . 223193) (FB.INFOMENU.WHENSELECTEDFN 223195 . 223925) (FB.CLOSEFN 223927 . 225130) 
+(FB.EXPUNGE?.MENU 225132 . 225544) (FB.AFTERCLOSEFN 225546 . 225907) (FB.CLOSE&EXPUNGE 225909 . 227017
+)) (227020 239078 (FB.HARDCOPY.DIRECTORY 227030 . 237387) (FB.HARDCOPY.PRINT.TITLE 237389 . 237715) (
+FB.HARDCOPY.MAXWIDTH 237717 . 239076)))))
 STOP

library/SYSEDIT

@@ -1,9 +1,9 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-
(FILECREATED " 6-Aug-2021 07:35:16" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2
 1183   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "30-Aug-2021 16:04:42" {DSK}<home>larry>medley>library>SYSEDIT.;3
 1146   
 
       changes to%:  (VARS SYSEDITCOMS)
 
-      previous date%: " 6-May-2021 16:22:01" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
+      previous date%: " 6-Aug-2021 07:35:16" {DSK}<home>larry>medley>library>SYSEDIT.;1)
 
 
 (* ; "
@@ -14,19 +14,17 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
 
 (RPAQQ SYSEDITCOMS

        [(VARS (CLISPIFYPRETTYFLG)
-              (MSRECORDTRANFLG T)
               (RECOMPILEDEFAULT 'CHANGES)
               (CLEANUPOPTIONS '(RC F))
               (GLOBALVARFLG T)
               (CLISPIFTRANFLG T)
-              (CROSSCOMPILING 'ASK))
+              (CROSSCOMPILING 'ASK)
+              (DFNFLG 'PROP))
         (P (RESETVARS ((CROSSCOMPILING T))
                   (LOAD? 'EXPORTS.ALL])
 
 (RPAQQ CLISPIFYPRETTYFLG
 NIL)
 
-(RPAQQ MSRECORDTRANFLG
 T)
-
 (RPAQQ RECOMPILEDEFAULT
 CHANGES)
 
 (RPAQQ CLEANUPOPTIONS
 (RC F))
@@ -37,6 +35,8 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
 
 (RPAQQ CROSSCOMPILING
 ASK)
 
+(RPAQQ DFNFLG
 PROP)
+
 (RESETVARS ((CROSSCOMPILING T))
            (LOAD? 'EXPORTS.ALL))
 (PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))

library/SYSEDIT.LCOM

@@ -1,20 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-(FILECREATED " 6-Aug-2021 07:36:12" ("compiled on " {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2) 
-" 6-Aug-2021 07:14:33" bcompl'd in "FULL  5-Aug-2021 ..." dated " 5-Aug-2021 22:24:43")
-(FILECREATED " 6-Aug-2021 07:35:16" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2 1183 changes to%:
- (VARS SYSEDITCOMS) previous date%: " 6-May-2021 16:22:01" 
-{DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
-(PRETTYCOMPRINT SYSEDITCOMS)
-(RPAQQ SYSEDITCOMS ((VARS (CLISPIFYPRETTYFLG) (MSRECORDTRANFLG T) (RECOMPILEDEFAULT (QUOTE CHANGES)) (
-CLEANUPOPTIONS (QUOTE (RC F))) (GLOBALVARFLG T) (CLISPIFTRANFLG T) (CROSSCOMPILING (QUOTE ASK))) (P (
-RESETVARS ((CROSSCOMPILING T)) (LOAD? (QUOTE EXPORTS.ALL))))))
-(RPAQQ CLISPIFYPRETTYFLG NIL)
-(RPAQQ MSRECORDTRANFLG T)
-(RPAQQ RECOMPILEDEFAULT CHANGES)
-(RPAQQ CLEANUPOPTIONS (RC F))
-(RPAQQ GLOBALVARFLG T)
-(RPAQQ CLISPIFTRANFLG T)
-(RPAQQ CROSSCOMPILING ASK)
-(RESETVARS ((CROSSCOMPILING T)) (LOAD? (QUOTE EXPORTS.ALL)))
-(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
-NIL

library/TEDIT

@@ -1,14 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "19-Apr-2018 12:22:03" {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>TEDIT.;2
 140045 
+
(FILECREATED "19-Sep-2021 17:08:56" {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;2
 141945 
 
       changes to%:  (VARS TEDITCOMS)
 
-      previous date%: "21-Jun-99 20:00:16" 
-{DSK}<Users>kaplan>Local>medley3.5>lispcore>library>TEDIT.;1)
+      previous date%: "19-Apr-2018 12:22:03" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;1)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1995, 1999, 2018 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT TEDITCOMS)
@@ -24,40 +24,40 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
               (TEDIT.DEFAULT.PROPS NIL)
               (TEDIT.STARTUP.MONITORLOCK (CREATE.MONITORLOCK 'TEDIT.STARTUP))
               (TEDIT.RESTART.MENU (\CREATE.TEDIT.RESTART.MENU))
-                                                             (* ; 
-
                                            "Original was (CREATE MENU ITEMS _ '(NewEditProcess)).")

-                                                             (* ; 
-
                                                  "Changed by yabu.fx, for SUNLOADUP without DWIM.")

+                                                             (* ; 
+
                                            "Original was (CREATE MENU ITEMS _ '(NewEditProcess)).")

+                                                             (* ; 
+
                                                  "Changed by yabu.fx, for SUNLOADUP without DWIM.")

               )
         (GLOBALVARS TEDIT.TENTATIVE TEDIT.DEFAULT.PROPS)
-        (FNS \TEDIT2 COERCETEXTOBJ TEDIT TEDIT.CHARWIDTH TEDIT.COPY TEDIT.DELETE 
+        (FNS \TEDIT2 COERCETEXTOBJ TEDIT TEDIT-SEE TEDIT.CHARWIDTH TEDIT.COPY TEDIT.DELETE 
              TEDIT.DO.BLUEPENDINGDELETE TEDIT.INSERT TEDIT.KILL TEDIT.MAPLINES TEDIT.MAPPIECES 
              TEDIT.MOVE TEDIT.QUIT TEDIT.STRINGWIDTH TEDIT.\INSERT TEXTOBJ TEXTSTREAM \TEDIT.INCLUDE
              \TEDIT.INSERT.PIECES \TEDIT.MOVE.PIECEMAPFN \TEDIT.OBJECT.SHOWSEL \TEDIT.RESTARTFN 
              \TEDIT.CHARDELETE \TEDIT.COPY.PIECEMAPFN \TEDIT.DELETE \TEDIT.DIFFUSE.PARALOOKS 
              \TEDIT.FOREIGN.COPY? \TEDIT.QUIT \TEDIT.WORDDELETE \TEDIT1)
         (P (MOVD? 'NILL 'OBJECTOUTOFTEDIT))
-                                                             (* ; 
-
                                  "HOOK for looked-string copy, etc. Used in \TEDIT.FOREIGN.COPY?.")

+                                                             (* ; 
+
                                  "HOOK for looked-string copy, etc. Used in \TEDIT.FOREIGN.COPY?.")

         (COMS (FNS \CREATE.TEDIT.RESTART.MENU))
-                                                             (* ; 
-
                                                    "Added by yabu.fx, for SUNLOADUP without DWIM.")

-        (COMS                                                (* ; "Debugging functions")

+                                                             (* ; 
+
                                                    "Added by yabu.fx, for SUNLOADUP without DWIM.")

+        (COMS                                                (* ; "Debugging functions")

               (FNS PLCHAIN PRINTLINE SEEFILE))
-        (COMS                                                (* ; "Object-oriented editing")

+        (COMS                                                (* ; "Object-oriented editing")

               (FNS TEDIT.INSERT.OBJECT TEDIT.EDIT.OBJECT TEDIT.FIND.OBJECT TEDIT.FIND.OBJECT.SUBTREE
                    TEDIT.PUT.OBJECT TEDIT.GET.OBJECT TEDIT.OBJECT.CHANGED))
         (FILES TEDITFIND TEDITHISTORY TEDITFILE TEDITWINDOW TEDITSELECTION IMAGEOBJ TFBRAVO TEDITHCPY
                TEDITPAGE TEDITMENU TEDITFNKEYS)
-        (COMS                                                (* ; "TEDIT Support information")

+        (COMS                                                (* ; "TEDIT Support information")

               (E (SETQ TEDITSYSTEMDATE (DATE)))
               (VARS TEDITSYSTEMDATE (TEDITSUPPORT "TEditSupport.PA"))
               (FNS MAKETEDITFORM)
               (P (ADDTOVAR LAFITESPECIALFORMS
 ("TEdit Report" 'MAKETEDITFORM 
                                                          "Report a problem with TEdit"))
                  (SETQ LAFITEFORMSMENU NIL)))
-        (COMS                                                (* ; 
-
                         "LISTFILES Interface, so the system can decide if a file is a TEdit file.")

+        (COMS                                                (* ; 
+
                         "LISTFILES Interface, so the system can decide if a file is a TEdit file.")

               (ADDVARS (PRINTFILETYPES (TEDIT (TEST \TEDIT.FORMATTEDP1)
                                               (EXTENSION (TEDIT])
 
@@ -327,6 +327,43 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
                     (TTY.PROCESS PROC)))
                 (RETURN PROC])
 
+(TEDIT-SEE

+  [LAMBDA (FILE WINDOW)
                                 (* ; "Edited 19-Sep-2021 09:40 by rmk:")


+                                                            (* ; "Edited 27-Feb-2021 20:07 by rmk:")


+                                                             (* ; "Edited  1-Feb-88 19:00 by bvm:")

+
+    (* ;; "See FILE in a scrollable READONLY TEDIT window.  If FILE is a LISP source file, copy first to a temporary NODIRCORE image file that interpretes the fontchange characters rather than showing black boxes.")

+
+    (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT)
+           (LET ((SEESTREAM STREAM)
+                 ENV TSTREAM)
+
+                (* ;; "No need to fiddle with a TEDIT file")

+
+                (IF
 (\TEDIT.FORMATTEDP1 STREAM)
+                  ELSEIF
 (SETQ ENV (LISPSOURCEFILEP STREAM))
+                    THEN
 
+
+                          (* ;; "Lisp source file")

+
+                          (\EXTERNALFORMAT STREAM ENV)
+                          (SETQ SEESTREAM (OPENTEXTSTREAM))
+                          (COPY.TEXT.TO.IMAGE STREAM SEESTREAM)
+                  ELSE
 
+
+                        (* ;; "Not a Lisp source file and not a Tedit file.  If it is not random access, we copy it so we can scroll around.")

+
+                        (CL:UNLESS (RANDACCESSP STREAM)
+                            [SETQ SEESTREAM (OPENSTREAM '{NODIRCORE} 'BOTH 'NEW
+                                                   `([TYPE ,(GETFILEINFO STREAM 'TYPE]
+                                                     (FORMAT ,(\EXTERNALFORMAT STREAM]
+                            (COPYBYTES STREAM SEESTREAM)))
+                [SETQ TSTREAM (TEXTSTREAM
 (TEDIT
 SEESTREAM WINDOW NIL '(READONLY T]
+                (WINDOWPROP (WFROMDS TSTREAM)
+                       'TITLE
+                       (CONCAT "SEE window for " (FULLNAME STREAM)))
+                (FULLNAME STREAM])
+
 (TEDIT.CHARWIDTH

   [LAMBDA (CH FONT TERMSA)
                                   (* jds "22-OCT-83 19:32")

           
@@ -2192,7 +2229,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 (* ; "TEDIT Support information")

 
 
-(RPAQQ TEDITSYSTEMDATE
 "19-Apr-2018 12:22:04")
+(RPAQQ TEDITSYSTEMDATE
 "19-Sep-2021 17:08:56")
 
 (RPAQ TEDITSUPPORT
 "TEditSupport.PA")
 (DEFINEQ
@@ -2216,21 +2253,21 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
 (ADDTOVAR PRINTFILETYPES
 (TEDIT (TEST \TEDIT.FORMATTEDP1)
                                     (EXTENSION (TEDIT))))
 (PUTPROPS TEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 
-1992 1993 1995 1999 2018))
+1992 1993 1995 1999 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4382 115216 (\TEDIT2 4392 . 7143) (COERCETEXTOBJ 7145 . 15921) (TEDIT 15923 . 20892) (
-TEDIT.CHARWIDTH 20894 . 22918) (TEDIT.COPY 22920 . 31356) (TEDIT.DELETE 31358 . 32048) (
-TEDIT.DO.BLUEPENDINGDELETE 32050 . 35117) (TEDIT.INSERT 35119 . 40649) (TEDIT.KILL 40651 . 42208) (
-TEDIT.MAPLINES 42210 . 43609) (TEDIT.MAPPIECES 43611 . 44567) (TEDIT.MOVE 44569 . 54353) (TEDIT.QUIT 
-54355 . 56355) (TEDIT.STRINGWIDTH 56357 . 57028) (TEDIT.\INSERT 57030 . 59055) (TEXTOBJ 59057 . 60182)
- (TEXTSTREAM 60184 . 61799) (\TEDIT.INCLUDE 61801 . 65701) (\TEDIT.INSERT.PIECES 65703 . 75618) (
-\TEDIT.MOVE.PIECEMAPFN 75620 . 77699) (\TEDIT.OBJECT.SHOWSEL 77701 . 81330) (\TEDIT.RESTARTFN 81332 . 
-83327) (\TEDIT.CHARDELETE 83329 . 87291) (\TEDIT.COPY.PIECEMAPFN 87293 . 90518) (\TEDIT.DELETE 90520
- . 98038) (\TEDIT.DIFFUSE.PARALOOKS 98040 . 100804) (\TEDIT.FOREIGN.COPY? 100806 . 104533) (
-\TEDIT.QUIT 104535 . 107681) (\TEDIT.WORDDELETE 107683 . 112516) (\TEDIT1 112518 . 115214)) (115330 
-115446 (\CREATE.TEDIT.RESTART.MENU 115340 . 115444)) (115545 119234 (PLCHAIN 115555 . 115829) (
-PRINTLINE 115831 . 118595) (SEEFILE 118597 . 119232)) (119275 138918 (TEDIT.INSERT.OBJECT 119285 . 
-128362) (TEDIT.EDIT.OBJECT 128364 . 130620) (TEDIT.FIND.OBJECT 130622 . 131515) (
-TEDIT.FIND.OBJECT.SUBTREE 131517 . 132323) (TEDIT.PUT.OBJECT 132325 . 133984) (TEDIT.GET.OBJECT 133986
- . 137185) (TEDIT.OBJECT.CHANGED 137187 . 138916)) (139196 139559 (MAKETEDITFORM 139206 . 139557)))))
+  (FILEMAP (NIL (4327 117111 (\TEDIT2 4337 . 7088) (COERCETEXTOBJ 7090 . 15866) (TEDIT 15868 . 20837) (
+TEDIT-SEE 20839 . 22787) (TEDIT.CHARWIDTH 22789 . 24813) (TEDIT.COPY 24815 . 33251) (TEDIT.DELETE 
+33253 . 33943) (TEDIT.DO.BLUEPENDINGDELETE 33945 . 37012) (TEDIT.INSERT 37014 . 42544) (TEDIT.KILL 
+42546 . 44103) (TEDIT.MAPLINES 44105 . 45504) (TEDIT.MAPPIECES 45506 . 46462) (TEDIT.MOVE 46464 . 
+56248) (TEDIT.QUIT 56250 . 58250) (TEDIT.STRINGWIDTH 58252 . 58923) (TEDIT.\INSERT 58925 . 60950) (
+TEXTOBJ 60952 . 62077) (TEXTSTREAM 62079 . 63694) (\TEDIT.INCLUDE 63696 . 67596) (\TEDIT.INSERT.PIECES
+ 67598 . 77513) (\TEDIT.MOVE.PIECEMAPFN 77515 . 79594) (\TEDIT.OBJECT.SHOWSEL 79596 . 83225) (
+\TEDIT.RESTARTFN 83227 . 85222) (\TEDIT.CHARDELETE 85224 . 89186) (\TEDIT.COPY.PIECEMAPFN 89188 . 
+92413) (\TEDIT.DELETE 92415 . 99933) (\TEDIT.DIFFUSE.PARALOOKS 99935 . 102699) (\TEDIT.FOREIGN.COPY? 
+102701 . 106428) (\TEDIT.QUIT 106430 . 109576) (\TEDIT.WORDDELETE 109578 . 114411) (\TEDIT1 114413 . 
+117109)) (117225 117341 (\CREATE.TEDIT.RESTART.MENU 117235 . 117339)) (117440 121129 (PLCHAIN 117450
+ . 117724) (PRINTLINE 117726 . 120490) (SEEFILE 120492 . 121127)) (121170 140813 (TEDIT.INSERT.OBJECT 
+121180 . 130257) (TEDIT.EDIT.OBJECT 130259 . 132515) (TEDIT.FIND.OBJECT 132517 . 133410) (
+TEDIT.FIND.OBJECT.SUBTREE 133412 . 134218) (TEDIT.PUT.OBJECT 134220 . 135879) (TEDIT.GET.OBJECT 135881
+ . 139080) (TEDIT.OBJECT.CHANGED 139082 . 140811)) (141091 141454 (MAKETEDITFORM 141101 . 141452)))))
 STOP

library/TEDITHCPY

@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "28-Jun-2021 12:35:45" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;2
 105754 
+
(FILECREATED "20-Sep-2021 11:12:06" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;4
 105838 
 
-      changes to%:  (FNS \TEDIT.HARDCOPY.FORMATLINE)
+      changes to%:  (FNS TEDIT.HARDCOPYFN)
+                    (VARS TEDITHCPYCOMS)
 
-      previous date%: "25-Aug-94 10:54:07" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;1)
+      previous date%: "20-Sep-2021 11:06:37" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;3)
 
 
 (* ; "
@@ -14,41 +15,40 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
 
 (PRETTYCOMPRINT TEDITHCPYCOMS)
 
-(RPAQQ TEDITHCPYCOMS

+(RPAQQ TEDITHCPYCOMS
 
        ((FILES TEDITDCL)
         (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64))
                (FILES (LOADCOMP)
                       TEDITDCL))
         (COMS 
-              (* ;; "Generic interface functions and common code")

+              (* ;; "Generic interface functions and common code")

 
               (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE 
                    \TEDIT.HARDCOPY.FORMATLINE \DOFORMATTING.HARDCOPY \TEDIT.HARDCOPY.MODIFYLOOKS 
                    \TEDIT.HCPYLOOKS.UPDATE \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX))
         (COMS 
-              (* ;; "Functions for scaling distances and regions as needed during hardcopy.")

+              (* ;; "Functions for scaling distances and regions as needed during hardcopy.")

 
               (FNS \TEDIT.SCALE \TEDIT.SCALEREGION))
         (COMS 
-              (* ;; "PRESS-specific code")

+              (* ;; "PRESS-specific code")

 
               (VARS (TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495)))
-                                                             (* ; 
-
                                                           "0.75 inches from bottom, 1 from top")

+                                                             (* ; 
+
                                                           "0.75 inches from bottom, 1 from top")

               )
         [COMS 
-              (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.")

+              (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.")

 
               (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPY \TEDIT.PRESS.HARDCOPY)
-              (P (LISTPUT (ASSOC 'CONVERSION (ASSOC 'INTERPRESS PRINTFILETYPES))
-                        'TEDIT
-                        (FUNCTION \TEDIT.HARDCOPY)))
+              [P (LET [(IPVALUES (ASSOC 'CONVERSION (ASSOC 'INTERPRESS PRINTFILETYPES]
+                      (COND (IPVALUES                        (* ; 
+
                                        "Only install INTERPRESS printing if INTERPRESS is loaded.")

+                                   (LISTPUT IPVALUES 'TEDIT (FUNCTION \TEDIT.HARDCOPY]
               (P (LET [(PRESSVALUES (ASSOC 'CONVERSION (ASSOC 'PRESS PRINTFILETYPES]
-                      (COND (PRESSVALUES                     (* ; 
-
                                                  "Only install PRESS printing if PRESS is loaded.")

-                                   (LISTPUT PRESSVALUES 'TEDIT (FUNCTION \TEDIT.PRESS.HARDCOPY]
+                      (COND (PRESSVALUES (LISTPUT PRESSVALUES 'TEDIT (FUNCTION \TEDIT.PRESS.HARDCOPY]
         (COMS 
-              (* ;; "vars for Japanese Line Break")

+              (* ;; "vars for Japanese Line Break")

 
               [VARS (TEDIT.DONT.BREAK.CHARS '(8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251
                                                    9253 9255 9257 9283 9315 9317 9319 9326 9505 9507
@@ -56,7 +56,7 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
                     (TEDIT.DONT.LAST.CHARS '(8524 8538 8536 8534]
               (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS))
         (COMS 
-              (* ;; "Support for hardcopying several files as one document")

+              (* ;; "Support for hardcopying several files as one document")

 
               (FNS TEDIT-BOOK))))
 
@@ -1512,22 +1512,22 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (TEDIT.HARDCOPYFN

-  [LAMBDA (WINDOW IMAGESTREAM)
                          (* ; "Edited 12-Jun-90 18:35 by mitani")

+  [LAMBDA (WINDOW IMAGESTREAM)
                          (* ; "Edited 20-Sep-2021 11:12 by rmk:")

 
-    (* ;; 
-
 "This is the TEdit HARDCOPYFN, hooking into the system's standard Hardcopy window-menu operation.")

+    (* ;; 
+
 "This is the TEdit HARDCOPYFN, hooking into the system's standard Hardcopy window-menu operation.")

 
     (PROG ((TEXTOBJ (TEXTOBJ WINDOW))
            (TEXTSTREAM (TEXTSTREAM WINDOW)))
 
-     (* ;; "TEXTSTREAM is bound here so we don't drop the steam on the floor if the window goes away, since the TEXTOBJ only has an XPOINTER to the stream in it.  Please don't remove this binding!")

+     (* ;; "TEXTSTREAM is bound here so we don't drop the steam on the floor if the window goes away, since the TEXTOBJ only has an XPOINTER to the stream in it.  Please don't remove this binding!")

 
           (RESETLST
               [RESETSAVE (\TEDIT.MARKACTIVE TEXTOBJ)
                      '(AND (\TEDIT.MARKINACTIVE OLDVALUE]
               (replace
 (TEXTOBJ EDITOPACTIVE) of
 TEXTOBJ with
 'Hardcopy)
-              (TEDIT.FORMAT.HARDCOPY TEXTOBJ IMAGESTREAM)))  (* ; "Build the hardcopy")

-    ])
+                                                             (* ; "Build the hardcopy")

+              (TEDIT.FORMAT.HARDCOPY TEXTOBJ IMAGESTREAM))])
 
 (\TEDIT.HARDCOPY

   [LAMBDA (FILE PFILE)
                                  (* ; "Edited 12-Jun-90 18:35 by mitani")

@@ -1562,24 +1562,24 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
         PFILE)])
 )
 
-(LISTPUT (ASSOC 'CONVERSION (ASSOC 'INTERPRESS PRINTFILETYPES))
-       'TEDIT
-       (FUNCTION \TEDIT.HARDCOPY))
+[LET [(IPVALUES (ASSOC 'CONVERSION (ASSOC 'INTERPRESS PRINTFILETYPES]
+     (COND
+        (IPVALUES                                            (* ; 
+
                                        "Only install INTERPRESS printing if INTERPRESS is loaded.")

+               (LISTPUT IPVALUES 'TEDIT (FUNCTION \TEDIT.HARDCOPY]
 
 [LET [(PRESSVALUES (ASSOC 'CONVERSION (ASSOC 'PRESS PRINTFILETYPES]
      (COND
-        (PRESSVALUES                                         (* ; 
-
                                                  "Only install PRESS printing if PRESS is loaded.")

-               (LISTPUT PRESSVALUES 'TEDIT (FUNCTION \TEDIT.PRESS.HARDCOPY]
+        (PRESSVALUES (LISTPUT PRESSVALUES 'TEDIT (FUNCTION \TEDIT.PRESS.HARDCOPY]
 
 
 
 (* ;; "vars for Japanese Line Break")

 
 
-(RPAQQ TEDIT.DONT.BREAK.CHARS
 (8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251 9253 9255 
-                                        9257 9283 9315 9317 9319 9326 9505 9507 9509 9511 9513 9539 
-                                        9571 9573 9575 9582))
+(RPAQQ TEDIT.DONT.BREAK.CHARS
 
+       (8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251 9253 9255 9257 9283 9315 9317 9319 
+             9326 9505 9507 9509 9511 9513 9539 9571 9573 9575 9582))
 
 (RPAQQ TEDIT.DONT.LAST.CHARS
 (8524 8538 8536 8534))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1612,11 +1612,11 @@ Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation.
 (PUTPROPS TEDITHCPY COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
 1991 1992 1993 1994 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3088 99806 (TEDIT.HARDCOPY 3098 . 4349) (TEDIT.HCPYFILE 4351 . 6425) (
-\TEDIT.HARDCOPY.DISPLAYLINE 6427 . 20572) (\TEDIT.HARDCOPY.FORMATLINE 20574 . 67896) (
-\DOFORMATTING.HARDCOPY 67898 . 81191) (\TEDIT.HARDCOPY.MODIFYLOOKS 81193 . 83600) (
-\TEDIT.HCPYLOOKS.UPDATE 83602 . 94210) (\TEDIT.HCPYFMTSPEC 94212 . 99232) (\TEDIT.INTEGER.IMAGEBOX 
-99234 . 99804)) (99895 100979 (\TEDIT.SCALE 99905 . 100199) (\TEDIT.SCALEREGION 100201 . 100977)) (
-101222 103719 (TEDIT.HARDCOPYFN 101232 . 102083) (\TEDIT.HARDCOPY 102085 . 102994) (
-\TEDIT.PRESS.HARDCOPY 102996 . 103717)) (104701 105604 (TEDIT-BOOK 104711 . 105602)))))
+  (FILEMAP (NIL (3137 99855 (TEDIT.HARDCOPY 3147 . 4398) (TEDIT.HCPYFILE 4400 . 6474) (
+\TEDIT.HARDCOPY.DISPLAYLINE 6476 . 20621) (\TEDIT.HARDCOPY.FORMATLINE 20623 . 67945) (
+\DOFORMATTING.HARDCOPY 67947 . 81240) (\TEDIT.HARDCOPY.MODIFYLOOKS 81242 . 83649) (
+\TEDIT.HCPYLOOKS.UPDATE 83651 . 94259) (\TEDIT.HCPYFMTSPEC 94261 . 99281) (\TEDIT.INTEGER.IMAGEBOX 
+99283 . 99853)) (99944 101028 (\TEDIT.SCALE 99954 . 100248) (\TEDIT.SCALEREGION 100250 . 101026)) (
+101271 103822 (TEDIT.HARDCOPYFN 101281 . 102186) (\TEDIT.HARDCOPY 102188 . 103097) (
+\TEDIT.PRESS.HARDCOPY 103099 . 103820)) (104785 105688 (TEDIT-BOOK 104795 . 105686)))))
 STOP

library/TEDITWINDOW

@@ -1,13 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "21-Jun-99 20:00:42" {DSK}<project>medley3.5>library>TEDITWINDOW.;3
 185046 
+
(FILECREATED "19-Sep-2021 23:11:04" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.;10
 186372 
 
-      changes to%:  (FNS \TEDIT.WINDOW.SETUP)
+      changes to%:  (FNS \TEDIT.SCROLLFN)
 
-      previous date%: "25-Aug-94 10:56:22" {DSK}<project>medley3.5>library>TEDITWINDOW.;2)
+      previous date%: "19-Sep-2021 22:58:18" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.;9)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, 1999 by John Sybalsky & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by John Sybalsky & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT TEDITWINDOWCOMS)
@@ -27,29 +29,29 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
                \TEDIT.UNSPLITCURSOR \TEDIT.MAKESPLITCURSOR)
         (INITVARS (TEDIT.DEFAULT.WINDOW NIL))
         (GLOBALVARS TEDIT.DEFAULT.WINDOW)
-        (COMS                                                (* ; 
-
                                                 "User-level %"is this a TEdit window?%" function.")

+        (COMS                                                (* ; 
+
                                                 "User-level %"is this a TEdit window?%" function.")

               (FNS TEDITWINDOWP))
-        (COMS                                                (* ; "User-typein support")

+        (COMS                                                (* ; "User-typein support")

               (FNS TEDIT.GETINPUT \TEDIT.MAKEFILENAME))
-        (COMS                                                (* ; "Attached Prompt window support.")

+        (COMS                                                (* ; "Attached Prompt window support.")

               (FNS TEDIT.PROMPTPRINT TEDIT.PROMPTFLASH \TEDIT.PROMPT.PAGEFULLFN)
               (INITVARS (TEDIT.PROMPT.FONT (FONTCREATE 'GACHA 10))
                      (TEDIT.PROMPTWINDOW.HEIGHT NIL))
               (GLOBALVARS TEDIT.PROMPT.FONT TEDIT.PROMPTWINDOW.HEIGHT))
-        (COMS                                                (* ; "Title creation and update")

+        (COMS                                                (* ; "Title creation and update")

               (FNS TEXTSTREAM.TITLE \TEDIT.ORIGINAL.WINDOW.TITLE \TEDIT.WINDOW.TITLE 
                    \TEXTSTREAM.FILENAME))
-        (COMS                                                (* ; "Screen updating utilities")

+        (COMS                                                (* ; "Screen updating utilities")

               (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.REPAINTFN \TEDIT.RESHAPEFN \TEDIT.SCROLLFN))
-        (COMS                                                (* ; "Process-world interfaces")

+        (COMS                                                (* ; "Process-world interfaces")

               (FNS \TEDIT.PROCIDLEFN \TEDIT.PROCENTRYFN \TEDIT.PROCEXITFN))
         (COMS (INITVARS (\CARETRATE 333))
-                                                             (* ; 
-
                                                           "Caret handler;  stolen from CHAT.")

+                                                             (* ; 
+
                                                           "Caret handler;  stolen from CHAT.")

               (FNS \EDIT.DOWNCARET \EDIT.FLIPCARET TEDIT.FLASHCARET \EDIT.UPCARET 
                    TEDIT.NORMALIZECARET \SETCARET \TEDIT.CARET))
-        [COMS                                                (* ; "Menu interfacing")

+        [COMS                                                (* ; "Menu interfacing")

               (FNS TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENUFN TEDIT.REMOVE.MENUITEM \TEDIT.CREATEMENU 
                    \TEDIT.MENU.WHENHELDFN \TEDIT.MENU.WHENSELECTEDFN)
               (GLOBALVARS TEDIT.DEFAULT.MENU)
@@ -77,21 +79,21 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
                                                             '(TEdit '(TEDIT)
                                                                     "Opens a TEdit window for use."]
                                                  (SETQ BackgroundMenu NIL]
-        (COMS                                                (* ; "titled icon info")

+        (COMS                                                (* ; "titled icon info")

               (FILES ICONW)
               (BITMAPS TEDITICON TEDITMASK)
               (INITVARS (TEDIT.ICON.FONT (FONTCREATE 'HELVETICA 8 'BOLD))
                      [TEDIT.ICON.TITLE.REGION (CONS 16 (CONS 4 (CONS 64 (CONS 77 NIL]
-                                                             (* ; 
-
                        "Original was (create REGION BOTTOM _ 4 LEFT _ 16 WIDTH _ 64 HEIGHT _ 77).")

-                                                             (* ; 
-
                                                  "Changed by yabu.fx, for SUNLOADUP without DWIM.")

+                                                             (* ; 
+
                        "Original was (create REGION BOTTOM _ 4 LEFT _ 16 WIDTH _ 64 HEIGHT _ 77).")

+                                                             (* ; 
+
                                                  "Changed by yabu.fx, for SUNLOADUP without DWIM.")

                      [TEDIT.TITLED.ICON.TEMPLATE (CONS TEDITICON (CONS TEDITMASK (CONS 
                                                                               TEDIT.ICON.TITLE.REGION
                                                                                        NIL]
-                                                             (* ; "Original was (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION).")

-                                                             (* ; 
-
                                                  "Changed by yabu.fx, for SUNLOADUP without DWIM.")

+                                                             (* ; "Original was (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION).")

+                                                             (* ; 
+
                                                  "Changed by yabu.fx, for SUNLOADUP without DWIM.")

                      ])
 
 (FILESLOAD TEDITDCL)
@@ -452,337 +454,345 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
                                    (PROCESSP (WINDOWPROP W 'PROCESS])
 
 (\TEDIT.BUTTONEVENTFN

-  [LAMBDA (W STREAM)
                                     (* ; "Edited  5-Sep-91 18:52 by jds")

+  [LAMBDA (W STREAM)
                                    (* ; "Edited 19-Sep-2021 22:58 by rmk:")

 
-    (* ;; "Handle button events for a TEdit window")

+    (* ;; "Handle button events for a TEdit window.  If no button is down, we got control on button-up transition, so ignore it.")

 
-    (AND STREAM (SETQ STREAM (TEXTOBJ STREAM)))
-    (PROG* ((OSEL NIL)
-            (SEL NIL)
-            [TEXTOBJ (OR STREAM (WINDOWPROP W 'TEXTOBJ]
-            (DS (WINDOWPROP W 'DSP))
-            USERFN
-            (GLOBALSEL TEDIT.SELECTION)
-            (X (LASTMOUSEX W))
-            (Y (LASTMOUSEY W))
-            (CLIPREGION (DSPCLIPPINGREGION NIL W))
-            (SELOPERATION 'NORMAL)
-            (SELFN (TEXTPROP TEXTOBJ 'SELFN))
-            (EXTENDFLG NIL)
-            (OLDX -32000)
-            (OLDY -32000)
-            SELFINALFN PROC NOSEL)
-           (COND
-              ((NOT (MOUSESTATE (OR LEFT MIDDLE RIGHT)))     (* ; 
-
                       "No button is down -- we got control on button-up transition, so ignore it.")

-               (RETURN))
-              (TEDIT.SELPENDING                              (* ; 
-
                     "There is already a selection in progress.  Don't allow another to interfere.")

-                     (RETURN)))
-           (replace
 (SELECTION CH#) of
 TEDIT.SCRATCHSELECTION with
 0)
+    (TOTOPW W)
+
+    (* ;; "RMK: 2021/9 TOTOPW was in (almost) all the conditional branches, I moved it up so that it always happens, even if the click is perhaps in a menu.  There were cases where a second click in the window was needed to bring it above an overlapping window that it was under.  I think perhaps it was because the mouse button may not have been seen as down on the first click, so it would return before it raised the window.  But that was really bizarre--maybe the click was to see what was obscured by the overlapping window.")

+
+    (CL:WHEN (AND (MOUSESTATE (OR LEFT MIDDLE RIGHT))
+                  (NOT TEDIT.SELPENDING))
+
+        (* ;; "(RMK:  old comment): Bail out if the mouse isn't down or there is a pending selection--don't want another selection to interfere.")

+
+        (AND STREAM (SETQ STREAM (TEXTOBJ STREAM)))
+        [LET* ((OSEL NIL)
+               (SEL NIL)
+               [TEXTOBJ (OR STREAM (WINDOWPROP W 'TEXTOBJ]
+               (DS (WINDOWPROP W 'DSP))
+               USERFN
+               (GLOBALSEL TEDIT.SELECTION)
+               (X (LASTMOUSEX W))
+               (Y (LASTMOUSEY W))
+               (CLIPREGION (DSPCLIPPINGREGION NIL W))
+               (SELOPERATION 'NORMAL)
+               (SELFN (TEXTPROP TEXTOBJ 'SELFN))
+               (EXTENDFLG NIL)
+               (OLDX -32000)
+               (OLDY -32000)
+               SELFINALFN PROC NOSEL)
+              (replace
 (SELECTION CH#) of
 TEDIT.SCRATCHSELECTION with
 0)
                                                              (* ; 
 
                     "Mark the user-visible scratch selection fresh, so changes can be detected...")

-           (COND
-              [[OR (NOT TEXTOBJ)
-                   (fetch
 (TEXTOBJ EDITFINISHEDFLG) of
 TEXTOBJ)
-                   (AND (NOT (WINDOWPROP W 'PROCESS))
-                        (NOT (TEXTPROP TEXTOBJ 'READONLY))
-                        (NOT (SHIFTDOWNP 'SHIFT))
-                        (NOT (SHIFTDOWNP 'CTRL))
-                        (NOT (SHIFTDOWNP 'META))
-                        (NOT (KEYDOWNP 'MOVE))
-                        (NOT (KEYDOWNP 'COPY]                (* ; "There's no edit session behind this window.  You can only do window ops, or re-establish a session.")

-               (TOTOPW W)
-               (COND
-                  ((\TEDIT.MOUSESTATE RIGHT)                 (* ; 
+              (COND
+                 [[OR (NOT TEXTOBJ)
+                      (fetch
 (TEXTOBJ EDITFINISHEDFLG) of
 TEXTOBJ)
+                      (AND (NOT (WINDOWPROP W 'PROCESS))
+                           (NOT (TEXTPROP TEXTOBJ 'READONLY))
+                           (NOT (SHIFTDOWNP 'SHIFT))
+                           (NOT (SHIFTDOWNP 'CTRL))
+                           (NOT (SHIFTDOWNP 'META))
+                           (NOT (KEYDOWNP 'MOVE))
+                           (NOT (KEYDOWNP 'COPY]             (* ; "There's no edit session behind this window.  You can only do window ops, or re-establish a session.")

+                  (COND
+                     ((\TEDIT.MOUSESTATE RIGHT)              (* ; 
 
                                                        "Right button gets the window command menu")

-                   (DOWINDOWCOM W))
-                  ((AND TEXTOBJ (NOT (TEXTPROP TEXTOBJ 'READONLY))
-                        (NOT (TEXTPROP TEXTOBJ 'SELECTONLY))
-                        [NOT (PROCESSP (WINDOWPROP W 'PROCESS]
-                        (\TEDIT.MOUSESTATE MIDDLE))          (* ; 
+                      (DOWINDOWCOM W))
+                     ((AND TEXTOBJ (NOT (TEXTPROP TEXTOBJ 'READONLY))
+                           (NOT (TEXTPROP TEXTOBJ 'SELECTONLY))
+                           [NOT (PROCESSP (WINDOWPROP W 'PROCESS]
+                           (\TEDIT.MOUSESTATE MIDDLE))       (* ; 
 
                                "Middle button on a dead window gives a menu for re-starting TEDIT")

-                   (COND
-                      ((EQ (MENU TEDIT.RESTART.MENU)
-                           'NewEditProcess)
-                       (replace
 (TEXTOBJ EDITOPACTIVE) of
 TEXTOBJ with
 NIL)
-                       (TEDIT (fetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ)
-                              W]
-              [(IGREATERP Y (fetch
 TOP of
 CLIPREGION))
+                      (COND
+                         ((EQ (MENU TEDIT.RESTART.MENU)
+                              'NewEditProcess)
+                          (replace
 (TEXTOBJ EDITOPACTIVE) of
 TEXTOBJ with
 NIL)
+                          (TEDIT (fetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ)
+                                 W]
+                 [(IGREATERP Y (fetch
 TOP of
 CLIPREGION))
                                                              (* ; 
 
                                     "It's not inside the window's REAL region, so call on a menu.")

-               (TOTOPW W)
-               (COND
-                  ((\TEDIT.MOUSESTATE RIGHT)
-                   (DOWINDOWCOM W))
-                  ((MOUSESTATE (OR LEFT MIDDLE))
-                   (AND TEXTOBJ (SETQ USERFN (WINDOWPROP W 'TEDIT.TITLEMENUFN))
-                        (NEQ USERFN 'DON'T)                  (* ; "HAD BEEN:  (COND ((AND (SETQ PROC (WINDOWPROP W 'PROCESS)) (PROCESSP PROC)) ; This window has a live process behind it;  go evaluate the button fn there. (PROCESS.APPLY PROC USERFN (LIST W))) (T ; Otherwise, create a new process to handle the menu. (ADD.PROCESS (LIST USERFN (KWOTE W)))))")

-                        (ADD.PROCESS (LIST USERFN (KWOTE W]
-              ((AND TEXTOBJ (EQ (fetch
 (TEXTOBJ MOUSEREGION) of
 TEXTOBJ)
-                                'WINDOW))                    (* ; 
+
+                  (* ;; "RMK:  This comment was originally just after the DON'T below, which generated a value-of-comment used message.")

+
+                  (* ;; "HAD BEEN:  (COND ((AND (SETQ PROC (WINDOWPROP W 'PROCESS)) (PROCESSP PROC)) ; This window has a live process behind it;  go evaluate the button fn there. (PROCESS.APPLY PROC USERFN (LIST W))) (T ; Otherwise, create a new process to handle the menu. (ADD.PROCESS (LIST USERFN (KWOTE W)))))")

+
+                  (COND
+                     ((\TEDIT.MOUSESTATE RIGHT)
+                      (DOWINDOWCOM W))
+                     ((MOUSESTATE (OR LEFT MIDDLE))
+                      (AND TEXTOBJ (SETQ USERFN (WINDOWPROP W 'TEDIT.TITLEMENUFN))
+                           (NEQ USERFN 'DON'T)
+                           (ADD.PROCESS (LIST USERFN (KWOTE W]
+                 ((AND TEXTOBJ (EQ (fetch
 (TEXTOBJ MOUSEREGION) of
 TEXTOBJ)
+                                   'WINDOW))                 (* ; 
 
                    "We're in the window-ops region of the window.  Do a window split or something")

-               (\TEDIT.WINDOW.OPS
 TEXTOBJ W))
-              ((AND TEXTOBJ (NOT (fetch
 (TEXTOBJ EDITOPACTIVE) of
 TEXTOBJ)))
+                  (\TEDIT.WINDOW.OPS
 TEXTOBJ W))
+                 ((AND TEXTOBJ (NOT (fetch
 (TEXTOBJ EDITOPACTIVE) of
 TEXTOBJ)))
                                                              (* ; 
 
           "Usual case -- he's really selecting something.  And there's nothing else going on now.")

-               (TOTOPW W)                                    (* ; 
-
                          "Move the editing window to the top, so he can select wherever he wants.")

-               (\CARET.DOWN)                                 (* ; 
+                  (\CARET.DOWN)                              (* ; 
 
                                                       "Make sure the caret isn't being displayed.")

-               (RESETLST
-                   (RESETSAVE TEDIT.SELPENDING TEXTOBJ)
+                  (RESETLST
+                      (RESETSAVE TEDIT.SELPENDING TEXTOBJ)
 
-                   (* ;; "Tell all TEdits not to run, since there is a selection in progress.  This is reset to NIL on return from here, to re-enable TEdit runs.")

+                      (* ;; "Tell all TEdits not to run, since there is a selection in progress.  This is reset to NIL on return from here, to re-enable TEdit runs.")

 
-                   (RESETSAVE (for
 CARET inside
 (fetch
 (TEXTOBJ CARET) of
 TEXTOBJ)
-                                 do
 (replace
 TCCARET of
 CARET with
 (\CARET.CREATE
-                                                                                    BXHICARET)))
-                          (LIST '\TEDIT.CARET (fetch
 (TEXTOBJ CARET) of
 TEXTOBJ)))
+                      (RESETSAVE (for
 CARET inside
 (fetch
 (TEXTOBJ CARET) of
 TEXTOBJ)
+                                    do
 (replace
 TCCARET of
 CARET with
 (\CARET.CREATE
+                                                                                       BXHICARET)))
+                             (LIST '\TEDIT.CARET (fetch
 (TEXTOBJ CARET) of
 TEXTOBJ)))
                                                              (* ; 
 
                                   "Then make the caret be the special, tall one so he can see it.")

-                   (COND
-                      ((KEYDOWNP 'COPY)                      (* ; 
+                      (COND
+                         ((KEYDOWNP 'COPY)                   (* ; 
 
                                                      "In a read-only document, you can only copy.")

-                       (SETQ GLOBALSEL TEDIT.SHIFTEDSELECTION)
-                       (SETQ OSEL (fetch
 (TEXTOBJ SHIFTEDSEL) of
 TEXTOBJ))
-                       (SETQ SELOPERATION 'COPY))
-                      ((AND (KEYDOWNP 'MOVE)
-                            (NOT (fetch
 (TEXTOBJ TXTREADONLY) of
 TEXTOBJ)))
+                          (SETQ GLOBALSEL TEDIT.SHIFTEDSELECTION)
+                          (SETQ OSEL (fetch
 (TEXTOBJ SHIFTEDSEL) of
 TEXTOBJ))
+                          (SETQ SELOPERATION 'COPY))
+                         ((AND (KEYDOWNP 'MOVE)
+                               (NOT (fetch
 (TEXTOBJ TXTREADONLY) of
 TEXTOBJ)))
                                                              (* ; 
 
                                                          "The MOVE key is down, so set MOVE mode.")

-                       (SETQ GLOBALSEL TEDIT.MOVESELECTION)
-                       (SETQ OSEL (fetch
 (TEXTOBJ MOVESEL) of
 TEXTOBJ))
-                       (SETQ SELOPERATION 'MOVE))
-                      [(SHIFTDOWNP 'SHIFT)                   (* ; 
+                          (SETQ GLOBALSEL TEDIT.MOVESELECTION)
+                          (SETQ OSEL (fetch
 (TEXTOBJ MOVESEL) of
 TEXTOBJ))
+                          (SETQ SELOPERATION 'MOVE))
+                         [(SHIFTDOWNP 'SHIFT)                (* ; 
 
                                    "the SHIFT key is down;  mark this selection for COPY or MOVE.")

-                       (COND
-                          ((AND (SHIFTDOWNP 'CTRL)
-                                (NOT (fetch
 (TEXTOBJ TXTREADONLY) of
 TEXTOBJ)))
+                          (COND
+                             ((AND (SHIFTDOWNP 'CTRL)
+                                   (NOT (fetch
 (TEXTOBJ TXTREADONLY) of
 TEXTOBJ)))
                                                              (* ; "CTRL-SHIFT select means MOVE.")

-                           (SETQ GLOBALSEL TEDIT.MOVESELECTION)
-                           (SETQ OSEL (fetch
 (TEXTOBJ MOVESEL) of
 TEXTOBJ))
-                           (SETQ SELOPERATION 'MOVE))
-                          (T (SETQ GLOBALSEL TEDIT.SHIFTEDSELECTION)
-                             (SETQ OSEL (fetch
 (TEXTOBJ SHIFTEDSEL) of
 TEXTOBJ))
-                             (SETQ SELOPERATION 'COPY]
-                      ((SHIFTDOWNP 'META)                    (* ; 
+                              (SETQ GLOBALSEL TEDIT.MOVESELECTION)
+                              (SETQ OSEL (fetch
 (TEXTOBJ MOVESEL) of
 TEXTOBJ))
+                              (SETQ SELOPERATION 'MOVE))
+                             (T (SETQ GLOBALSEL TEDIT.SHIFTEDSELECTION)
+                                (SETQ OSEL (fetch
 (TEXTOBJ SHIFTEDSEL) of
 TEXTOBJ))
+                                (SETQ SELOPERATION 'COPY]
+                         ((SHIFTDOWNP 'META)                 (* ; 
 
                                        "He's holding the meta key down , do a copylooks selection")

-                       (SETQ GLOBALSEL TEDIT.COPYLOOKSSELECTION)
-                       (SETQ OSEL (fetch
 (TEXTOBJ SHIFTEDSEL) of
 TEXTOBJ))
-                       (SETQ SELOPERATION 'COPYLOOKS))
-                      ((AND (SHIFTDOWNP 'CTRL)
-                            (NOT (fetch
 (TEXTOBJ TXTREADONLY) of
 TEXTOBJ)))
+                          (SETQ GLOBALSEL TEDIT.COPYLOOKSSELECTION)
+                          (SETQ OSEL (fetch
 (TEXTOBJ SHIFTEDSEL) of
 TEXTOBJ))
+                          (SETQ SELOPERATION 'COPYLOOKS))
+                         ((AND (SHIFTDOWNP 'CTRL)
+                               (NOT (fetch
 (TEXTOBJ TXTREADONLY) of
 TEXTOBJ)))
                                                              (* ; 
 
                                               "He's holding the control key down;  note the fact.")

-                       (\SHOWSEL (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ)
-                              NIL NIL)
-                       (SETQ GLOBALSEL TEDIT.DELETESELECTION)
-                       [COND
-                          ((fetch
 (SELECTION SET) of
 (fetch
 (TEXTOBJ DELETESEL)
-                                                                of
 TEXTOBJ))
+                          (\SHOWSEL (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ)
+                                 NIL NIL)
+                          (SETQ GLOBALSEL TEDIT.DELETESELECTION)
+                          [COND
+                             ((fetch
 (SELECTION SET) of
 (fetch
 (TEXTOBJ DELETESEL)
+                                                                   of
 TEXTOBJ))
                                                              (* ; 
 
         "There's a pending delete selection.  Use it, and turn off the existing normal selection.")

-                           )
-                          (T                                 (* ; 
+                              )
+                             (T                              (* ; 
 
                     "No existing delete selection.  Use the normal selection as a starting point.")

-                             (\COPYSEL (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ)
-                                    (fetch
 (TEXTOBJ DELETESEL) of
 TEXTOBJ]
-                       (replace
 (SELECTION SET) of
 (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ)
-                          with
 NIL)
+                                (\COPYSEL (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ)
+                                       (fetch
 (TEXTOBJ DELETESEL) of
 TEXTOBJ]
+                          (replace
 (SELECTION SET) of
 (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ
+                                                                     ) with
 NIL)
 
-                       (* ;; "Remember to turn off the normal selection, since we'll be moving it to a new spot after the deletion.")

+                          (* ;; "Remember to turn off the normal selection, since we'll be moving it to a new spot after the deletion.")

 
-                       (SETQ OSEL (fetch
 (TEXTOBJ DELETESEL) of
 TEXTOBJ))
-                       (SETQ SELOPERATION 'DELETE)
-                       (TEDIT.SET.SEL.LOOKS OSEL 'DELETE)
-                       (replace
 (TEXTOBJ BLUEPENDINGDELETE) of
 TEXTOBJ with
 NIL))
-                      (T (SETQ OSEL (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ))
-                         (replace
 (TEXTOBJ BLUEPENDINGDELETE) of
 TEXTOBJ with
 NIL)
+                          (SETQ OSEL (fetch
 (TEXTOBJ DELETESEL) of
 TEXTOBJ))
+                          (SETQ SELOPERATION 'DELETE)
+                          (TEDIT.SET.SEL.LOOKS OSEL 'DELETE)
+                          (replace
 (TEXTOBJ BLUEPENDINGDELETE) of
 TEXTOBJ with
 NIL))
+                         (T (SETQ OSEL (fetch
 (TEXTOBJ SEL) of
 TEXTOBJ))
+                            (replace
 (TEXTOBJ BLUEPENDINGDELETE) of
 TEXTOBJ with
 NIL)
                                                              (* ; "Reset the pending-delete flag.")

-                         ))
-                   (\COPYSEL OSEL GLOBALSEL)
-                   (bind
 (OSELOP _ SELOPERATION)
-                      while
 [OR (SHIFTDOWNP 'SHIFT)
-                                    (SHIFTDOWNP 'CTRL)
-                                    (SHIFTDOWNP 'META)
-                                    (KEYDOWNP 'MOVE)
-                                    (KEYDOWNP 'COPY)
-                                    (NOT (ZEROP (LOGAND LASTMOUSEBUTTONS 7]
-                      do
                                 (* ; 
+                            ))
+                      (\COPYSEL OSEL GLOBALSEL)
+                      (bind
 (OSELOP _ SELOPERATION)
+                         while
 [OR (SHIFTDOWNP 'SHIFT)
+                                       (SHIFTDOWNP 'CTRL)
+                                       (SHIFTDOWNP 'META)
+                                       (KEYDOWNP 'MOVE)
+                                       (KEYDOWNP 'COPY)
+                                       (NOT (ZEROP (LOGAND LASTMOUSEBUTTONS 7]
+                         do
                              (* ; 
 
                                                   "Poll the selection & display its current state")

-                            [COND
-                               ((ZEROP (LOGAND LASTMOUSEBUTTONS 7))
+                               [COND
+                                  ((ZEROP (LOGAND LASTMOUSEBUTTONS 7))
                                                              (* ; 
 
                                                  "No mouse buttons are down;  don't try anything.")

-                                (SETQ OLDX -32000)           (* ; 
+                                   (SETQ OLDX -32000)        (* ; 
 
       "However, remember that pushing a mouse button is a change of status that we should notice.")

-                                )
-                               ((KEYDOWNP 'MOVE)             (* ; 
+                                   )
+                                  ((KEYDOWNP 'MOVE)          (* ; 
 
                                             "the MOVE key is down;  mark this selection for MOVE.")

-                                (SETQ SELOPERATION 'MOVE))
-                               [(OR (SHIFTDOWNP 'SHIFT)
-                                    (KEYDOWNP 'COPY))        (* ; 
+                                   (SETQ SELOPERATION 'MOVE))
+                                  [(OR (SHIFTDOWNP 'SHIFT)
+                                       (KEYDOWNP 'COPY))     (* ; 
 
                                    "the SHIFT key is down;  mark this selection for COPY or MOVE.")

-                                (COND
-                                   ((SHIFTDOWNP 'CTRL)       (* ; 
+                                   (COND
+                                      ((SHIFTDOWNP 'CTRL)    (* ; 
 
                                              "He's holding down both ctrl and shift -- do a move.")

-                                    (SETQ SELOPERATION 'MOVE))
-                                   (T                        (* ; 
+                                       (SETQ SELOPERATION 'MOVE))
+                                      (T                     (* ; 
 
                                                           "Just the SHIFT key.  It's a COPY")

-                                      (SETQ SELOPERATION 'COPY]
-                               ((SHIFTDOWNP 'META)           (* ; 
+                                         (SETQ SELOPERATION 'COPY]
+                                  ((SHIFTDOWNP 'META)        (* ; 
 
                                                  "He's holding the meta key down;  note the fact.")

-                                (SETQ SELOPERATION 'COPYLOOKS))
-                               ((SHIFTDOWNP 'CTRL)           (* ; 
+                                   (SETQ SELOPERATION 'COPYLOOKS))
+                                  ((SHIFTDOWNP 'CTRL)        (* ; 
 
                               "He's holding only the CTRL key -- mark the selection for deletion.")

-                                (SETQ SELOPERATION 'DELETE))
-                               (T                            (* ; 
+                                   (SETQ SELOPERATION 'DELETE))
+                                  (T                         (* ; 
 
                                             "No key being held down;  revert to normal selection.")

-                                  (SETQ SELOPERATION 'NORMAL]
-                            (COND
-                               [(AND (OR [NOT (IEQP OLDX (SETQ X (LASTMOUSEX DS]
-                                         [NOT (IEQP OLDY (SETQ Y (LASTMOUSEY DS]
-                                         (NEQ OSELOP SELOPERATION))
-                                     (INSIDEP CLIPREGION X Y))
+                                     (SETQ SELOPERATION 'NORMAL]
+                               (COND
+                                  [(AND (OR [NOT (IEQP OLDX (SETQ X (LASTMOUSEX DS]
+                                            [NOT (IEQP OLDY (SETQ Y (LASTMOUSEY DS]
+                                            (NEQ OSELOP SELOPERATION))
+                                        (INSIDEP CLIPREGION X Y))
 
-                                (* ;; "Only do selection if (1) the mouse is inside the window proper and (2) the mouse has moved, or the kind of selection has changed")

+                                  (* ;; "Only do selection if (1) the mouse is inside the window proper and (2) the mouse has moved, or the kind of selection has changed")

 
-                                (* ;; "Must precede the scroll-region test, so that we don't try to scroll while the mouse is inside the main window, even if the scroll bar overlaps the window (at left edge of screen, say)")

+                                 (* ;; "Must precede the scroll-region test, so that we don't try to scroll while the mouse is inside the main window, even if the scroll bar overlaps the window (at left edge of screen, say)")

 
-                                (SETQ OLDX X)
-                                (SETQ OLDY Y)
-                                [COND
-                                   ((\TEDIT.MOUSESTATE LEFT) (* ; 
+                                   (SETQ OLDX X)
+                                   (SETQ OLDY Y)
+                                   [COND
+                                      ((\TEDIT.MOUSESTATE LEFT)
+                                                             (* ; 
 
                                                           "Left button is character selection")

-                                    (SETQ SEL (TEDIT.SELECT X Y TEXTOBJ (fetch
 (TEXTOBJ 
+                                       (SETQ SEL (TEDIT.SELECT X Y TEXTOBJ (fetch
 (TEXTOBJ 
                                                                                           MOUSEREGION
-                                                                                          )
-                                                                           of
 TEXTOBJ)
-                                                     NIL SELOPERATION W))
-                                    (SETQ EXTENDFLG NIL))
-                                   ((\TEDIT.MOUSESTATE MIDDLE)
+                                                                                             )
+                                                                              of
 TEXTOBJ)
+                                                        NIL SELOPERATION W))
+                                       (SETQ EXTENDFLG NIL))
+                                      ((\TEDIT.MOUSESTATE MIDDLE)
                                                              (* ; "Middle button is word selection")

-                                    (SETQ SEL (TEDIT.SELECT X Y TEXTOBJ (fetch
 (TEXTOBJ 
+                                       (SETQ SEL (TEDIT.SELECT X Y TEXTOBJ (fetch
 (TEXTOBJ 
                                                                                           MOUSEREGION
-                                                                                          )
-                                                                           of
 TEXTOBJ)
-                                                     T SELOPERATION W))
-                                    (SETQ EXTENDFLG NIL))
-                                   [(\TEDIT.MOUSESTATE RIGHT)(* ; "RIght button extends selections")

-                                    (COND
-                                       ((NEQ SELOPERATION OSELOP)
+                                                                                             )
+                                                                              of
 TEXTOBJ)
+                                                        T SELOPERATION W))
+                                       (SETQ EXTENDFLG NIL))
+                                      [(\TEDIT.MOUSESTATE RIGHT)
+                                                             (* ; "RIght button extends selections")

+                                       (COND
+                                          ((NEQ SELOPERATION OSELOP)
 
                                  (* ;; "Things changed since the last selection.  Grab the prior selection info, so that the extension is taken from the selection NOW being made, rather than the last existing old-type selection.")

 
-                                        (\COPYSEL OSEL GLOBALSEL)))
-                                    (COND
-                                       ((fetch
 (SELECTION SET) of
 GLOBALSEL)
-                                        (AND TEDIT.EXTEND.PENDING.DELETE (EQ SELOPERATION
-                                                                             'NORMAL)
-                                             (SETQ SELOPERATION 'PENDINGDEL)
-                                             (replace
 (TEXTOBJ BLUEPENDINGDELETE) of
 TEXTOBJ
-                                                with
 T)) (* ; 
+                                           (\COPYSEL OSEL GLOBALSEL)))
+                                       (COND
+                                          ((fetch
 (SELECTION SET) of
 GLOBALSEL)
+                                           (AND TEDIT.EXTEND.PENDING.DELETE (EQ SELOPERATION
+                                                                                'NORMAL)
+                                                (SETQ SELOPERATION 'PENDINGDEL)
+                                                (replace
 (TEXTOBJ BLUEPENDINGDELETE) of

+                                                                                         TEXTOBJ
+                                                   with
 T))
+                                                             (* ; 
 
       "If TeditBluePendingDelete flag is set, then simulate Laurel's blue-pending-delete feature.")

-                                        (SETQ SEL (TEDIT.EXTEND.SEL X Y GLOBALSEL TEXTOBJ 
-                                                         SELOPERATION W))
-                                        (SETQ EXTENDFLG T]
-                                   (T                        (* ; 
+                                           (SETQ SEL (TEDIT.EXTEND.SEL X Y GLOBALSEL TEXTOBJ 
+                                                            SELOPERATION W))
+                                           (SETQ EXTENDFLG T]
+                                      (T                     (* ; 
 
                        "The mouse buttons are up, leaving us with a pro-tem 'permanent' selection")

-                                      (\COPYSEL OSEL GLOBALSEL)
+                                         (\COPYSEL OSEL GLOBALSEL)
                                                              (* ; 
 
                       "And SEL is NOT SET ANY LONGER, so it won't get copied into OSEL down below")

-                                      (AND SEL (replace
 (SELECTION SET) of
 SEL with

-                                                                                       NIL]
-                                [COND
-                                   ((AND SEL (fetch
 (SELECTION SET) of
 SEL)
-                                         SELFN)              (* ; 
+                                         (AND SEL (replace
 (SELECTION SET) of
 SEL
+                                                     with
 NIL]
+                                   [COND
+                                      ((AND SEL (fetch
 (SELECTION SET) of
 SEL)
+                                            SELFN)           (* ; 
 
                               "The selection was set, but there's a SELFN that has veto authority")

-                                    (COND
-                                       ((EQ (APPLY* SELFN TEXTOBJ SEL SELOPERATION 'TENTATIVE)
-                                            'DON'T)          (* ; 
+                                       (COND
+                                          ((EQ (APPLY* SELFN TEXTOBJ SEL SELOPERATION 'TENTATIVE)
+                                               'DON'T)       (* ; 
 
                                              "The selfn vetoed this selection, so mark it un-set.")

-                                        (replace
 (SELECTION SET) of
 SEL with
 NIL]
-                                (COND
-                                   ((\TEDIT.SEL.CHANGED? SEL OSEL OSELOP SELOPERATION)
+                                           (replace
 (SELECTION SET) of
 SEL with
 NIL]
+                                   (COND
+                                      ((\TEDIT.SEL.CHANGED? SEL OSEL OSELOP SELOPERATION)
                                                              (* ; 
 
             "Something interesting about the selection changed.  We have to re-display its image.")

-                                    (COND
-                                       ((OR (EQ SELOPERATION 'NORMAL)
-                                            (EQ SELOPERATION 'PENDINGDEL))
+                                       (COND
+                                          ((OR (EQ SELOPERATION 'NORMAL)
+                                               (EQ SELOPERATION 'PENDINGDEL))
                                                              (* ; 
 
                        "For a normal selection, set the 'window last selected in' for the TEXTOBJ")

-                                        (replace
 (TEXTOBJ SELWINDOW) of
 TEXTOBJ with

-                                                                                        W)))
-                                    (SETQ OSEL (\TEDIT.REFRESH.SHOWSEL TEXTOBJ SEL OSEL OSELOP 
-                                                      SELOPERATION EXTENDFLG))
-                                    (SETQ OSELOP SELOPERATION))
-                                   ([AND OSEL (fetch
 (SELECTION SET) of
 OSEL)
-                                         (EQ (fetch
 (SELECTION SELKIND) of
 OSEL)
-                                             'VOLATILE)
-                                         (OR (NOT SEL)
-                                             (NOT (fetch
 (SELECTION SET) of
 SEL]
+                                           (replace
 (TEXTOBJ SELWINDOW) of
 TEXTOBJ
+                                              with
 W)))
+                                       (SETQ OSEL (\TEDIT.REFRESH.SHOWSEL TEXTOBJ SEL OSEL OSELOP 
+                                                         SELOPERATION EXTENDFLG))
+                                       (SETQ OSELOP SELOPERATION))
+                                      ([AND OSEL (fetch
 (SELECTION SET) of
 OSEL)
+                                            (EQ (fetch
 (SELECTION SELKIND) of
 OSEL)
+                                                'VOLATILE)
+                                            (OR (NOT SEL)
+                                                (NOT (fetch
 (SELECTION SET) of
 SEL]
 
                                  (* ;; "There is an old selection around, but it is VOLATILE -- i.e., it shouldn't last longer than something is pointing at it.  Turn it off.")

 
-                                    (\SHOWSEL OSEL NIL NIL)
-                                    (replace
 (SELECTION SET) of
 OSEL with
 NIL]
-                               ((IN/SCROLL/BAR? W LASTMOUSEX LASTMOUSEY)
+                                       (\SHOWSEL OSEL NIL NIL)
+                                       (replace
 (SELECTION SET) of
 OSEL with
 NIL]
+                                  ((IN/SCROLL/BAR? W LASTMOUSEX LASTMOUSEY)
                                                              (* ; 
 
                                    "If he moves to the scroll bar, let him scroll without trouble")

-                                (SCROLL.HANDLER W)))
-                            (BLOCK)                          (* ; "Give other processes a chance")

-                            (GETMOUSESTATE)                  (* ; "And get the new mouse info")

-                            (TEDIT.CURSORMOVEDFN
 W))
-                   (\COPYSEL OSEL GLOBALSEL)
-                   (COND
-                      ((fetch
 (SELECTION SET) of
 OSEL)
+                                   (SCROLL.HANDLER W)))
+                               (BLOCK)                       (* ; "Give other processes a chance")

+                               (GETMOUSESTATE)               (* ; "And get the new mouse info")

+                               (TEDIT.CURSORMOVEDFN
 W))
+                      (\COPYSEL OSEL GLOBALSEL)
+                      (COND
+                         ((fetch
 (SELECTION SET) of
 OSEL)
                                                              (* ; 
 
                                        "Only if a selection REALLY got made should we do this....")

-                       (SELECTQ SELOPERATION
-                           (COPY                             (* ; 
+                          (SELECTQ SELOPERATION
+                              (COPY                          (* ; 
 
           "A COPY selection -- set the copy flag, and see if this is a copy to a non-TEdit window")

-                                 (SETQ TEDIT.COPY.PENDING T)
-                                 (replace
 (SELECTION SET) of
 OSEL with
 NIL)
+                                    (SETQ TEDIT.COPY.PENDING T)
+                                    (replace
 (SELECTION SET) of
 OSEL with
 NIL)
                                                              (* ; 
 
                                                "And turn off OSEL, to avoid spurious highlighting")

-                                 (\TEDIT.FOREIGN.COPY? GLOBALSEL)
+                                    (\TEDIT.FOREIGN.COPY? GLOBALSEL)
                                                              (* ; 
 
                               "Maybe copy into the SYSBUF, if the recipient isn't a TEdit window.")

-                                 )
-                           (COPYLOOKS                        (* ; "A COPYLOOKS selection")

-                                      (SETQ TEDIT.COPYLOOKS.PENDING T)
+                                    )
+                              (COPYLOOKS                     (* ; "A COPYLOOKS selection")

+                                         (SETQ TEDIT.COPYLOOKS.PENDING T)
                                                              (* ; 
 
                                                "And turn off OSEL, to avoid spurious highlighting")

-                                      (replace
 (SELECTION SET) of
 OSEL with
 NIL))
-                           (MOVE                             (* ; 
+                                         (replace
 (SELECTION SET) of
 OSEL with
 NIL))
+                              (MOVE                          (* ; 
 
                               "A MOVE selection -- set the flag to signal the TEdit command loop,")

-                                 (SETQ TEDIT.MOVE.PENDING T) (* ; 
-
                                                "And turn off OSEL, to avoid spurious highlighting")

-                                 (replace
 (SELECTION SET) of
 OSEL with
 NIL))
-                           (DELETE (SETQ TEDIT.DEL.PENDING T)
-                                   (replace
 (SELECTION SET) of
 OSEL with
 NIL)
+                                    (SETQ TEDIT.MOVE.PENDING T)
                                                              (* ; 
 
                                                "And turn off OSEL, to avoid spurious highlighting")

-                                   )
-                           (NORMAL                           (* ; 
+                                    (replace
 (SELECTION SET) of
 OSEL with
 NIL))
+                              (DELETE (SETQ TEDIT.DEL.PENDING T)
+                                      (replace
 (SELECTION SET) of
 OSEL with
 NIL)
+                                                             (* ; 
+
                                                "And turn off OSEL, to avoid spurious highlighting")

+                                      )
+                              (NORMAL                        (* ; 
 
                                                 "This is a normal selection;  set the caret looks")

-                                   (replace
 (TEXTOBJ CARETLOOKS) of
 TEXTOBJ
-                                      with
 (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ OSEL)))
-                           NIL)))
-                   (AND SELFN (APPLY* SELFN TEXTOBJ GLOBALSEL SELOPERATION 'FINAL))
+                                      (replace
 (TEXTOBJ CARETLOOKS) of
 TEXTOBJ
+                                         with
 (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ OSEL)))
+                              NIL)))
+                      (AND SELFN (APPLY* SELFN TEXTOBJ GLOBALSEL SELOPERATION 'FINAL))
                                                              (* ; 
 
                             "Give a user exit routine control, perhaps for logging of selections.")

-                   (for
 CARET inside
 (fetch
 (TEXTOBJ CARET) of
 TEXTOBJ)
-                      do
 (OR (fetch
 TCUP of
 CARET)
-                                 (\EDIT.FLIPCARET
 CARET T))))
-               (AND OSEL (fetch
 (SELECTION SET) of
 OSEL)
-                    (fetch
 (SELECTION SELOBJ) of
 OSEL)
-                    (SETQ SELFINALFN (IMAGEOBJPROP (fetch
 (SELECTION SELOBJ) of
 OSEL)
-                                            'WHENOPERATEDONFN))
-                    (APPLY* SELFINALFN (fetch
 (SELECTION SELOBJ) of
 OSEL)
-                           (WINDOWPROP W 'DSP)
-                           'SELECTED OSEL (fetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ])
+                      (for
 CARET inside
 (fetch
 (TEXTOBJ CARET) of
 TEXTOBJ)
+                         do
 (OR (fetch
 TCUP of
 CARET)
+                                    (\EDIT.FLIPCARET
 CARET T))))
+                  (AND OSEL (fetch
 (SELECTION SET) of
 OSEL)
+                       (fetch
 (SELECTION SELOBJ) of
 OSEL)
+                       (SETQ SELFINALFN (IMAGEOBJPROP (fetch
 (SELECTION SELOBJ) of
 OSEL)
+                                               'WHENOPERATEDONFN))
+                       (APPLY* SELFINALFN (fetch
 (SELECTION SELOBJ) of
 OSEL)
+                              (WINDOWPROP W 'DSP)
+                              'SELECTED OSEL (fetch
 (TEXTOBJ STREAMHINT) of
 TEXTOBJ])])
 
 (\TEDIT.WINDOW.OPS

   [LAMBDA (TEXTOBJ WINDOWTOSPLIT)
                        (* ; "Edited 30-May-91 23:33 by jds")

@@ -1578,36 +1588,36 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
 (DEFINEQ
 
 (TEXTSTREAM.TITLE

-  [LAMBDA (STREAM)
                                       (* ; "Edited 30-May-91 23:34 by jds")

+  [LAMBDA (STREAM)
                                      (* ; "Edited 24-Aug-2021 23:25 by rmk:")

 
-    (* ;; "returns a string with which you can talk to the user about this stream")

+    (* ;; "returns a string with which you can talk to the user about this stream")

 
     (PROG ((TEXTOBJ (TEXTOBJ STREAM))
            TXTFILE)
           (SETQ TXTFILE (fetch
 (TEXTOBJ TXTFILE) of
 TEXTOBJ))
           (RETURN (OR (CL:TYPECASE TXTFILE
                           (STRINGP TXTFILE)
-                          (STREAM (fetch
 FULLNAME of
 TXTFILE))
+                          (STREAM (fetch
 (STREAM FULLNAME) of
 TXTFILE))
                           (LITATOM TXTFILE)
                           (T TXTFILE))
                       ""])
 
 (\TEDIT.ORIGINAL.WINDOW.TITLE

-  [LAMBDA (FILE DIRTY?)
                                  (* ; "Edited 26-Apr-91 13:05 by jds")

+  [LAMBDA (FILE DIRTY?)
                                 (* ; "Edited 24-Aug-2021 23:25 by rmk:")

 
-    (* ;; "Given a file name, derive a title for the TEdit window that is editing it.")

+    (* ;; "Given a file name, derive a title for the TEdit window that is editing it.")

 
     (PROG (TITLE)
           (RETURN (COND
-                     ((NULL FILE)                            (* ; 
-
                                          "Just calling (TEDIT) should give a 'Text Editor Window'")

+                     ((NULL FILE)                            (* ; 
+
                                          "Just calling (TEDIT) should give a 'Text Editor Window'")

                       (CONCAT (COND
                                  (DIRTY? "* ")
                                  (T ""))
                              "Text Editor Window"))
                      ((AND (STRINGP FILE)
-                           (ZEROP (NCHARS FILE)))            (* ; 
-
                                                           "So should editing an empty string")

+                           (ZEROP (NCHARS FILE)))            (* ; 
+
                                                           "So should editing an empty string")

                       (CONCAT (COND
                                  (DIRTY? "* ")
                                  (T ""))
@@ -1615,19 +1625,19 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
                      ((WINDOWP FILE)
                       (COND
                          ((SETQ TITLE (WINDOWPROP FILE 'TITLE))
-                                                             (* ; 
-
                                              "if \TEDIT.WINDOW.SETUP has assigned a title, use it")

+                                                             (* ; 
+
                                              "if \TEDIT.WINDOW.SETUP has assigned a title, use it")

                           TITLE)
                          (T "Text Editor Window")))
-                     (T                                      (* ; 
-
                                "Strings use the string itself, otherwise grab the full file name.")

+                     (T                                      (* ; 
+
                                "Strings use the string itself, otherwise grab the full file name.")

                         (CONCAT (COND
                                    (DIRTY? "* ")
                                    (T ""))
                                "Edit Window for:  "
                                (CL:TYPECASE FILE
                                    (STRINGP FILE)
-                                   (STREAM (fetch
 FULLNAME of
 FILE))
+                                   (STREAM (fetch
 (STREAM FULLNAME) of
 FILE))
                                    (LITATOM FILE)
                                    (T FILE))])
 
@@ -1915,9 +1925,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
       ])
 
 (\TEDIT.SCROLLFN

-  [LAMBDA (W DX DY)
                                      (* ; "Edited 31-May-91 13:32 by jds")

+  [LAMBDA (W DX DY)
                                     (* ; "Edited 19-Sep-2021 23:10 by rmk:")

                                                              (* Handle scrolling of the edit 
 
                                                           window)

+    (TOTOPW W)
     (PROG* (WHEIGHT (TEXTOBJ (WINDOWPROP W 'TEXTOBJ))
                   (PRIORCR 0)
                   SELWASON SHIFTEDSELWASON MOVESELWASON DELETESELWASON (WREG (DSPCLIPPINGREGION
@@ -2817,27 +2828,27 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994,
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE
 (CONS TEDITICON (CONS TEDITMASK (CONS TEDIT.ICON.TITLE.REGION 
                                                                             NIL))))
 (PUTPROPS TEDITWINDOW COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987 1988 
-1989 1990 1991 1993 1994 1999))
+1989 1990 1991 1993 1994 1999 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7130 91759 (TEDIT.CREATEW 7140 . 8276) (\TEDIT.CREATEW.FROM.REGION 8278 . 9262) (
-TEDIT.CURSORMOVEDFN 9264 . 19916) (TEDIT.CURSOROUTFN 19918 . 20453) (TEDIT.WINDOW.SETUP 20455 . 22264)
- (TEDIT.MINIMAL.WINDOW.SETUP 22266 . 30055) (\TEDIT.ACTIVE.WINDOWP 30057 . 31038) (
-\TEDIT.BUTTONEVENTFN 31040 . 54735) (\TEDIT.WINDOW.OPS 54737 . 58540) (\TEDIT.EXPANDFN 58542 . 58945) 
-(\TEDIT.MAINW 58947 . 60236) (\TEDIT.PRIMARYW 60238 . 61450) (\TEDIT.COPYINSERTFN 61452 . 62423) (
-\TEDIT.NEWREGIONFN 62425 . 64892) (\TEDIT.SET.WINDOW.EXTENT 64894 . 70996) (\TEDIT.SHRINK.ICONCREATE 
-70998 . 73270) (\TEDIT.SHRINKFN 73272 . 73847) (\TEDIT.SPLITW 73849 . 79950) (\TEDIT.UNSPLITW 79952 . 
-85646) (\TEDIT.WINDOW.SETUP 85648 . 91368) (\SAFE.FIRST 91370 . 91757)) (92905 93812 (TEDITWINDOWP 
-92915 . 93810)) (93849 96345 (TEDIT.GETINPUT 93859 . 95842) (\TEDIT.MAKEFILENAME 95844 . 96343)) (
-96394 102845 (TEDIT.PROMPTPRINT 96404 . 99308) (TEDIT.PROMPTFLASH 99310 . 101265) (
-\TEDIT.PROMPT.PAGEFULLFN 101267 . 102843)) (103080 107120 (TEXTSTREAM.TITLE 103090 . 103700) (
-\TEDIT.ORIGINAL.WINDOW.TITLE 103702 . 105736) (\TEDIT.WINDOW.TITLE 105738 . 106408) (
-\TEXTSTREAM.FILENAME 106410 . 107118)) (107163 151887 (TEDIT.DEACTIVATE.WINDOW 107173 . 114322) (
-\TEDIT.REPAINTFN 114324 . 117181) (\TEDIT.RESHAPEFN 117183 . 122803) (\TEDIT.SCROLLFN 122805 . 151885)
-) (151929 153978 (\TEDIT.PROCIDLEFN 151939 . 153288) (\TEDIT.PROCENTRYFN 153290 . 153583) (
-\TEDIT.PROCEXITFN 153585 . 153976)) (154057 165057 (\EDIT.DOWNCARET 154067 . 154748) (\EDIT.FLIPCARET 
-154750 . 156285) (TEDIT.FLASHCARET 156287 . 157401) (\EDIT.UPCARET 157403 . 157856) (
-TEDIT.NORMALIZECARET 157858 . 163809) (\SETCARET 163811 . 164731) (\TEDIT.CARET 164733 . 165055)) (
-165091 178846 (TEDIT.ADD.MENUITEM 165101 . 167016) (TEDIT.DEFAULT.MENUFN 167018 . 176285) (
-TEDIT.REMOVE.MENUITEM 176287 . 177288) (\TEDIT.CREATEMENU 177290 . 177743) (\TEDIT.MENU.WHENHELDFN 
-177745 . 178515) (\TEDIT.MENU.WHENSELECTEDFN 178517 . 178844)))))
+  (FILEMAP (NIL (7117 93041 (TEDIT.CREATEW 7127 . 8263) (\TEDIT.CREATEW.FROM.REGION 8265 . 9249) (
+TEDIT.CURSORMOVEDFN 9251 . 19903) (TEDIT.CURSOROUTFN 19905 . 20440) (TEDIT.WINDOW.SETUP 20442 . 22251)
+ (TEDIT.MINIMAL.WINDOW.SETUP 22253 . 30042) (\TEDIT.ACTIVE.WINDOWP 30044 . 31025) (
+\TEDIT.BUTTONEVENTFN 31027 . 56017) (\TEDIT.WINDOW.OPS 56019 . 59822) (\TEDIT.EXPANDFN 59824 . 60227) 
+(\TEDIT.MAINW 60229 . 61518) (\TEDIT.PRIMARYW 61520 . 62732) (\TEDIT.COPYINSERTFN 62734 . 63705) (
+\TEDIT.NEWREGIONFN 63707 . 66174) (\TEDIT.SET.WINDOW.EXTENT 66176 . 72278) (\TEDIT.SHRINK.ICONCREATE 
+72280 . 74552) (\TEDIT.SHRINKFN 74554 . 75129) (\TEDIT.SPLITW 75131 . 81232) (\TEDIT.UNSPLITW 81234 . 
+86928) (\TEDIT.WINDOW.SETUP 86930 . 92650) (\SAFE.FIRST 92652 . 93039)) (94187 95094 (TEDITWINDOWP 
+94197 . 95092)) (95131 97627 (TEDIT.GETINPUT 95141 . 97124) (\TEDIT.MAKEFILENAME 97126 . 97625)) (
+97676 104127 (TEDIT.PROMPTPRINT 97686 . 100590) (TEDIT.PROMPTFLASH 100592 . 102547) (
+\TEDIT.PROMPT.PAGEFULLFN 102549 . 104125)) (104362 108424 (TEXTSTREAM.TITLE 104372 . 104993) (
+\TEDIT.ORIGINAL.WINDOW.TITLE 104995 . 107040) (\TEDIT.WINDOW.TITLE 107042 . 107712) (
+\TEXTSTREAM.FILENAME 107714 . 108422)) (108467 153208 (TEDIT.DEACTIVATE.WINDOW 108477 . 115626) (
+\TEDIT.REPAINTFN 115628 . 118485) (\TEDIT.RESHAPEFN 118487 . 124107) (\TEDIT.SCROLLFN 124109 . 153206)
+) (153250 155299 (\TEDIT.PROCIDLEFN 153260 . 154609) (\TEDIT.PROCENTRYFN 154611 . 154904) (
+\TEDIT.PROCEXITFN 154906 . 155297)) (155378 166378 (\EDIT.DOWNCARET 155388 . 156069) (\EDIT.FLIPCARET 
+156071 . 157606) (TEDIT.FLASHCARET 157608 . 158722) (\EDIT.UPCARET 158724 . 159177) (
+TEDIT.NORMALIZECARET 159179 . 165130) (\SETCARET 165132 . 166052) (\TEDIT.CARET 166054 . 166376)) (
+166412 180167 (TEDIT.ADD.MENUITEM 166422 . 168337) (TEDIT.DEFAULT.MENUFN 168339 . 177606) (
+TEDIT.REMOVE.MENUITEM 177608 . 178609) (\TEDIT.CREATEMENU 178611 . 179064) (\TEDIT.MENU.WHENHELDFN 
+179066 . 179836) (\TEDIT.MENU.WHENSELECTEDFN 179838 . 180165)))))
 STOP

lispusers/BACKGROUND-YIELD

@@ -0,0 +1,50 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "20-Sep-2021 11:37:28" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;3
 1644   
+
+      changes to%:  (FNS BACKGROUND-YIELD)
+                    (VARS BACKGROUND-YIELDCOMS)
+
+      previous date%: "19-Sep-2021 13:37:10" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;1)
+
+
+(PRETTYCOMPRINT BACKGROUND-YIELDCOMS)
+
+(RPAQQ BACKGROUND-YIELDCOMS
 (
+                                 (* ;; 
+
                               " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

+
+                                 (FNS BACKGROUND-YIELD INIT-YIELD)
+                                 (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-YIELD T)))
+                                 (VARS BACKGROUND-YIELD)))
+
+
+
+(* ;; " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

+
+(DEFINEQ
+
+(BACKGROUND-YIELD

+  [LAMBDA NIL
                                          (* ; "Edited 20-Sep-2021 11:37 by larry")

+    (IF
 (FIXP BACKGROUND-YIELD)
+        THEN
 (SUBRCALL YIELD BACKGROUND-YIELD)
+              (SUBRCALL CAUSE-INTERRUPT])
+
+(INIT-YIELD

+  [LAMBDA (ONP)
                                        (* ; "Edited 19-Sep-2021 13:32 by larry")

+    (SETQ BACKGROUNDFNS (REMOVE 'BACKGROUND-YIELD BACKGROUNDFNS))
+    (if
 [AND ONP (CCODEP (GETD 'BACKGROUND-YIELD]
+        then
 
+
+              (* ;; " add to end")

+
+              (SETQ BACKGROUNDFNS (APPEND BACKGROUNDFNS '(BACKGROUND-YIELD
])
+)
+(DECLARE%: DONTEVAL@LOAD DOCOPY 
+
+(INIT-YIELD
 T)
+)
+
+(RPAQQ BACKGROUND-YIELD
 8333330)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (879 1528 (BACKGROUND-YIELD 889 . 1144) (INIT-YIELD 1146 . 1526)))))
+STOP

lispusers/DICOLOR

@@ -1,446 +0,0 @@
-
(FILECREATED "15-Aug-85 19:44:58" {ERIS}<LISPCORE>LIBRARY>DICOLOR.;2
 15766  
-
-      changes to:  (VARS DICOLORCOMS)
-
-      previous date: " 9-Aug-85 05:58:26" {ERIS}<LISPCORE>LIBRARY>DICOLOR.;1)
-
-
-(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
-
-(PRETTYCOMPRINT DICOLORCOMS)
-
-(RPAQQ DICOLORCOMS
 ((FNS CNSMENUINIT CNSTOCSL CNSTORGB CSLTOCNS DICOLOR.FROM.USER GETCNS HLSTOCSL 
-			 CSLTOHLS RGBTOCNS)
-		    (VARS DICOLOR.hueMapping DICOLOR.lightnessMapping DICOLOR.saturationMapping 
-			  NEWCOLORITEM)
-		    (INITVARS (COLORNAMEMENU))
-		    (FNS DICOLOR.hueN DICOLOR.hueNvalue DICOLOR.hueNname DICOLOR.lightnessN 
-			 DICOLOR.lightnessNvalue DICOLOR.lightnessNname DICOLOR.saturationN 
-			 DICOLOR.saturationNvalue DICOLOR.saturationNname)
-		    (DECLARE: DONTCOPY (*)
-			      (RECORDS hueRecord lightnessRecord saturationRecord)
-			      (CONSTANTS * DICOLOR.hueConstants)
-			      (CONSTANTS * DICOLOR.saturationConstants)
-			      (CONSTANTS * DICOLOR.lightnessConstants))))
-(DEFINEQ
-
-(CNSMENUINIT

-  [LAMBDA NIL                                                (* gbn " 9-Aug-85 03:11")

-    [
SETQ
 CNSHUEMENU (create
 MENU
-			     ITEMS _(for
 I in
 DICOLOR.hueMapping collect
 (
CAR
 I]
-    [
SETQ
 CNSSATURATIONMENU (create
 MENU
-				    ITEMS _(for
 I in
 DICOLOR.saturationMapping collect
 (
CAR
 I]
-    (
SETQ
 CNSLIGHTNESSMENU (create
 MENU
-				   ITEMS _(for
 I in
 DICOLOR.lightnessMapping collect
 (
CAR
 I])
-
-(CNSTOCSL

-  [LAMBDA (hue saturation lightness)                         (* hdj "12-Apr-85 19:01")

-    (
PROG
 ((hueAtom (
MKATOM
 hue))
-	   (saturationAtom (
MKATOM
 saturation))
-	   (lightnessAtom (
MKATOM
 lightness))
-	   c s l)
-          (if
 [
NOT
 (
SETQ
 c (fetch
 (hueRecord ordering) of
 (
ASSOC
 hueAtom DICOLOR.hueMapping]
-	      then
 (
SETQ
 c DICOLOR.achromatic))
-          (if
 (
EQ
 c DICOLOR.achromatic)
-	      then
 (
SETQ
 s DICOLOR.noSaturation)
-	    else
 (if
 [
NOT
 (
SETQ
 s (fetch
 (saturationRecord ordering) of
 (
ASSOC
 saturationAtom 
-									DICOLOR.saturationMapping]
-		     then
 (
SETQ
 s DICOLOR.vivid)))
-          (
SELECTQ
 hueAtom
-		   (Black (
SETQ
 l DICOLOR.black))
-		   (White (
SETQ
 l DICOLOR.white))
-		   (if
 [
NOT
 (
SETQ
 l (fetch
 (lightnessRecord ordering) of
 (
ASSOC
 lightnessAtom 
-									 DICOLOR.lightnessMapping]
-		       then
 (
SETQ
 l DICOLOR.medium)))
-          (
RETURN
 (
LIST
 c s l])
-
-(CNSTORGB

-  [LAMBDA (saturation lightness hue)                         (* hdj "15-Jul-85 12:33")

-    (LET ((CSL (CNSTOCSL
 hue saturation lightness)))
-         (
HLSTORGB
 (
APPLY
 (
FUNCTION
 CSLTOHLS)
-			  CSL])
-
-(CSLTOCNS

-  [LAMBDA (c s l)                                            (* hdj "15-Jul-85 12:37")

-    (
PROG
 (hue saturation lightness)
-          [if
 (
EQ
 c DICOLOR.achromatic)
-	      then
 (
SETQ
 saturation "")
-		   [
SELECTC
 l
-			    (DICOLOR.black (
SETQ
 hue "Black")
-					   (
SETQ
 lightness ""))
-			    (DICOLOR.white (
SETQ
 hue "White")
-					   (
SETQ
 lightness ""))
-			    (
PROGN
 (
SETQ
 hue "Gray")
-				   (
SETQ
 lightness (
MKSTRING
 (fetch
 (lightnessRecord name)
-								of
 (DICOLOR.lightnessN
 l]
-	    else
 (
SETQ
 hue (fetch
 (hueRecord name) of
 (DICOLOR.hueN
 c)))
-		 (
SETQ
 saturation (fetch
 (saturationRecord name) of
 (DICOLOR.saturationN
 s)))
-		 (
SETQ
 lightness (fetch
 (lightnessRecord name) of
 (DICOLOR.lightnessN
 l]
-          (
RETURN
 (
LIST
 saturation lightness hue])
-
-(DICOLOR.FROM.USER

-  [LAMBDA (NAMES?)                                           (* gbn " 9-Aug-85 04:51")

-
-          (* * returns an RGB triple. If NAMES? prompts the user first with the global color name menu.

-	  She can then choose NEWCOLOR which can be specified as RGB or CNS)

-
-
-    (
PROG
 (NAME RGB)
-          (if
 NAMES?
-	      then
                                           (* first try to get a color name)

-		   [
SETQ
 NAME (
MENU
 (
OR
 COLORNAMEMENU (
SETQ
 COLORNAMEMENU
-					  (CREATE
 MENU
-						  ITEMS _(
CONS
 NEWCOLORITEM
-							       (FOR
 ENTRY IN
 COLORNAMES
-								  COLLECT
 (
CAR
 ENTRY]
-		   (if
 (
NOT
 NAME)
-		       then
                                  (* the user clicked outside the menu)

-			    (
RETURN
))
-		   [
SETQ
 RGB (
SELECTQ
 NAME
-				      (RGB (
READCOLOR1
 "specify new color"))
-				      (CNS (
APPLY
 (
FUNCTION
 CNSTORGB)
-						  (GETCNS
)))
-				      (
RETURN
 (
CDR
 (
ASSOC
 NAME COLORNAMES]
-		   (if
 (
NOT
 (
SETQ
 NAME (
TTYIN
 "New color name? ")))
-		       then
                                  (* user must have decided that she didn't want to keep 

-							     (name) the color)

-			    (
RETURN
))
-		   (push
 COLORNAMES (
CONS
 (
CAR
 NAME)
-					  RGB))
-		   (
SETQ
 COLORNAMEMENU NIL)                  (* invalidate the menu)

-		   (
RETURN
 RGB])
-
-(GETCNS

-  [LAMBDA NIL                                                (* gbn " 9-Aug-85 03:13")

-    (
LIST
 (
MENU
 CNSLIGHTNESSMENU)
-	  (
MENU
 CNSSATURATIONMENU)
-	  (
MENU
 CNSHUEMENU])
-
-(HLSTOCSL

-  [LAMBDA (hue lightness saturation)                         (* hdj "15-Jul-85 12:14")

-    (LET ((ISLHue (
FQUOTIENT
 (MOD (
PLUS
 hue 240)
-				  360)
-			     360)))
-         (
PROG
 (c s l)
-	       (for
 old
 s from
 DICOLOR.noSaturation to
 DICOLOR.vivid
-		  do
 (if
 (
EQ
 s DICOLOR.vivid)
-			 then
 (
RETURN
))
-		     (if
 (
LEQ
 saturation (
PLUS
 (DICOLOR.saturationNvalue
 s)
-					       (
QUOTIENT
 (
DIFFERENCE
 (DICOLOR.saturationNvalue

-								       (
ADD1
 s))
-								     (DICOLOR.saturationNvalue
 s))
-							 2)))
-			 then
 (
RETURN
)))
-	       [if
 (
EQ
 s DICOLOR.noSaturation)
-		   then
 (
SETQ
 c DICOLOR.achromatic)
-			(for
 old
 l from
 DICOLOR.black to
 DICOLOR.white
-			   do
 (if
 (
EQ
 l DICOLOR.white)
-				  then
 (
RETURN
))
-			      (if
 (
LEQ
 lightness (
PLUS
 (DICOLOR.lightnessNvalue
 l)
-						       (
QUOTIENT
 (
DIFFERENCE
 (DICOLOR.lightnessNvalue

-									       (
ADD1
 l))
-									     (DICOLOR.lightnessNvalue

-									       l))
-								 2)))
-				  then
 (
RETURN
)))
-		 else
 (for
 old
 c from
 DICOLOR.red to
 DICOLOR.purplishRed
-			 do
                                  (* (HELP c))

-			    (if
 (
EQ
 c DICOLOR.purplishRed)
-				then
 (if
 (
GREATERP
 ISLHue (
PLUS
 (DICOLOR.hueNvalue
 c)
-								(
QUOTIENT
 (
DIFFERENCE
 1 (

-										DICOLOR.hueNvalue

-											c))
-									  2)))
-					 then
 (
SETQ
 c DICOLOR.red))
-				     (
RETURN
))
-			    (if
 (
LEQ
 ISLHue (
PLUS
 (DICOLOR.hueNvalue
 c)
-						  (
QUOTIENT
 (
DIFFERENCE
 (DICOLOR.hueNvalue

-									  (
ADD1
 c))
-									(DICOLOR.hueNvalue
 c))
-							    2)))
-				then
 (
RETURN
)))
-		      (for
 old
 l from
 DICOLOR.veryDark to
 DICOLOR.veryLight
-			 do
 (if
 (
EQ
 l DICOLOR.veryLight)
-				then
 (
RETURN
))
-			    (if
 (
LEQ
 lightness (
PLUS
 (DICOLOR.lightnessNvalue
 l)
-						     (
QUOTIENT
 (
DIFFERENCE
 (DICOLOR.lightnessNvalue

-									     (
ADD1
 l))
-									   (DICOLOR.lightnessNvalue

-									     l))
-							       2)))
-				then
 (
RETURN
]
-	       (
RETURN
 (
LIST
 c s l])
-
-(CSLTOHLS

-  [LAMBDA (c s l)                                            (* hdj "15-Jul-85 12:23")

-    (
PROG
 (hue saturation lightness)
-          (if
 (
EQ
 c DICOLOR.achromatic)
-	      then
 (
SETQ
 hue 0.0)
-		   (
SETQ
 saturation 0.0)
-		   (
SETQ
 lightness (DICOLOR.lightnessNvalue
 l))
-	    else
 (
SETQ
 hue (DICOLOR.hueNvalue
 c))
-		 (
SETQ
 saturation (DICOLOR.saturationNvalue
 s))
-		 (
SETQ
 lightness (DICOLOR.lightnessNvalue
 l)))
-          (
RETURN
 (
LIST
 (MOD (
FPLUS
 120 (
FTIMES
 hue 360))
-			     360)
-			lightness saturation])
-
-(RGBTOCNS

-  [LAMBDA (Red Green Blue)                                   (* hdj "15-Jul-85 12:36")

-    (
APPLY
 (
FUNCTION
 CSLTOCNS)
-	   (
APPLY
 (
FUNCTION
 HLSTOCSL)
-		  (
RGBTOHLS
 Red Green Blue])
-)
-
-(RPAQQ DICOLOR.hueMapping
 ((Achromatic 0.0 -1)
-			   (Red 0.0 0)
-			   (OrangishRed .01 1)
-			   (RedOrange .02 2)
-			   (ReddishOrange .03 3)
-			   (Orange .04 4)
-			   (YellowishOrange .07 5)
-			   (OrangeYellow .1 6)
-			   (OrangishYellow .13 7)
-			   (Yellow .1673 8)
-			   (GreenishYellow .2073 9)
-			   (YellowGreen .2473 10)
-			   (YellowishGreen .2873 11)
-			   (Green .3333 12)
-			   (BluishGreen .4133 13)
-			   (GreenBlue .4933 14)
-			   (GreenishBlue .5733 15)
-			   (Blue .6666 16)
-			   (PurplishBlue .6816 17)
-			   (BluePurple .6966 18)
-			   (BluishPurple .7116 19)
-			   (Purple .73 20)
-			   (ReddishPurple .8 21)
-			   (PurpleRed .87 22)
-			   (PurplishRed .94 23)
-			   (BrownishRed .01 24)
-			   (RedBrown .02 25)
-			   (ReddishBrown .03 26)
-			   (Brown .04 27)
-			   (YellowishBrown .07 28)
-			   (BrownYellow .1 29)
-			   (BrownishYellow .13 30)))
-
-(RPAQQ DICOLOR.lightnessMapping
 ((Black 0.0 0)
-				 (VeryDark .1666 1)
-				 (Dark .3333 2)
-				 (Medium .5 3)
-				 (Light .6666 4)
-				 (VeryLight .8333 5)
-				 (White 1.0 6)))
-
-(RPAQQ DICOLOR.saturationMapping
 ((NoSaturation 0.0 0)
-				  (Grayish .25 1)
-				  (Moderate .5 2)
-				  (Strong .75 3)
-				  (Vivid 1.0 4)))
-
-(RPAQQ NEWCOLORITEM
 (New% Color (QUOTE CNS)
-				"Allows specification of a new color"
-				(SUBITEMS (RGB (QUOTE RGB)
-					       "Specify a new color using Red, Green, Blue sliders")
-					  (CNS (QUOTE CNS)
-					       "Specify a new color using English"))))
-
-(RPAQ? COLORNAMEMENU
 )
-(DEFINEQ
-
-(DICOLOR.hueN

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 13:38")

-    (DECLARE
 (
GLOBALVARS
 DICOLOR.hueMapping))
-    (for
 ELT in
 DICOLOR.hueMapping suchthat
 (
EQ
 (fetch
 (hueRecord ordering) of
 ELT)
-						N])
-
-(DICOLOR.hueNvalue

-  [LAMBDA (N)                                                (* hdj "18-Apr-85 09:58")

-    (fetch
 (hueRecord value) of
 (DICOLOR.hueN
 N])
-
-(DICOLOR.hueNname

-  [LAMBDA (N)                                                (* hdj "18-Apr-85 10:07")

-    (fetch
 (hueRecord name) of
 (DICOLOR.hueN
 N])
-
-(DICOLOR.lightnessN

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 13:40")

-    (DECLARE
 (
GLOBALVARS
 DICOLOR.lightnessMapping))
-    (for
 ELT in
 DICOLOR.lightnessMapping suchthat
 (
EQ
 (fetch
 (lightnessRecord ordering) of
 ELT)
-						      N])
-
-(DICOLOR.lightnessNvalue

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 13:36")

-    (fetch
 (lightnessRecord value) of
 (DICOLOR.lightnessN
 N])
-
-(DICOLOR.lightnessNname

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 14:02")

-    (fetch
 (lightnessRecord name) of
 (DICOLOR.lightnessN
 N])
-
-(DICOLOR.saturationN

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 13:39")

-    (DECLARE
 (
GLOBALVARS
 DICOLOR.saturationMapping))
-    (for
 ELT in
 DICOLOR.saturationMapping suchthat
 (
EQ
 (fetch
 (saturationRecord ordering)
-							  of
 ELT)
-						       N])
-
-(DICOLOR.saturationNvalue

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 13:36")

-    (fetch
 (saturationRecord value) of
 (DICOLOR.saturationN
 N])
-
-(DICOLOR.saturationNname

-  [LAMBDA (N)                                                (* hdj "17-Apr-85 14:02")

-    (fetch
 (saturationRecord name) of
 (DICOLOR.saturationN
 N])
-)
-(DECLARE: DONTCOPY 
-[DECLARE: EVAL@COMPILE 
-
-(RECORD hueRecord
 (name value ordering))
-
-(RECORD lightnessRecord
 (name value ordering))
-
-(RECORD saturationRecord
 (name value ordering))
-]
-
-
-(RPAQQ DICOLOR.hueConstants
 (DICOLOR.achromatic DICOLOR.blue DICOLOR.bluePurple DICOLOR.bluishGreen 
-						DICOLOR.bluishPurple DICOLOR.brown 
-						DICOLOR.brownYellow DICOLOR.brownishRed 
-						DICOLOR.brownishYellow DICOLOR.green 
-						DICOLOR.greenBlue DICOLOR.greenishBlue 
-						DICOLOR.greenishYellow DICOLOR.orange 
-						DICOLOR.orangeYellow DICOLOR.orangishRed 
-						DICOLOR.orangishYellow DICOLOR.purple 
-						DICOLOR.purpleRed DICOLOR.purplishBlue 
-						DICOLOR.purplishRed DICOLOR.red DICOLOR.redBrown 
-						DICOLOR.redOrange DICOLOR.reddishBrown 
-						DICOLOR.reddishOrange DICOLOR.reddishPurple 
-						DICOLOR.yellow DICOLOR.yellowGreen 
-						DICOLOR.yellowishBrown DICOLOR.yellowishGreen 
-						DICOLOR.yellowishOrange))
-(DECLARE: EVAL@COMPILE 
-
-(RPAQQ DICOLOR.achromatic
 -1)
-
-(RPAQQ DICOLOR.blue
 16)
-
-(RPAQQ DICOLOR.bluePurple
 18)
-
-(RPAQQ DICOLOR.bluishGreen
 13)
-
-(RPAQQ DICOLOR.bluishPurple
 19)
-
-(RPAQQ DICOLOR.brown
 27)
-
-(RPAQQ DICOLOR.brownYellow
 29)
-
-(RPAQQ DICOLOR.brownishRed
 24)
-
-(RPAQQ DICOLOR.brownishYellow
 30)
-
-(RPAQQ DICOLOR.green
 12)
-
-(RPAQQ DICOLOR.greenBlue
 14)
-
-(RPAQQ DICOLOR.greenishBlue
 15)
-
-(RPAQQ DICOLOR.greenishYellow
 9)
-
-(RPAQQ DICOLOR.orange
 4)
-
-(RPAQQ DICOLOR.orangeYellow
 6)
-
-(RPAQQ DICOLOR.orangishRed
 1)
-
-(RPAQQ DICOLOR.orangishYellow
 7)
-
-(RPAQQ DICOLOR.purple
 20)
-
-(RPAQQ DICOLOR.purpleRed
 22)
-
-(RPAQQ DICOLOR.purplishBlue
 17)
-
-(RPAQQ DICOLOR.purplishRed
 23)
-
-(RPAQQ DICOLOR.red
 0)
-
-(RPAQQ DICOLOR.redBrown
 25)
-
-(RPAQQ DICOLOR.redOrange
 2)
-
-(RPAQQ DICOLOR.reddishBrown
 26)
-
-(RPAQQ DICOLOR.reddishOrange
 3)
-
-(RPAQQ DICOLOR.reddishPurple
 21)
-
-(RPAQQ DICOLOR.yellow
 8)
-
-(RPAQQ DICOLOR.yellowGreen
 10)
-
-(RPAQQ DICOLOR.yellowishBrown
 28)
-
-(RPAQQ DICOLOR.yellowishGreen
 11)
-
-(RPAQQ DICOLOR.yellowishOrange
 5)
-
-(CONSTANTS DICOLOR.achromatic DICOLOR.blue DICOLOR.bluePurple DICOLOR.bluishGreen 
-	   DICOLOR.bluishPurple DICOLOR.brown DICOLOR.brownYellow DICOLOR.brownishRed 
-	   DICOLOR.brownishYellow DICOLOR.green DICOLOR.greenBlue DICOLOR.greenishBlue 
-	   DICOLOR.greenishYellow DICOLOR.orange DICOLOR.orangeYellow DICOLOR.orangishRed 
-	   DICOLOR.orangishYellow DICOLOR.purple DICOLOR.purpleRed DICOLOR.purplishBlue 
-	   DICOLOR.purplishRed DICOLOR.red DICOLOR.redBrown DICOLOR.redOrange DICOLOR.reddishBrown 
-	   DICOLOR.reddishOrange DICOLOR.reddishPurple DICOLOR.yellow DICOLOR.yellowGreen 
-	   DICOLOR.yellowishBrown DICOLOR.yellowishGreen DICOLOR.yellowishOrange)
-)
-
-
-(RPAQQ DICOLOR.saturationConstants
 (DICOLOR.noSaturation DICOLOR.grayish DICOLOR.moderate 
-							 DICOLOR.strong DICOLOR.vivid))
-(DECLARE: EVAL@COMPILE 
-
-(RPAQQ DICOLOR.noSaturation
 0)
-
-(RPAQQ DICOLOR.grayish
 1)
-
-(RPAQQ DICOLOR.moderate
 2)
-
-(RPAQQ DICOLOR.strong
 3)
-
-(RPAQQ DICOLOR.vivid
 4)
-
-(CONSTANTS DICOLOR.noSaturation DICOLOR.grayish DICOLOR.moderate DICOLOR.strong DICOLOR.vivid)
-)
-
-
-(RPAQQ DICOLOR.lightnessConstants
 (DICOLOR.black DICOLOR.veryDark DICOLOR.dark DICOLOR.medium 
-						 DICOLOR.light DICOLOR.veryLight DICOLOR.white))
-(DECLARE: EVAL@COMPILE 
-
-(RPAQQ DICOLOR.black
 0)
-
-(RPAQQ DICOLOR.veryDark
 1)
-
-(RPAQQ DICOLOR.dark
 2)
-
-(RPAQQ DICOLOR.medium
 3)
-
-(RPAQQ DICOLOR.light
 4)
-
-(RPAQQ DICOLOR.veryLight
 5)
-
-(RPAQQ DICOLOR.white
 6)
-
-(CONSTANTS DICOLOR.black DICOLOR.veryDark DICOLOR.dark DICOLOR.medium DICOLOR.light DICOLOR.veryLight 
-	   DICOLOR.white)
-)
-)
-(PUTPROPS DICOLOR COPYRIGHT ("Xerox Corporation" 1985))
-(DECLARE: DONTCOPY
-  (FILEMAP (NIL (1005 8438 (CNSMENUINIT 1015 . 1502) (CNSTOCSL 1504 . 2550) (CNSTORGB 2552 . 2782) (
-CSLTOCNS 2784 . 3683) (DICOLOR.FROM.USER 3685 . 5118) (GETCNS 5120 . 5322) (HLSTOCSL 5324 . 7615) (
-CSLTOHLS 7617 . 8217) (RGBTOCNS 8219 . 8436)) (9938 12002 (DICOLOR.hueN 9948 . 10228) (
-DICOLOR.hueNvalue 10230 . 10405) (DICOLOR.hueNname 10407 . 10580) (DICOLOR.lightnessN 10582 . 10892) (
-DICOLOR.lightnessNvalue 10894 . 11087) (DICOLOR.lightnessNname 11089 . 11280) (DICOLOR.saturationN 
-11282 . 11606) (DICOLOR.saturationNvalue 11608 . 11804) (DICOLOR.saturationNname 11806 . 12000)))))
-STOP

lispusers/POSTSCRIPT/PS-RS232

@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

lispusers/POSTSCRIPT/PS-TTY

@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

loadups/full.database.dribble

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

loadups/full.dribble

@@ -1,318 +0,0 @@
-
-Full loadup started at 19-Aug-2021 12:07:27 while connected to 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>
-
-loading POSTSCRIPTSTREAM
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;11
-compiled on 21-Jun-2021 20:29:51
-File created 21-Jun-2021 20:29:32
-POSTSCRIPTSTREAMCOMS
-Loading FULL fonts...
-  Loading CLASSIC 8 10 12 
-  Loading MODERN 8 10 12 
-  Loading TERMINAL 8 10 12 
-  Loading postscript fonts
-FULL fonts loaded
-loading CHAT
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;2
-compiled on 13-Jun-2021 22:04:59
-File created 20-Jan-93 13:46:52
-CHATCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-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
-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;9
-compiled on 27-Jun-2021 23:51:06
-File created 27-Jun-2021 23:50:51
-INTERPRESSCOMS
-loading TEDIT
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-compiled on 30-Apr-2021 17:26:58
-File created 30-Apr-2021 17:26:17
-TEDITDCLCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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;2
-compiled on 14-Jun-2021 23:30:39
-File created  6-May-2021 10:18:06
-TEXTOFDCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-compiled on 30-Apr-2021 14:42:15
-File created 30-Apr-2021 14:42:15
-TEDITSCREENCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1
-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
-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
-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
-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;2
-compiled on 12-Jun-2021 12:03:35
-File created 30-Apr-2021 14:46:41
-TEDITFILECOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-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
-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
-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
-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;2
-compiled on 13-Jun-2021 09:46:34
-File created 13-Jun-2021 09:46:34
-TFBRAVOCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;3
-compiled on 28-Jun-2021 12:35:45
-File created 28-Jun-2021 12:35:45
-TEDITHCPYCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-compiled on 29-Apr-2021 22:44:22
-File created 29-Apr-2021 22:44:22
-TEDITMENUCOMS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;3
-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
-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
-compiled on 18-May-2018 09:16:55
-File created 28-Mar-94 16:05:24
-IL:TEDITCHATCOMS
-loading READNUMBER
-loading EDITBITMAP
-loading FILEBROWSER
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;6
-compiled on  9-Jul-2021 23:09:57
-File created  9-Jul-2021 23:09:57
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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;4
-compiled on  8-Aug-2021 15:05:08
-File created  8-Aug-2021 15:05:08
-THINFILESCOMS
-loading GRAPHER
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-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
-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
-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;1
-XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
-Source file created 11-Jun-90 14:33:44
-FASL file created Saturday, 19 September 2020, 22:04:31
-
-loading COPYFILES
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-XCL Compiler output for source file {DSK}<home>larry>medley>library>MSANALYZE.;5
-Source file created 18-Aug-2021 12:13:11
-FASL file created Wednesday, 18 August 2021, 12:13:11
-
-loading MSPARSE
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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;5
-XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6
-Source file created 13-Jun-2021 09:05:17
-FASL file created Sunday, 13 June 2021, 9:05:17
-
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-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
-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;43
-compiled on  8-Aug-2021 13:10:17
-File created  8-Aug-2021 13:10:17
-UNICODECOMS
-loading ISO8859IO
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;23
-compiled on  8-Aug-2021 13:22:32
-File created  8-Aug-2021 13:22:31
-ISO8859IOCOMS
-loading HELPSYS
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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;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
-compiled on 26-Feb-93 11:22:10
-File created 11-Jun-90 16:23:11
-HASHCOMS
-
-Reading IRM graph...OK.loading DINFO
-loading CLIPBOARD
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;6
-compiled on  3-Jul-2021 13:16:26
-File created  3-Jul-2021 13:16:26
-CLIPBOARDCOMS
-loading MODERNIZE
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;16
-compiled on  8-Jul-2021 23:33:42
-File created  8-Jul-2021 23:33:42
-MODERNIZECOMS
-loading PRETTYFILEINDEX
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;6
-compiled on  9-Jul-2021 21:55:15
-File created  9-Jul-2021 21:55:15
-PRETTYFILEINDEXCOMS
-loading WHO-LINE
-
-{DSK}<Users>kaplan>Local>medley3.5>git-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
-
-loading UNIXCOMM
-loading UNIXCHAT
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.LCOM;1
-compiled on 21-Jan-93 18:45:15
-File created 15-Aug-90 11:05:53
-UNIXCHATCOMS

loadups/whereis.dribble

@@ -1,784 +0,0 @@
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AARITH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ACODE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADDARITH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADIR.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;10 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADVISE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AERROR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APUTDQ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ARGLIST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASTACK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;20 .
-Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODEMASKS IL:READMACROCONTEXTS IL:READCLASSES IL:READMACROWAKEUPS IL:READMACROESCAPES) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;20.
-.. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;59 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BRKDWN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CL-ERROR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLEARINGHOUSE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISPIFY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLOSURE-CACHE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDESTRUCT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDOC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLENVIRONMENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEVAL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEXEC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFILESYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFLOAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFORMAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLHASH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLIST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMVS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPATHNAME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRED.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLRAND.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;17 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQFINDER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSETF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSYMBOL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTYPES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLUNDO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLWALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPARE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPATIBILITY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILER-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-IL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COROUTINE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COURIER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGGER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFPACKAGE-IMPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKDLION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKVMEMDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DLAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DMISC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DOVEDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DOVEETHERDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDITINTERFACE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME-AFTER-FASL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EXEC-COMMANDS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASDUMP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-SUPPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;88 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILEPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FREEMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HIST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ICONW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IDLER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;10 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT-CLOSURE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;18 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARITH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARRAYELT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBASIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBFS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCODE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLERROR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLINTERP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLMVS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNSDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;90 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLRESTART.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSTK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-LISP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOGOW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;24 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX-OPTIMIZERS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1 .Warning: Couldn't find IL:MAIKOINITCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MEM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MISC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MOD44IO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MODARITH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;12 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PAINTW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PMAP.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>POSTLOADUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;19 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>READSYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RECORD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RESOURCE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-CONVERT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DEBUG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-EXPORTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-INDENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LINEAR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LIST-FORMATS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPPDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>STACKFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TCPHTE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TRSERVER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;13 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNDO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VMEM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WALKER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WRAPPERS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WTFIX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;49 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ALPHA.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANALYZE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANNOTATE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-DATABASE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ENV-CTXT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-GENCODE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-META-EVAL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>BROWSER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARCODETABLES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARDEVICE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATSERVER-EMACS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CMLFLOATARRAY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:DANDELIONKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DATABASEFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDITPP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:DORADOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOSPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:DOVEKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVERS232C.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>ETHERRECORDS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILE-UPDATE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FONTSAMPLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FOREIGN-FUNCTIONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FX-80DRIVER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GCHAX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHZOOM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDCONFIGS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LLCOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LOAD-SKETCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOCOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;1 .Warning: Error attempting to LOADVARS (IL:MAIKOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATMULT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSMAINTAIN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>patches> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>patches>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>RDSYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>REMOTEVMEM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SCALEBITMAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;1 .Warning: Error attempting to LOADVARS (IL:SEDIT-COMMONLISPCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHBMELT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOBJ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOPS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHSTREAM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SYSEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSERDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TBDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TELERAID.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXEC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.;1 .
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.DFASL;1
-XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>SEDIT-COMMONLISP.;1
-Source file created  4-Jan-2021 22:52:01
-FASL file created Wednesday, 5 May 2021, 10:37:50
-
-
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.DFASL;1
-XCL Compiler output for source file {DSK}<king>export>lispcore>library>TEXTMODULES.;1
-Source file created Wednesday, 16 January 1991, 9:07:18.
-FASL file created Tuesday, 12 July 1994, 12:31:02.
-
-.. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TTYCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;192 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXTELNET.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VIRTUALKEYBOARDS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VT100KP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VTCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACCESS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACE> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACE>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ADDRESSBOOK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS-DEMO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AISBLT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ANALYZER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVEBROWSER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVETOOL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARMODES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>autosamedir.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AUXMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDIMAGES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BICLOCK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BIGGER-FONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BITMAP-GALLERY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>bitmapfns.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLACKBOX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;1 .Warning: Couldn't find IL:BLOCKS-HKBCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BMENCODE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BOYERMOORE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BRKDWNREPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>bsearch.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BUTTONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>C150STREAM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CALENDAR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>canvasconverter.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATEMACS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-NS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-RS232.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-TCP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>checkset.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>circlprint.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CL-TTYEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORDEMO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORNNCC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLOROBJ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORPOLYGONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMENTHACKS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMON-MAKE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMWINDOW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARE-PATHS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>comparetext.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>compilebang.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERDEFS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIEREVALSERVE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERIMAGESTREAM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVEPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CROCK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO4096.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATATYPESPLUS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATEFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATEFORMAT-EDITOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATESORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEBUGGER-CONTEXT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DECL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEDITHARDCOPY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTICON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTSUBITEMFN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFINERPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIALPHONE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;1 .Warning: Error attempting to LOADVARS (IL:DICT-WINDOW-TYPESCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGI-CLOCK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIRGRAPHER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DLIONFNKEYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>document.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>donz.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DORADOCOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DPUPFTPPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DSPSCALE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>dumper.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DUMPLOAD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITBG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITKEYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ENDNOTE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONFORMS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ETHERBOOT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EYECON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FASTEDITBM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILECACHE-FIX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FileCacheMsgWindow.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILENAMES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILEWATCH.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILLREGION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FIND-CITATION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FINGER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FM-CREATOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FONTDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FONTSAMPLER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FORMACRO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FTPSERVERPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;1 .Warning: Error attempting to LOADVARS (IL:GENERIC-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GRAPHCALLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GraphGroup.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GREP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GRID-ICONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;1 .Warning: Couldn't find IL:H-ENVCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;1 .Warning: Couldn't find IL:H-LOADCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;1 .Warning: Couldn't find IL:H-PATCHESCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;1 .Warning: Couldn't find IL:H-SOURCECOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HANOI.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HARDCOPY-RETAIN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HASHBUFFER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HASHDATUM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HEADLINE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HGRAPH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HISTMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HOSTUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HPGL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-INIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-LOG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDEASKETCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLEDRAIN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLEHAX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLESWAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>INDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>INSPECTCODE-TEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IPTALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISCONSTANTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISDEMOFNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISIO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISLIB.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISNET.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISSTREAM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISVIEW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;19 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KEYOBJ.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KINETIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KOTOLOGO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LABEL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITE-INDENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEABBREV.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEPRIVATEDL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITETIMEDDELETE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAMBDATRAN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAYOUT-SEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LIFE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADIRIS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADMENUITEMS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-DEVEL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-UNIFIER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOOKUPINFILES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LUPINE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACWINDOW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAGNIFIER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAILSHARE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAKEGRAPH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MANAGER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MANDELBROT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATHSERVER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>mathserverplot.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATHTONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATRIXOPS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MESATOLISP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MICROTEK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MICROTEKPRINT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MISSILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;16 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MONITOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MTP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MULTIPLE-HARDCOPY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NEATICONS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NGROUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTECARDS-4045XLPPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD-CORESTYLES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOVAFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSALLOCATION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSCOPYFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSREADERPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSROUTINGHASH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALKGAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTHASIZE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>OSS-LYRIC-PATCHES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PAC-MAN-IDLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PACKED-STRUCTURE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PACMAN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PAGEHOLD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PARSER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PARSERG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PATCH-LARGEIPBITMAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PATCH-TWOSIDED.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PCMEMTEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PHONE-DIRECTORY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIECE-MENUS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIXELBLT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAINTEXTSTREAM.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTANDNC-PATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTBOXPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTEXAMPLES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTINSKETCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS1.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS2.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PORT-CLFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PP-CODE-FILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PREEMPTIVE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRESSFROMNS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRINTERMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROGRAMCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROMPTREMINDERS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROOFREADER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-PATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-RS232.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-SEND.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-SKETCH-PATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-TTY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PSCFONT-FIX-FILENAME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QIX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAIS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAPPLEFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READBRUSH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDATATYPE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDISPLAYFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READEBCDIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REGION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REGISTER-MACHINE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REMOTEPSW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCCOMMON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCLOWLEVEL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCOS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCPORTMAPPER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCRPC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCSTRUCT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCXDR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RS232CNETWORK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SCREENPAPER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEARCHMENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-MENU-ALWAYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PATCHES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PROFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SFFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SHOWTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLECHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLIFY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SINGLEFILEINDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SKETCHCOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SKETCHTALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SNAPW-ICON.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SOLID-MOVEW.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SOLITAIRE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STARBG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STEP-COMMAND-MENU.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STORAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STREAMDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STYLESHEET.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SUPERPARENTHESES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SYSTATS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TALKGAP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TCPTIME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-LINE-NUMBERING.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tedit-process-killer.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITTALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010CHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TILED-SEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tkdorado.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-XREF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tmenu.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRAJECTORY-FOLLOWER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1 .Warning: Couldn't find IL:TRANSOR-LOADTRANCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRICKLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TSET.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TTYTALK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TURBO-WINDOWS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TWODGRAPHICS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNBOXEDOPS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNDIGESTIFY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNIFIER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UPCSTATS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UTILISOPRS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UUENCODE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;1 .Warning: Error attempting to LOADVARS (IL:VANILLA-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VSTATS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WALKFILES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHOCALLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WINK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WORDNERD.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XCL-BRIDGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XORCURSORPATCH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XREF.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ABC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARCLEANUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>AREDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARHACK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARINDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARQUERY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1 .Warning: Error attempting to LOADVARS (IL:ARREPORT-TESTCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARSREPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CALENDARHACKS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CHANGECONTROL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>COMPTEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CONDITIONGRAPH.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DICOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DO-TEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DUMPFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FASL-DEBUG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FLOAT-ARRAY-SUPPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>GIVE-AND-TAKE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTESTAUX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAILCLIENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAINTAIN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAKE-EXPORTS-ALL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAKE-TCP-EXPORTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MEDLEY-UTILS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MESATYPES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;1 .Warning: Error attempting to LOADVARS (IL:MSXCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MULTI-COMPILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1 .Warning: Error attempting to LOADVARS (IL:NATIVE-TRANSLATORCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NSTOASCIIDISPLAYFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>PEANO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>READ-PRINT-PROFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>RELEASETOOLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>SMART-TRICKLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>SPLICE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TAR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TYPEHAX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>WHEREIS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>XCLC-DEBUG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1 .Warning: Error attempting to LOADVARS (IL:INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>LOCAL-INIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>PARC-INIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>SIMPLE-INIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMINDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMNAME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTOOLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTRAN.;1 ... done.

release-notes.md

@@ -1,29 +1,41 @@
-Each release should have a subset of the medley repo in a file
-     `medley-`releasename`.tgz`
+There are separate releases of medley and maiko.
+Just get the latest version of each.
 
-and at least one
-     `maiko-`releasename`.`osname`.`arch`.tgz`
+Alternatively, you can pick up the medley release, and build your own maiko.
+
+Get the Maiko release [here](https://github.com/Interlisp/maiko/releases).
+
+The medley release comes in two parts:
+1. The "loadups" (download `$tag-loadups.tgz` below)
+2. The "runtime" (download `$tag-runtime.tgz` below)
+
+You won't need the "runtime" if you clone medley; it's just a subset. 
    
-e.g.,
-	 `maiko-$tag.linux.x86_64.tgz`
-
-for each os/arch pair for which we have GitHub "action" runners.
+To download both using 'gh' GitHub command line:
+```
+   gh release download -R Interlisp/medley -p "*"
+```
 
 To use (from a shell/terminal window):
 
-1. Unpack the medley tar file
-  ```
-  tar -xvfz medley-$tag.tgz
-  ```
-  and the maiko file for your os.arch
-  ```
-  tar -xvfz maiko-$tag.linux.x86_64.tgz
-  ```
-  this should leave you with two new directories, `medley` and `maiko`.
+1. Unpack the medley tar file(s)
+```
+  tar -xvfz $tag-loadups.tgz
+  tar -xvfz $tag-runtime.tgz
+```
+
+2. Unpack the maiko file for your operating system and CPU type, e.g.,
+
+   ```
+     tar -xvfz maiko-210823.linux.x86_64.tgz
+   ```
+
+3. This should leave you with two directories, `medley` and `maiko`.
   Then you can 
    ```
    cd medley
    ./run-medley -full
    ```
-   
+
+
 

run-medley

@@ -1,16 +1,18 @@
 #!/bin/sh
 #               Run Medley
 #
-# Syntax: run-medley [--dimensions WIDTHxHEIGHT] \  sets both -g -sc
-#                    [-g WIDTHxHEIGHT]           \
-#                    [-sc WIDTHxHEIGHT]          \
-#                    [--display X_DISPLAY]       \
-#                    [--vmem | --vmfile FILE]    \
-#                    [--nogreet | --greet FILE]  \
-#                    [-n | -nl | 
-#                    [URL_OR_FILE]
+# Syntax: run-medley [--dimensions WIDTHxHEIGHT] #  sets both -g -sc
+#                    [-g WIDTHxHEIGHT]
+#                    [-sc WIDTHxHEIGHT]
+#                    [--display X_DISPLAY]       # defaults to $DISPLAY or :0
+#                    [-prog LDEFILE]
+#                    [--vmem | --vmfile FILE]
+#                    [--nogreet | --greet FILE |
+#                           --loadup FILE ]      # will separate from GREET
+#                    [-n | -nl | -full | -lisp |  
+#                    [SYSOUTFILE]
 
-# Directory variables are accessible from Lisp via UNIX-GETENV
+# Variables accessible from Lisp via UNIX-GETENV
 # LDESRCESYSOUT         SYSOUT full-file name you want to run
 # LDEDESTSYSOUT         name for destination of SaveVM/LOGOUT
 # MEDLEYDIR             used by init file to set other path variables
@@ -53,8 +55,17 @@ export LDEKBDTYPE=x
 
 while [ "$#" -ne 0 ]; do
     case "$1" in
+	"-loadup")
+	    export MEDLEYLOADUP="$2"
+	    export LDEINIT="$2"
+	    shift
+	    ;;
         "-nogreet" | "--nogreet")
-            export LDEINIT=""
+	    # Keep (GREET) from finding an init file
+	    mkdir -p $MEDLEYDIR/tmp/logindir
+	    export HOME=$MEDLEYDIR/tmp/logindir
+	    export LOGINDIR=$MEDLEYDIR/tmp/logindir
+            export LDEINIT="$MEDLEYDIR/greetfiles/NOGREET"
             ;;
         "-greet" | "--greet")
             export LDEINIT="$2"
@@ -120,8 +131,6 @@ while [ "$#" -ne 0 ]; do
     shift
 done
 
-# not set on command line
-
 if [ -z "$LDESRCESYSOUT" ] ; then
     if [ -f "$LDEDESTSYSOUT" ] ; then
         export LDESRCESYSOUT="$LDEDESTSYSOUT"
@@ -136,45 +145,39 @@ if [ -z "$geometry" ] ; then
     screensize="-sc 1440x900"
 fi
 
-case "$LDESRCSYSOUT" in
-    "http:*" | "https:*")
-    echo URL not supported yet
-    exit 1
-esac
-
-inferred_maikodir=false
-
-if [ -z "$MAIKODIR" ] ; then
-    # here we try two options relative to MEDLEYDIR: ./maiko and ../maiko
-    # this is highly imperfect, but the user can always set the env variables
-    export MAIKODIR="$MEDLEYDIR/../maiko"
-    if [ ! -d "$MAIKODIR" ] ; then
-        export MAIKODIR="$MEDLEYDIR/maiko"
-    fi
-    inferred_maikodir=true
-fi
-
-if [ ! -d "$MAIKODIR/bin" ] ; then
-    echo "MAIKODIR has no bin: $MAIKODIR"
-    if [ inferred_maikodir = true ] ; then
-        echo "I tried to infer it based on your working directory, but that didn't work."
-        echo "Try setting the MAIKODIR environment variable to the right location."
-    fi
-    exit 1
-fi
-
-
-oldpath="$PATH"
-
-export PATH=.:"$PATH"
-cd "$MAIKODIR"/bin
-export PATH="$MAIKODIR"/`osversion`.`machinetype`:"$oldpath"
-
-cd "$OLDPWD"
-
 if ! command -v "$prog" > /dev/null 2>&1; then
-    echo "$prog" not found
-    exit 1
+    # if lde is already on path, don't reset it
+    # otherwise check for MAIKODIR
+
+    if [ -z "$MAIKODIR" ] ; then
+	# try two options relative to MEDLEYDIR: ./maiko and ../maiko
+	MAIKODIR="$MEDLEYDIR/../maiko"
+	if ! command -v "$MAIKODIR/bin/osversion" > /dev/null 2>&1; then
+            MAIKODIR="$MEDLEYDIR/maiko"
+	fi
+    fi
+
+    if ! command -v "$MAIKODIR/bin/osversion" > /dev/null 2>&1; then
+	echo "Could not find 'lde' on PATH"
+	echo "nor MAIKODIR with 'bin/osversion' (to look for it)"
+	exit 1
+    fi
+
+    oldpath="$PATH"
+    oldpwd=`pwd`
+    PATH=.:"$PATH"
+    cd "$MAIKODIR"/bin
+    osv=`osversion`
+    mct=`machinetype`
+    newpath="$MAIKODIR"/"$osv.$mct"
+    PATH="$newpath":"$oldpath"
+    cd "$oldpwd"
+    if ! command -v $prog > /dev/null 2>&1; then
+	echo $prog not found in $newpath
+	echo osversion = $osv
+	echo machinetype = $mct
+	exit 1
+    fi
 fi
 
 echo "running: $prog $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"

scripts/loadup-all.sh

@@ -7,10 +7,6 @@ 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-and-release.sh

@@ -0,0 +1,13 @@
+#!/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+./scripts/loadup-all.sh  &&  \
+    ./scripts/copy-all.sh && \
+    ./scripts/release-medley.sh
+

scripts/loadup-aux.sh

@@ -9,10 +9,15 @@ fi
 
 touch tmp/loadup.timestamp
 
+# Keep (GREET) from finding an init file
+mkdir -p $MEDLEYDIR/tmp/logindir
+export HOME=$MEDLEYDIR/tmp/logindir
+export LOGINDIR=$MEDLEYDIR/tmp/logindir
+
 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
+./run-medley $scr -loadup "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
 
 if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
     

scripts/loadup-full-from-lisp.sh

@@ -10,7 +10,12 @@ scr="-sc 1024x768 -g 1042x790"
 
 touch tmp/loadup.timestamp
 
-./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
+# Keep (GREET) from finding an init file
+mkdir -p $MEDLEYDIR/tmp/logindir
+export HOME=$MEDLEYDIR/tmp/logindir
+export LOGINDIR=$MEDLEYDIR/tmp/logindir
+
+./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
 
 if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
     

scripts/loadup-full.sh

@@ -6,11 +6,17 @@ if [ ! -x run-medley ] ; then
     echo must run from MEDLEYDIR ;
     exit 1 ;
 fi
+
+# Keep (GREET) from finding an init file
+mkdir -p $MEDLEYDIR/tmp/logindir
+export HOME=$MEDLEYDIR/tmp/logindir
+export LOGINDIR=$MEDLEYDIR/tmp/logindir
+
 scr="-sc 1024x768 -g 1042x790"
 
 touch tmp/loadup.timestamp
 
-./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/loadups/lisp.sysout"
+./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/loadups/lisp.sysout"
 
 if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
     

scripts/loadup-init.sh

@@ -9,10 +9,14 @@ fi
 
 scr="-sc 1024x768 -g 1042x790"
 
-mkdir -p "$MEDLEYDIR/tmp"
+# Keep (GREET) from finding an init file
+mkdir -p $MEDLEYDIR/tmp/logindir
+export HOME=$MEDLEYDIR/tmp/logindir
+export LOGINDIR=$MEDLEYDIR/tmp/logindir
+
 touch tmp/loadup.timestamp
 
-./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
+./run-medley $scr -loadup "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
 
 if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
     

scripts/loadup-lisp-from-mid.sh

@@ -12,7 +12,7 @@ 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 -loadup "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
 
 if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
     

scripts/loadup-mid-from-init.sh

@@ -12,7 +12,7 @@ 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
+./run-medley -prog ldeinit -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
 
 
 echo 

scripts/lsee

@@ -15,4 +15,6 @@ tr '\r' '\n' < $1 | \
 	-e 's///g'\
 	-e 's///g' \
 	-e 's///g'\
-	-e 's///g'
+	-e 's///g'\
+	-e 's//:/g' \
+    | less -R

scripts/release-medley.sh

@@ -0,0 +1,52 @@
+#!/bin/sh
+
+export MEDLEYDIR=`pwd`
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+tag=$1
+
+if [ -z "$tag" ] ; then
+    tag=medley-`date +%y%m%d`
+fi
+
+cd ..
+
+echo making $tag-loadups.tgz
+
+tar cfz medley/tmp/$tag-loadups.tgz                       \
+    medley/loadups/lisp.sysout                            \
+    medley/loadups/full.sysout                            \
+    medley/loadups/whereis.hash                           \
+    medley/library/exports.all                            \
+    medley/library/RDSYS medley/library/RDSYS.LCOM
+	
+echo making $tag-runtime.tgz
+
+tar cfz medley/tmp/$tag-runtime.tgz                       \
+    --exclude "*~" --exclude "*#*"                        \
+    medley/docs/dinfo                                     \
+    medley/docs/Documentation\ Tools                      \
+    medley/greetfiles/SIMPLE-INIT                         \
+    medley/run-medley                                     \
+    medley/scripts                                        \
+    medley/fonts/displayfonts  medley/fonts/altofonts     \
+    medley/fonts/postscriptfonts                          \
+    medley/library/                                       \
+    medley/lispusers/                                     \
+    medley/fonts/big medley/fonts/other                   \
+    medley/sources/                                       \
+    medley/internal/library                               \
+
+    
+cd medley
+
+echo making release
+sed s/'$tag'/$tag/g < release-notes.md > tmp/release-notes.md
+gh release create $tag -F tmp/release-notes.md -p -t $tag
+
+echo uploading
+gh release upload $tag tmp/$tag-loadups.tgz tmp/$tag-runtime.tgz --clobber
+

scripts/release-one.sh

@@ -1,31 +0,0 @@
-#!/bin/sh
-export MEDLEYDIR=`pwd`
-
-if [ ! -x run-medley ] ; then
-    echo "run from MEDLEYDIR (with MAIKODIR ../maiko)"
-    exit 1
-fi
-
-tag=$1
-if [ -z "$tag" ] ; then
-    tag=nightly-`date +%y%m%d`
-fi
-
-cd ../maiko/bin
-export PATH=.:"$PATH"
-osarch=`osversion`.`machinetype`
-
-cd ../..
-
-echo making maiko-$tag-$osarch.tgz
-
-tar cfz medley/tmp/maiko-$tag-$osarch.tgz   \
-    --exclude "make*" --exclude legacy      \
-    maiko/bin                               \
-    maiko/$osarch/lde*
-
-cd medley
-
-echo uploading
-
-gh release upload --clobber $tag tmp/maiko-$tag-$osarch.tgz

scripts/start-release.sh

@@ -1,41 +0,0 @@
-#!/bin/sh
-export MEDLEYDIR=`pwd`
-if [ ! -x run-medley ] ; then
-    echo run from MEDLEYDIR
-    exit 1
-fi
-
-tag=$1
-
-if [ -z "$tag" ] ; then
-    tag=nightly-`date +%y%m%d`
-fi
-
-cd ..
-
-echo making medley zip 
-
-tar cfz medley/tmp/medley-$tag.tgz                        \
-    --exclude-backups --exclude="*.PDF"                   \
-    medley/docs/dinfo                                     \
-    medley/greetfiles/SIMPLE-INIT                         \
-    medley/run-medley                                     \
-    medley/scripts                                        \
-    medley/loadups                                        \
-    medley/fonts/displayfonts  medley/fonts/altofonts     \
-    medley/fonts/postscriptfonts medley/fonts/ipfonts     \
-    medley/library/                                       \
-    medley/internal/library                               \
-    medley/lispusers/                                     \
-    medley/sources/
-
-cd medley
-
-echo making release
-sed s/'$tag'/$tag/g < release-notes.md > tmp/release-notes.md
-gh release create $tag -F tmp/release-notes.md -p -t $tag
-
-echo uploaded tmp/medley-$tag.tgz
-gh release upload $tag tmp/medley-$tag.tgz --clobber
-
-./scripts/release-one.sh $tag

sources/APUTDQ

@@ -1,9 +1,9 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "12-Mar-2021 12:03:59" {DSK}<home>larry>ilisp>med>sources>APUTDQ.;5
 10486  
+
(FILECREATED "25-Aug-2021 13:12:07" {DSK}<home>larry>medley>sources>APUTDQ.;2
 11185  
 
       changes to%:  (FNS ENDLOADUP)
 
-      previous date%: "12-Mar-2021 00:15:32" {DSK}<home>larry>ilisp>med>sources>APUTDQ.;3)
+      previous date%: "25-Aug-2021 12:11:36" {DSK}<home>larry>medley>sources>APUTDQ.;1)
 
 
 (* ; "
@@ -139,19 +139,38 @@ Copyright (c) 1981-1988, 1990, 2021 by Venue & Xerox Corporation.
                                   (SMASHFILECOMS
 X])
 
 (ENDLOADUP

-  [LAMBDA NIL
                                          (* ; "Edited 12-Mar-2021 12:03 by larry")

+  [LAMBDA NIL
                                          (* ; "Edited 25-Aug-2021 13:07 by larry")

 
     (* ;; "set up for NONET configuration;  sites with ethernet can load in init from other places")

 
     (* ;; "All records existing at this point in time have been loaded as part of the system.")

 
+    (DECLARE
 (GLOBALVARS USERRECLST SYSTEMINITVARS MEDLEY-INIT-VARS AFTERSYSOUTFORMS))
     (FOR
 R IN
 USERRECLST DO
 (RECORDPRIORITY R 'SYSTEM))
+
+    (* ;; "reset variables to nil")

+
     (MEDLEY-INIT-VARS T)
-    [FOR
 X IN
 SYSTEMINITVARS WHEN
 (NOT (ASSOC X MEDLEY-INIT-VARS))
+    [FOR
 X IN
 SYSTEMINITVARS WHEN
 (NOT (ASSOC (CAR X)
+                                                          MEDLEY-INIT-VARS))
        DO
 (SETTOPVAL (CAR X)
                      (COPY (CDR X]
+
+    (* ;; " make sure these are done first")

+
+    (SETQ AFTERSYSOUTFORMS (CONS '(MEDLEY-INIT-VARS)
+                                 (REMOVE '(MEDLEY-INIT-VARS)
+                                        AFTERSYSOUTFORMS)))
+    (SETQ AFTERMAKESYSFORMS (CONS '(MEDLEY-INIT-VARS)
+                                  (REMOVE '(MEDLEY-INIT-VARS)
+                                         AFTERMAKESYSFORMS)))
     (FOR
 FILE IN
 (OPENP) DO
 (PRINTOUT T (CLOSEF FILE)
                                                " closed" T))
+
+    (* ;; "get rid of files loaded")

+
+    (NCONC SYSFILES (REVERSE FILELST))
+    (SETQ FILELST NIL)
     (for
 TYPE in
 FILEPKGTYPES do
 (FILEPKGCHANGES TYPE NIL))
     (CLRPROMPT])
 )
@@ -247,7 +266,7 @@ Copyright (c) 1981-1988, 1990, 2021 by Venue & Xerox Corporation.
 (PUTPROPS APUTDQ COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3969 6177 (GREETFILENAME 3979 . 5852) (FAULTEVAL 5854 . 5926) (FAULTAPPLY 5928 . 6014) 
-(ERRORX 6016 . 6082) (SET-DOCUMENTATION 6084 . 6175)) (6178 7198 (SMASHFILECOMS 6188 . 6530) (
-SMASHFILECOMSLST 6532 . 7196)) (7292 8512 (LOADUP 7302 . 7725) (ENDLOADUP 7727 . 8510)))))
+  (FILEMAP (NIL (3963 6171 (GREETFILENAME 3973 . 5846) (FAULTEVAL 5848 . 5920) (FAULTAPPLY 5922 . 6008) 
+(ERRORX 6010 . 6076) (SET-DOCUMENTATION 6078 . 6169)) (6172 7192 (SMASHFILECOMS 6182 . 6524) (
+SMASHFILECOMSLST 6526 . 7190)) (7286 9211 (LOADUP 7296 . 7719) (ENDLOADUP 7721 . 9209)))))
 STOP

sources/ASTACK

@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "23-May-91 14:25:00" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>ASTACK.;4|
 43099  
+
(FILECREATED "11-Sep-2021 12:54:19" {DSK}<home>larry>medley>sources>ASTACK.;2
 43098  
 
-      changes to%:  (FNS \STKARG)
+      changes to%:  (FNS STKARGNAME)
 
-      previous date%: "20-Feb-91 13:47:06" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>ASTACK.;3|)
+      previous date%: "23-May-91 14:25:00" {DSK}<home>larry>medley>sources>ASTACK.;1)
 
 
 (* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1982-1987, 1990-1991 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT ASTACKCOMS)
@@ -501,7 +501,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Co
                      (T (LISPERROR "ILLEGAL STACK ARG" N])
 
 (STKARGNAME

-  [LAMBDA (N POS)
                                        (* ; "Edited 18-Feb-91 16:55 by jds")

+  [LAMBDA (N POS NOERROR)
                              (* ; "Edited 11-Sep-2021 12:51 by larry")

 
     (* ;; "Given an interpreted frame and an argument number, return the name of that argument (actually, just the n-th NameTable entry)")

 
@@ -552,6 +552,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Co
                                                                            WORDSPERCELL]
                                 (RETURN)))
                             (MAKE-NTENTRY PVARCODE (SUB1 NTENTRY)))
+                           (NOERROR (RETURN))
                            (T (LISPERROR "ILLEGAL STACK ARG" N]
           (RETURN (for
 NT1 from
 (fetch
 (FNHEADER OVERHEADWORDS) of
 T)
                      by
 (CONSTANT (WORDSPERNAMEENTRY)) as
 NT2
@@ -789,13 +790,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Co
 )
 (PUTPROPS ASTACK COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1519 4724 (ARG 1529 . 1688) (SETARG 1690 . 1874) (\ARG 1876 . 2111) (\ARGPTR 2113 . 
-4455) (\SETARG 4457 . 4722)) (4725 8940 (\RETURN 4735 . 5093) (\STACKARGPTR 5095 . 8938)) (8985 12362 
-(STKNTH 8995 . 9893) (STKNTHNAME 9895 . 10782) (STKNAME 10784 . 10929) (SETSTKNAME 10931 . 12360)) (
-12363 16138 (STKPOS 12373 . 13294) (STKSCAN 13296 . 13942) (RETFROM 13944 . 14298) (RETTO 14300 . 
-14575) (RESUME 14577 . 15950) (\RESUME 15952 . 16136)) (16139 42186 (STKARG 16149 . 16484) (\STKARG 
-16486 . 21189) (SETSTKARG 21191 . 25374) (STKARGNAME 25376 . 29599) (\SPREADFRAMEP 29601 . 30142) (
-SETSTKARGNAME 30144 . 33435) (STKNARGS 33437 . 35846) (FRAMESCAN 35848 . 36298) (\INTERPFRAMENT 36300
- . 36700) (\FRAMESCAN 36702 . 39755) (\VAROFFSET 39757 . 42184)) (42228 42781 (\RECLAIMSTACKP 42238 . 
-42779)))))
+  (FILEMAP (NIL (1470 4675 (ARG 1480 . 1639) (SETARG 1641 . 1825) (\ARG 1827 . 2062) (\ARGPTR 2064 . 
+4406) (\SETARG 4408 . 4673)) (4676 8891 (\RETURN 4686 . 5044) (\STACKARGPTR 5046 . 8889)) (8936 12313 
+(STKNTH 8946 . 9844) (STKNTHNAME 9846 . 10733) (STKNAME 10735 . 10880) (SETSTKNAME 10882 . 12311)) (
+12314 16089 (STKPOS 12324 . 13245) (STKSCAN 13247 . 13893) (RETFROM 13895 . 14249) (RETTO 14251 . 
+14526) (RESUME 14528 . 15901) (\RESUME 15903 . 16087)) (16090 42185 (STKARG 16100 . 16435) (\STKARG 
+16437 . 21140) (SETSTKARG 21142 . 25325) (STKARGNAME 25327 . 29598) (\SPREADFRAMEP 29600 . 30141) (
+SETSTKARGNAME 30143 . 33434) (STKNARGS 33436 . 35845) (FRAMESCAN 35847 . 36297) (\INTERPFRAMENT 36299
+ . 36699) (\FRAMESCAN 36701 . 39754) (\VAROFFSET 39756 . 42183)) (42227 42780 (\RECLAIMSTACKP 42237 . 
+42778)))))
 STOP

sources/DEBUGGER

@@ -1,14 +1,14 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "DEBUGGER" (PREFIX-NAME "DBG") (NICKNAMES 
-"DBG")))
-
(IL:FILECREATED "16-Aug-91 17:38:56" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>DEBUGGER.;3|
 84381  
+(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "DEBUGGER" (PREFIX-NAME "DBG") (NICKNAMES "DBG")) READTABLE 
+"XCL" BASE 10)
+
(IL:FILECREATED "12-Sep-2021 15:59:37" IL:|{DSK}<home>larry>medley>sources>DEBUGGER.;2|
 84797  
 
-      IL:|changes| IL:|to:|  (IL:FUNCTIONS DEBUGGER-EVAL)
+      IL:|changes| IL:|to:|  (IL:FUNCTIONS STACK-FRAME-PROPERTIES)
 
-      IL:|previous| IL:|date:| "16-May-90 15:26:02" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>DEBUGGER.;2|
+      IL:|previous| IL:|date:| "11-Sep-2021 12:57:01" IL:|{DSK}<home>larry>medley>sources>DEBUGGER.;1|
 )
 
 
-; Copyright (c) 1986, 1987, 1988, 1990, 1991 by Venue & Xerox Corporation.  All rights reserved.
+; Copyright (c) 1986-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
 
 (IL:PRETTYCOMPRINT IL:DEBUGGERCOMS)
 
@@ -520,14 +520,13 @@
 
 (DEFVAR IL:LASTPOS
)
 
-(XCL:DEFCOMMAND ("@" :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV) 
+(XCL:DEFCOMMAND ("@"
 :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV)
    "Set debugger stack pointer to location specified by PLACE (or default)"
    (FORMAT T "@ = ~S~%" (IL:STKNAME (FIND-DEBUGGER-STACK-FRAME
 IL:PLACE IL:ENV)))
    (VALUES))
 
-(XCL:DEFCOMMAND ("REVERT" :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV) (DECLARE
 (SPECIAL
-                                                                                        IL:BRKVALUES)
-                                                                                 )
+(XCL:DEFCOMMAND ("REVERT"
 :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV)
+   (DECLARE
 (SPECIAL IL:BRKVALUES))
    "Unwind to specified frame (or LASTPOS) and enter breakpoint"
 
    (IL:* IL:|;;| "Find the stack frame that the user asked to unwind to , if any:")

@@ -561,7 +560,8 @@
                                          (IL:RELSTK IL:POS))))))))
     (THROW 'DEBUGGER-EXIT NIL)))
 
-(XCL:DEFCOMMAND ("?=" :DEBUGGER) NIL "Show arguments"
+(XCL:DEFCOMMAND ("?="
 :DEBUGGER) ()
+   "Show arguments"
    (MULTIPLE-VALUE-BIND (IL:NAME IL:DEFN)
           (FIND-ORIGINAL-NAME-AND-DEFINITION
 IL:LASTPOS)
           (MULTIPLE-VALUE-BIND (IL:LAMBDA-CAR IL:ARGLIST)
@@ -589,7 +589,7 @@
                                            0 T))))))
    (VALUES))
 
-(XCL:DEFCOMMAND ("EVAL" :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL IL:EXPRESSION-PROVIDED?)) 
+(XCL:DEFCOMMAND ("EVAL"
 :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL IL:EXPRESSION-PROVIDED?))
    (DECLARE
 (SPECIAL IL:BRKENV IL:BRKVALUES))
    "Evaluate expression in debugged context"
    (XCL:CONDITION-CASE (IF IL:EXPRESSION-PROVIDED?
@@ -600,14 +600,15 @@
           (SI::DEBUGGER-EVAL-ABORTED (IL:C)
                  (VALUES :ABORTED (SI::DEBUGGER-EVAL-ABORTED-CONDITION IL:C)))))
 
-(XCL:DEFCOMMAND ("VALUE" :DEBUGGER :QUIET) NIL 
+(XCL:DEFCOMMAND ("VALUE"
 :DEBUGGER :QUIET) ()
    "Show value from previous evaluation of debug expression"
    (IF IL:BRKVALUES
        (VALUES-LIST (CDR IL:BRKVALUES))
        (PROGN (FORMAT T "Not yet evaluated~&")
               (VALUES))))
 
-(XCL:DEFCOMMAND ("UB" :DEBUGGER) (&OPTIONAL (IL:FN IL:BRKFN)) "Unbreak function with breakpoint"
+(XCL:DEFCOMMAND ("UB"
 :DEBUGGER) (&OPTIONAL (IL:FN IL:BRKFN))
+   "Unbreak function with breakpoint"
    (DECLARE
 (SPECIAL IL:BRKFN))
    (IL:EVAL (LIST 'XCL:UNBREAK IL:FN)))
 
@@ -882,26 +883,32 @@
               (return
 nil))))
 )
 
-(XCL:DEFCOMMAND ("BT" :DEBUGGER) NIL "Print backtrace of external frames"
+(XCL:DEFCOMMAND ("BT"
 :DEBUGGER) ()
+   "Print backtrace of external frames"
    (PRINT-BACKTRACE
 :FROM IL:LASTPOS :TEST 'XCL::INTERESTING-FRAME-P)
    (VALUES))
 
-(XCL:DEFCOMMAND ("BT!" :DEBUGGER) NIL "Print backtrace of all frames"
+(XCL:DEFCOMMAND ("BT!"
 :DEBUGGER) ()
+   "Print backtrace of all frames"
    (PRINT-BACKTRACE
 :FROM IL:LASTPOS :TEST NIL)
    (VALUES))
 
-(XCL:DEFCOMMAND ("BTV" :DEBUGGER) NIL "Print backtrace of frames and special bindings"
+(XCL:DEFCOMMAND ("BTV"
 :DEBUGGER) ()
+   "Print backtrace of frames and special bindings"
    (PRINT-BACKTRACE
 :FROM IL:LASTPOS :PRINT-VARIABLES T)
    (VALUES))
 
-(XCL:DEFCOMMAND ("BTV!" :DEBUGGER) NIL "Print backtrace of all frame information"
+(XCL:DEFCOMMAND ("BTV!"
 :DEBUGGER) ()
+   "Print backtrace of all frame information"
    (PRINT-BACKTRACE
 :FROM IL:LASTPOS :PRINT-VARIABLES T :PRINT-JUNK T)
    (VALUES))
 
-(XCL:DEFCOMMAND ("DBT" :DEBUGGER) NIL (ATTACH-BACKTRACE-MENU
 NIL T)
+(XCL:DEFCOMMAND ("DBT"
 :DEBUGGER) ()
+   (ATTACH-BACKTRACE-MENU
 NIL T)
    (VALUES))
 
-(XCL:DEFCOMMAND ("DBT!" :DEBUGGER) NIL (ATTACH-BACKTRACE-MENU
)
+(XCL:DEFCOMMAND ("DBT!"
 :DEBUGGER) ()
+   (ATTACH-BACKTRACE-MENU
)
    (VALUES))
 
 (DEFUN ATTACH-BACKTRACE-MENU
 (&OPTIONAL IL:TTYWINDOW IL:SKIP)
@@ -1197,19 +1204,29 @@
                IL:COLLECT
 (PROGN (IL:|while|
 (IL:FMEMB (SETF ARGNAME (POP ARGLIST))
                                                             LAMBDA-LIST-KEYWORDS)
                                         IL:|do|
 (SETF MODE ARGNAME))
+
+                                     (IL:* IL:|;;| " STKARGNAME returns symbol if bound special")

+
                                      (LIST (OR (IL:STKARGNAME I POS)
-                                                             (IL:* IL:\; "special")

-                                               (IF (CASE MODE
+                                               (COND
+                                                  ((CHARACTERP ARGNAME)
+
+                                                   (IL:* IL:|;;| 
+
                                                 "for special forms might start with #\\( or #\\{")

+
+                                                   (SETQ ARGLIST NIL)
+                                                   (FORMAT NIL "arg ~D" (- I 1)))
+                                                  ((CASE MODE
                                                        ((NIL &OPTIONAL) ARGNAME)
                                                        (T NIL))
-                                                   (STRING ARGNAME)
-                                                   (FORMAT NIL "arg ~D" (- I 1))))
+                                                   (STRING ARGNAME))
+                                                  (T (FORMAT NIL "arg ~D" (- I 1)))))
                                            I))))
       ,@(LET ((SLOTS (IL:BIND
 ARGNAME (NOVALUE IL:_ "no such value") IL:FOR
 PVAR IL:FROM

                                                                                          0
                         IL:AS
 I IL:|from|
 (1+ NUM-ARGS) IL:|to|
 TOTAL-SLOTS
                         IL:|when|
 (AND (IL:NEQ NOVALUE (IL:STKARG I POS NOVALUE))
-                                           (OR (SETF ARGNAME (IL:STKARGNAME I POS))
+                                           (OR (SETF ARGNAME (IL:STKARGNAME I POS T))
                                                (AND LOTS? (SETQ ARGNAME (FORMAT NIL "local ~D" PVAR))
                                                     ))) IL:|collect|
 (LIST ARGNAME I))))
              (AND SLOTS (CONS '("locals")
@@ -1345,16 +1362,19 @@
                  (T 0)))
           OUTPUT))
 
-(XCL:DEFCOMMAND ("STOP" :DEBUGGER :QUIET) NIL "Exit this debugger level"
+(XCL:DEFCOMMAND ("STOP"
 :DEBUGGER :QUIET) ()
+   "Exit this debugger level"
    (IL:SETQ IL:BRKVALUES '(IL:ERROR!))
    (THROW 'DEBUGGER-EXIT NIL))
 
-(XCL:DEFCOMMAND ("^" :DEBUGGER :QUIET) NIL "Abort out of debugger"
+(XCL:DEFCOMMAND ("^"
 :DEBUGGER :QUIET) ()
+   "Abort out of debugger"
    (IL:SETQ IL:BRKVALUES '(IL:ERROR!))
    (THROW 'DEBUGGER-EXIT NIL))
 
-(XCL:DEFCOMMAND ("RETURN" :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL)
-                                            &ENVIRONMENT IL:ENV) "Return value from debugger"
+(XCL:DEFCOMMAND ("RETURN"
 :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL)
+                                                &ENVIRONMENT IL:ENV)
+   "Return value from debugger"
    (XCL:CONDITION-CASE (PROGN (IL:SETQ IL:BRKVALUES (LIST 'RETURN (MULTIPLE-VALUE-LIST (
 
                                                                                      DEBUGGER-EVAL

                                                                                         IL:EXPRESSION
@@ -1364,20 +1384,23 @@
           (SI::DEBUGGER-EVAL-ABORTED (IL:C)
                  (VALUES :ABORTED (SI::DEBUGGER-EVAL-ABORTED-CONDITION IL:C)))))
 
-(XCL:DEFCOMMAND ("PR" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER) "Select and invoke a proceed case."
-   (ESCAPE-FROM-DEBUGGER
 T IL:NAME-OR-NUMBER)
-   (VALUES))
-
-(XCL:DEFCOMMAND ("PR!" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER) "Select and invoke a proceed case."
-   (ESCAPE-FROM-DEBUGGER
 NIL IL:NAME-OR-NUMBER)
-   (VALUES))
-
-(XCL:DEFCOMMAND ("PROCEED" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER) 
+(XCL:DEFCOMMAND ("PR"
 :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
    "Select and invoke a proceed case."
    (ESCAPE-FROM-DEBUGGER
 T IL:NAME-OR-NUMBER)
    (VALUES))
 
-(XCL:DEFCOMMAND ("OK" :DEBUGGER :QUIET) NIL (DECLARE
 (SPECIAL IL:BRKENV))
+(XCL:DEFCOMMAND ("PR!"
 :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
+   "Select and invoke a proceed case."
+   (ESCAPE-FROM-DEBUGGER
 NIL IL:NAME-OR-NUMBER)
+   (VALUES))
+
+(XCL:DEFCOMMAND ("PROCEED"
 :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
+   "Select and invoke a proceed case."
+   (ESCAPE-FROM-DEBUGGER
 T IL:NAME-OR-NUMBER)
+   (VALUES))
+
+(XCL:DEFCOMMAND ("OK"
 :DEBUGGER :QUIET) ()
+   (DECLARE
 (SPECIAL IL:BRKENV))
    "Exit/proceed from debugger"
    (XCL:CONDITION-CASE (PROGN (WHEN (TYPEP IL:BRKCOND 'SI::BREAKPOINT)
 
@@ -1528,8 +1551,29 @@
 
 (IL:ADDTOVAR IL:LAMA
 IL:WBREAK)
 )
-(IL:PUTPROPS XCL:DEBUGGER IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991))
+(IL:PUTPROPS XCL:DEBUGGER IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2021))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (18680 18967 (IL:WBREAK 18693 . 18965)) (42297 47159 (IL:BAKTRACE 42310 . 45094) (
-IL:BAKTRACE1 45096 . 47157)) (81689 83655 (IL:FIND-STACK-FRAME 81702 . 83653)))))
+  (IL:FILEMAP (NIL (4647 6458 (XCL:ENTER-DEBUGGER-P 4647 . 6458)) (6460 13582 (XCL:DEBUGGER 6460 . 13582
+)) (13584 13898 (EMERGENCY-PANIC-LOOP 13584 . 13898)) (13900 15355 (IL:FIND-DEBUGGER-ENTRY-FRAME 13900
+ . 15355)) (15357 16046 (PRINT-ENTRY-MESSAGE 15357 . 16046)) (16048 16349 (SIMPLE-REPORT-CONDITION 
+16048 . 16349)) (16351 18091 (XCL::INTERESTING-FRAME-P 16351 . 18091)) (18676 18963 (IL:WBREAK 18689
+ . 18961)) (19076 20185 (REUSE-CURRENT-WINDOW 19076 . 20185)) (20187 21491 (CREATE-DEBUGGER-WINDOW 
+20187 . 21491)) (21493 22445 (SET-UP-DEBUGGER-WINDOW 21493 . 22445)) (22447 23462 (
+CLOSE-DEBUGGER-WINDOW 22447 . 23462)) (23464 23950 (RELEASE-DEBUGGER-WINDOW 23464 . 23950)) (23952 
+24889 (NEAR-BY-REGION 23952 . 24889)) (24891 26001 (DEBUGGER-BUTTON-EVENT 24891 . 26001)) (26003 26940
+ (DEBUGGER-MENU-HELP 26003 . 26940)) (31880 33698 (DEBUGGER-EVAL 31880 . 33698)) (33700 38049 (
+FIND-DEBUGGER-STACK-FRAME 33700 . 38049)) (38051 38790 (FIND-NAMED-STACK-POSITION 38051 . 38790)) (
+38792 39424 (FIND-ORIGINAL-NAME-AND-DEFINITION 38792 . 39424)) (39426 39560 (STKPTR-CCODE 39426 . 
+39560)) (42151 47013 (IL:BAKTRACE 42164 . 44948) (IL:BAKTRACE1 44950 . 47011)) (47849 54778 (
+ATTACH-BACKTRACE-MENU 47849 . 54778)) (54780 57991 (REGION-NEXT-TO 54780 . 57991)) (57993 59436 (
+BACKTRACE-MENU-BUTTONEVENTFN 57993 . 59436)) (59438 63712 (BACKTRACE-ITEM-SELECTED 59438 . 63712)) (
+63714 68024 (STACK-FRAME-PROPERTIES 63714 . 68024)) (68026 69036 (STACK-FRAME-FETCHFN 68026 . 69036)) 
+(69038 70225 (STACK-FRAME-STOREFN 69038 . 70225)) (70227 70802 (STACK-FRAME-VALUE-COMMAND 70227 . 
+70802)) (70804 71214 (STACK-FRAME-PROPERTY 70804 . 71214)) (71216 73201 (MAKE-FRAME-INSPECT-WINDOW 
+71216 . 73201)) (73203 73400 (%RELEASE-STACK-DATUM 73203 . 73400)) (73402 74108 (PRINT-BACKTRACE 73402
+ . 74108)) (77337 77431 (EXIT-DEBUGGER 77337 . 77431)) (77433 77752 (INVOKE-ESCAPE-FROM-MENU 77433 . 
+77752)) (77754 79177 (ESCAPE-FROM-DEBUGGER 77754 . 79177)) (79179 79557 (MENU-FROM-ESCAPE-LIST 79179
+ . 79557)) (79559 80718 (KEYLIST-FROM-ESCAPE-LIST 79559 . 80718)) (80720 81728 (COLLECT-ACTIVE-ESCAPES
+ 80720 . 81728)) (81730 82099 (IL:FIND-LEXICAL-ENVIRONMENT 81730 . 82099)) (82100 84066 (
+IL:FIND-STACK-FRAME 82113 . 84064)))))
 IL:STOP

sources/FILEIO

@@ -1,11 +1,11 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-
(FILECREATED "13-Aug-2021 18:39:18" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;87
 178368 
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED " 6-Sep-2021 15:54:14" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;92
 178421 
 
-      changes to%:  (FNS COPYCHARS)
+      changes to%:  (RECORDS FDEV)
 
-      previous date%: " 8-Aug-2021 14:53:49" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;86)
+      previous date%: "13-Aug-2021 18:39:18" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;91)
 
 
 (* ; "
@@ -18,14 +18,14 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
        [(PROP (FILETYPE MAKEFILE-ENVIRONMENT)
               FILEIO)
         
-        (* ;; "Device independent IO.  This file is used by VAX")

+        (* ;; "Device independent IO.  This file is used by VAX")

 
         (COMS 
-              (* ;; "STREAM, FDEV declarations")

+              (* ;; "STREAM, FDEV declarations")

 
               (DECLARE%: FIRST DOCOPY 
 
-                     (* ;; "The microcode relies on STREAM being of a particular type, viz.  the first type declared in the initial loadup (after VMEMPAGEP)")

+                     (* ;; "The microcode relies on STREAM being of a particular type, viz.  the first type declared in the initial loadup (after VMEMPAGEP)")

 
                      (INITRECORDS STREAM))
               (SYSRECORDS STREAM)
@@ -38,12 +38,12 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                                                 OVERWRITEABLE READABLE READONLY WRITEABLE)
                                          (CONSTANTS * EOLCONVENTIONS)))
               (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP)
-              [COMS                                          (* ; "make streams print pretty")

+              [COMS                                          (* ; "make streams print pretty")

                     (FNS \DEFPRINT.BY.NAME \STREAM.DEFPRINT \FDEV.DEFPRINT)
                     (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'STREAM (FUNCTION \STREAM.DEFPRINT))
                                                        (DEFPRINT 'FDEV (FUNCTION \FDEV.DEFPRINT]
-              (COMS                                          (* ; 
-
                                                          "Needed because of STREAM initialization")

+              (COMS                                          (* ; 
+
                                                          "Needed because of STREAM initialization")

                     (INITVARS (FILELINELENGTH 102)
                            (\STREAM.DEFAULT.MAXBUFFERS 3)))
               (FNS \GETACCESS \SETACCESS)
@@ -51,8 +51,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                                          (RECORDS FDEV FILEGENOBJ)))
               (INITRECORDS FDEV)
               (SYSRECORDS FDEV))
-        [COMS                                                (* ; 
-
                                                 "EXTERNALFORMAT declaration and related functions")

+        [COMS                                                (* ; 
+
                                                 "EXTERNALFORMAT declaration and related functions")

               (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT)))
               (FNS MAKE-EXTERNALFORMAT)
               (INITRECORDS EXTERNALFORMAT)
@@ -65,7 +65,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
               (COMS (FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE 
                          \THROUGHOUTCHARFN)
                     (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT]
-        (COMS                                                (* ; "Device operations")

+        (COMS                                                (* ; "Device operations")

               (FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE 
                    \REMOVEDEVICE.NAMES)
               (INITVARS (STREAM-AFTER-OPEN-FNS NIL))
@@ -74,7 +74,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                    \RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES 
                    \PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST 
                    \PRINT-REVALIDATION-RESULT \TRUNCATEFILE \FILE-CONFLICT)
-              (COMS                                          (* ; "Generic enumerator")

+              (COMS                                          (* ; "Generic enumerator")

                     (FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN)
                     (DECLARE%: DONTCOPY (RECORDS NOFILEGENSTATE)))
               (FNS \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP 
@@ -82,16 +82,16 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
               (ADDVARS (\FILEDEVICES)
                      (\FILEDEVICENAMES)
                      (\DEVICENAMETODEVICE))
-              (COMS                                          (* ; "Device instances")

+              (COMS                                          (* ; "Device instances")

                     (FNS \FDEVINSTANCE)
                     (MACROS \INHERITFDEVOP.D \INHERITFDEVOP.S))
               (INITVARS (LOGINHOST/DIR '{DSK})
                      (\CONNECTED.DIRECTORY '{DSK}))
               (GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES 
                      \DEVICENAMETODEVICE))
-        (COMS                                                (* ; "Directory defaulting")

+        (COMS                                                (* ; "Directory defaulting")

               (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR))
-        [COMS                                                (* ; "Binary I/O Public functions")

+        [COMS                                                (* ; "Binary I/O Public functions")

               (FNS \BACKFILEPTR \BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES 
                    COPYCHARS COPYFILE \COPYOPENFILE \INFER.FILE.TYPE EOFP FORCEOUTPUT 
                    \FLUSH.OPEN.STREAMS CHARSET ACCESS-CHARSET GETEOFPTR GETFILEINFO 
@@ -99,7 +99,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                    BIN16)
               (PROP (DOPCODE)
                     BOUT)
-                                                             (* ; "Generic functions")

+                                                             (* ; "Generic functions")

               (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP 
                    \GENERIC.CHARSET)
               (FNS \MAP-OPEN-STREAMS)
@@ -116,7 +116,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                                                                         (PUTD (CADR PAIR)
                                                                               (GETD (CAR PAIR))
                                                                               T]
-        (COMS                                                (* ; "Internal functions")

+        (COMS                                                (* ; "Internal functions")

               (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH 
                    \SETEOFPTR \SETFILEPTR)
               (FNS \FIXPOUT \FIXPIN)
@@ -130,10 +130,10 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                                          [CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
                                          (RECORDS BYTEPTR))
                      (CONSTANTS MaxChar)))
-        (COMS                                                (* ; "Buffered IO")

+        (COMS                                                (* ; "Buffered IO")

               (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS 
                    \BUFFERED.COPYBYTES))
-        [COMS                                                (* ; "NULL device")

+        [COMS                                                (* ; "NULL device")

               (FNS \NULLDEVICE \NULL.OPENFILE)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE]
         (LOCALVARS . T)
@@ -282,58 +282,58 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 
 (DATATYPE STREAM
 
           (
-           (* ;; "First 8 words are fixed for BIN, BOUT opcodes.  Used to require length of whole datatype be multiple of 4, but Dolphin dead now.")

+           (* ;; "First 8 words are fixed for BIN, BOUT opcodes.  Used to require length of whole datatype be multiple of 4, but Dolphin dead now.")

 
-           (COFFSET WORD)                                    (* ; 
-
                                                           "Offset in CPPTR of next bin or bout")

-           (CBUFSIZE WORD)                                   (* ; 
-
                                                           "Offset past last byte in that buffer")

-           (PEEKEDCHARP FLAG)                                (* ; 
-
                                 "if true, PEEKEDCHAR contains value of recent call to unread-char")

-           (ACCESSBITS BITS 3)                               (* ; 
-
                                       "What kind of access file is open for (read, write, append)")

-           (CBUFPTR POINTER)                                 (* ; "Pointer to current buffer")

-           (BYTESIZE BYTE)                                   (* ; 
-
                                                           "Byte size of stream, always 8 for now")

-           (CHARSET BYTE)                                    (* ; "the current character set for this stream.  If 255, stream is not runcoded, so read-char consumes two bytes every time")

-           (PEEKEDCHAR WORD)                                 (* ; "value of unread-char call")

-           (CHARPOSITION WORD)                               (* ; "Used by POSITION etc.")

-           (CBUFMAXSIZE WORD)                                (* ; 
-
                             "on output, the size of the physical buffer--can't extend beyond this")

+           (COFFSET WORD)                                    (* ; 
+
                                                           "Offset in CPPTR of next bin or bout")

+           (CBUFSIZE WORD)                                   (* ; 
+
                                                           "Offset past last byte in that buffer")

+           (PEEKEDCHARP FLAG)                                (* ; 
+
                                 "if true, PEEKEDCHAR contains value of recent call to unread-char")

+           (ACCESSBITS BITS 3)                               (* ; 
+
                                       "What kind of access file is open for (read, write, append)")

+           (CBUFPTR POINTER)                                 (* ; "Pointer to current buffer")

+           (BYTESIZE BYTE)                                   (* ; 
+
                                                           "Byte size of stream, always 8 for now")

+           (CHARSET BYTE)                                    (* ; "the current character set for this stream.  If 255, stream is not runcoded, so read-char consumes two bytes every time")

+           (PEEKEDCHAR WORD)                                 (* ; "value of unread-char call")

+           (CHARPOSITION WORD)                               (* ; "Used by POSITION etc.")

+           (CBUFMAXSIZE WORD)                                (* ; 
+
                             "on output, the size of the physical buffer--can't extend beyond this")

 
-           (* ;; "-------- Above fields (8 words) potentially known to microcode.  --------")

+           (* ;; "-------- Above fields (8 words) potentially known to microcode.  --------")

 
            (NONDEFAULTDATEFLG FLAG)
            (REVALIDATEFLG FLAG)
-           (MULTIBUFFERHINT FLAG)                            (* ; 
-
                            "True if stream likes to read and write more than one buffer at a time")

-           (USERCLOSEABLE FLAG)                              (* ; 
-
                                           "Can be closed by CLOSEF;  NIL for terminal, dribble...")

-           (FULLFILENAME POINTER)                            (* ; 
-
                                                           "Name by which file is known to user")

-           (BINABLE FLAG)                                    (* ; "BIN punts unless this bit on")

-           (BOUTABLE FLAG)                                   (* ; "BOUT punts unless this bit on")

-           (EXTENDABLE FLAG)                                 (* ; 
-
                      "BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512")

-           (CBUFDIRTY FLAG)                                  (* ; 
-
                                                      "true if BOUT has sullied the current buffer")

-           (DEVICE POINTER)                                  (* ; "FDEV of this guy")

-           (USERVISIBLE FLAG)                                (* ; 
-
                                                  "Listed by OPENP;  NIL for terminal, dribble ...")

-           (EOLCONVENTION BITS 2)                            (* ; "End-of-line convention")

-           (NIL FLAG)                                        (* ; "Was NOTXCCS.")

-           (VALIDATION POINTER)                              (* ; 
-
          "A number somehow identifying file, used to determine if file has changed in our absence")

-           (CPAGE POINTER)                                   (* ; 
-
                      "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams")

+           (MULTIBUFFERHINT FLAG)                            (* ; 
+
                            "True if stream likes to read and write more than one buffer at a time")

+           (USERCLOSEABLE FLAG)                              (* ; 
+
                                           "Can be closed by CLOSEF;  NIL for terminal, dribble...")

+           (FULLFILENAME POINTER)                            (* ; 
+
                                                           "Name by which file is known to user")

+           (BINABLE FLAG)                                    (* ; "BIN punts unless this bit on")

+           (BOUTABLE FLAG)                                   (* ; "BOUT punts unless this bit on")

+           (EXTENDABLE FLAG)                                 (* ; 
+
                      "BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512")

+           (CBUFDIRTY FLAG)                                  (* ; 
+
                                                      "true if BOUT has sullied the current buffer")

+           (DEVICE POINTER)                                  (* ; "FDEV of this guy")

+           (USERVISIBLE FLAG)                                (* ; 
+
                                                  "Listed by OPENP;  NIL for terminal, dribble ...")

+           (EOLCONVENTION BITS 2)                            (* ; "End-of-line convention")

+           (NIL FLAG)                                        (* ; "Was NOTXCCS.")

+           (VALIDATION POINTER)                              (* ; 
+
          "A number somehow identifying file, used to determine if file has changed in our absence")

+           (CPAGE POINTER)                                   (* ; 
+
                      "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams")

            (EPAGE POINTER)
-           (EOFFSET WORD)                                    (* ; "Page, byte offset of eof")

-           (LINELENGTH WORD)                                 (* ; 
-
                                                   "LINELENGTH of stream, or -1 for no line length")

+           (EOFFSET WORD)                                    (* ; "Page, byte offset of eof")

+           (LINELENGTH WORD)                                 (* ; 
+
                                                   "LINELENGTH of stream, or -1 for no line length")

 
-           (* ;; "----Following are device-specific fields----")

+           (* ;; "----Following are device-specific fields----")

 
-           (* ;; "Available for device-specific uses, NOT for application use.")

+           (* ;; "Available for device-specific uses, NOT for application use.")

 
            (F1 POINTER)
            (F2 POINTER)
@@ -346,54 +346,54 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
            (FW9 WORD)
            (F10 POINTER)
 
-           (* ;; "----Following only filled in for open streams----")

+           (* ;; "----Following only filled in for open streams----")

 
-           (STRMBINFN POINTER)                               (* ; 
-
                                                       "Either the BIN fn from the FDEV, or a trap")

-           (STRMBOUTFN POINTER)                              (* ; 
-
                                                       "Either the BIN fn from the FDEV, or a trap")

-           (OUTCHARFN POINTER)                               (* ; 
-
                                                "Called by \OUTCHAR, the normal character printer.")

-           (ENDOFSTREAMOP POINTER)                           (* ; 
-
                                                           "Called if EOF and we try to read.")

-           (OTHERPROPS POINTER)                              (* ; 
-
                                                           "PROP LIST for holding other info.")

-           (IMAGEOPS POINTER)                                (* ; "Image operations vector")

-           (IMAGEDATA POINTER)                               (* ; 
-
                                       "Image instance variables--format depends on IMAGEOPS value")

-           (BUFFS POINTER)                                   (* ; 
-
                                                           "Buffer chain for pmapped streams")

-           (MAXBUFFERS WORD)                                 (* ; 
-
                                                       "Max # of buffers the system will allocate.")

-           (LASTCCODE WORD)                                  (* ; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC.  If there is none, this field is 65535.")

-           (EXTRASTREAMOP POINTER)                           (* ; 
-
                                                    "For use of applications programs, not devices")

-           (INCCODEFN POINTER)                               (* ; "Set by \EXTERNALFORMAT")

+           (STRMBINFN POINTER)                               (* ; 
+
                                                       "Either the BIN fn from the FDEV, or a trap")

+           (STRMBOUTFN POINTER)                              (* ; 
+
                                                       "Either the BIN fn from the FDEV, or a trap")

+           (OUTCHARFN POINTER)                               (* ; 
+
                                                "Called by \OUTCHAR, the normal character printer.")

+           (ENDOFSTREAMOP POINTER)                           (* ; 
+
                                                           "Called if EOF and we try to read.")

+           (OTHERPROPS POINTER)                              (* ; 
+
                                                           "PROP LIST for holding other info.")

+           (IMAGEOPS POINTER)                                (* ; "Image operations vector")

+           (IMAGEDATA POINTER)                               (* ; 
+
                                       "Image instance variables--format depends on IMAGEOPS value")

+           (BUFFS POINTER)                                   (* ; 
+
                                                           "Buffer chain for pmapped streams")

+           (MAXBUFFERS WORD)                                 (* ; 
+
                                                       "Max # of buffers the system will allocate.")

+           (LASTCCODE WORD)                                  (* ; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC.  If there is none, this field is 65535.")

+           (EXTRASTREAMOP POINTER)                           (* ; 
+
                                                    "For use of applications programs, not devices")

+           (INCCODEFN POINTER)                               (* ; "Set by \EXTERNALFORMAT")

            (PEEKCCODEFN POINTER)
            (BACKCCODEFN POINTER)
            (EXTERNALFORMAT POINTER))
           (BLOCKRECORD STREAM ((NIL 2 WORD)
                                (UCODEFLAGS1 BITS 1)
 
-                               (* ;; "respecification of access bits:")

+                               (* ;; "respecification of access bits:")

 
-                               (RANDOMWRITEABLE FLAG)        (* ; 
-
                                                   "File open for output (access = OUTPUT or BOTH)")

-                               (APPENDABLE FLAG)             (* ; 
-
                                                  "File open for append (OUTPUT or APPEND or BOTH)")

-                               (READABLE FLAG)               (* ; 
-
                                                           "File open for read (READ or BOTH)")

+                               (RANDOMWRITEABLE FLAG)        (* ; 
+
                                                   "File open for output (access = OUTPUT or BOTH)")

+                               (APPENDABLE FLAG)             (* ; 
+
                                                  "File open for append (OUTPUT or APPEND or BOTH)")

+                               (READABLE FLAG)               (* ; 
+
                                                           "File open for read (READ or BOTH)")

                                (NIL POINTER)))
           (BLOCKRECORD STREAM ((NIL 4 WORD)
                                (NIL BITS 14)
 
-                               (* ;; 
-
                             "JIS character encoding format specific, overrides CHARSET field.")

+                               (* ;; 
+
                             "JIS character encoding format specific, overrides CHARSET field.")

 
-                               (IN.KANJIIN FLAG)             (* ; 
-
                                                        "True if input stream is in Kanji-in mode.")

-                               (OUT.KANJIIN FLAG)            (* ; 
-
                                                       "True if output stream is in Kanji-in mode.")

+                               (IN.KANJIIN FLAG)             (* ; 
+
                                                        "True if input stream is in Kanji-in mode.")

+                               (OUT.KANJIIN FLAG)            (* ; 
+
                                                       "True if output stream is in Kanji-in mode.")

                                ))
           [ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS)
                              (FULLNAME (OR (fetch
 (STREAM FULLFILENAME) of
 DATUM)
@@ -809,138 +809,138 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 )
 (DECLARE%: EVAL@COMPILE
 
-(DATATYPE FDEV
 ((RESETABLE FLAG)                         (* ; "Obsolete")

+(DATATYPE FDEV
 ((RESETABLE FLAG)                         (* ; "Obsolete")

                     (RANDOMACCESSP FLAG)
                     (NODIRECTORIES FLAG)
-                    (PAGEMAPPED FLAG)                        (* ; 
-
                                                           "True if i/o handled by pmap routines")

-                    (FDBINABLE FLAG)                         (* ; 
-
                               "Copied as a microcode flag for INPUT streams formed on this device")

+                    (PAGEMAPPED FLAG)                        (* ; 
+
                                                           "True if i/o handled by pmap routines")

+                    (FDBINABLE FLAG)                         (* ; 
+
                               "Copied as a microcode flag for INPUT streams formed on this device")

                     (FDBOUTABLE FLAG)
                     (FDEXTENDABLE FLAG)
-                    (BUFFERED FLAG)                          (* ; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method")

-                    (DEVICENAME POINTER)                     (* ; "Identifying name somehow")

-                    (REMOTEP FLAG)                           (* ; 
-
                                                           "true if device not local to machine")

-                    (SUBDIRECTORIES FLAG)                    (* ; 
-
                                                           "true if device has real subdirectories")

-                    (INPUT-INDIRECTED FLAG)                  (* ; 
-
                "True for devices that indirect their input stream.  Method INPUTSTREAM fetches it")

-                    (OUTPUT-INDIRECTED FLAG)                 (* ; 
-
              "True for devices that indirect their output stream.  Method OUTPUTSTREAM fetches it")

-                    (DEVICEINFO POINTER)                     (* ; 
-
                                                       "arbitrary device-specific info stored here")

-                    (OPENFILELST POINTER)                    (* ; 
-
                                        "Default place to keep list of streams open on this device")

+                    (BUFFERED FLAG)                          (* ; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method")

+                    (DEVICENAME POINTER)                     (* ; "Identifying name somehow")

+                    (REMOTEP FLAG)                           (* ; 
+
                                                           "true if device not local to machine")

+                    (SUBDIRECTORIES FLAG)                    (* ; 
+
                                                           "true if device has real subdirectories")

+                    (INPUT-INDIRECTED FLAG)                  (* ; 
+
                "True for devices that indirect their input stream.  Method INPUTSTREAM fetches it")

+                    (OUTPUT-INDIRECTED FLAG)                 (* ; 
+
              "True for devices that indirect their output stream.  Method OUTPUTSTREAM fetches it")

+                    (DEVICEINFO POINTER)                     (* ; 
+
                                                       "arbitrary device-specific info stored here")

+                    (OPENFILELST POINTER)                    (* ; 
+
                                        "Default place to keep list of streams open on this device")

 
-                    (* ;; "-----Rest of record consists of device %"methods%"-----")

+                    (* ;; "-----Rest of record consists of device %"methods%"-----")

 
-                    (* ;; "-----Following fields required of all devices-----")

+                    (* ;; "-----Following fields required of all devices-----")

 
-                    (HOSTNAMEP POINTER)                      (* ; "(hostname {device}) => T if hostname is valid.  If device is given, return a FDEV for this {new} host, or T to use existing device")

-                    (EVENTFN POINTER)                        (* ; 
-
                                      "(device event), called before/after logout, sysout, makesys")

+                    (HOSTNAMEP POINTER)                      (* ; "(hostname {device}) => T if hostname is valid.  If device is given, return a FDEV for this {new} host, or T to use existing device")

+                    (EVENTFN POINTER)                        (* ; 
+
                                      "(device event), called before/after logout, sysout, makesys")

 
-                    (* ;; 
-
             "-----Following fields required of all named devices, e.g., ones that open files-----")

+                    (* ;; 
+
             "-----Following fields required of all named devices, e.g., ones that open files-----")

 
-                    (DIRECTORYNAMEP POINTER)                 (* ; 
-
                                                   "(host/dir) => true if directory exists on host")

-                    (OPENFILE POINTER)                       (* ; 
-
 "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found")

-                    (CLOSEFILE POINTER)                      (* ; 
-
                                                           "(stream) => closes stream, returns it")

-                    (REOPENFILE POINTER)                     (* ; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous")

-                    (GETFILENAME POINTER)                    (* ; 
-
                                                           "(name recog device) => full file name")

-                    (DELETEFILE POINTER)                     (* ; 
-
                "(name) => deletes file so named, returning name, or NIL on failure.  RECOG=OLDEST")

-                    (GENERATEFILES POINTER)                  (* ; "(device pattern) => generator object for files matching pattern.  Car of object is generator function, cdr is arbitrary state.  Generator fn returns next file, or NIL when finished")

-                    (RENAMEFILE POINTER)                     (* ; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device.")

-                    (OPENP POINTER)                          (* ; 
-
        "(name access dev) => stream if name is open for access, or all open streams if name = NIL")

-                    (REGISTERFILE POINTER)                   (* ; 
-
                                                   "(stream dev) => registers stream on its device")

-                    (UNREGISTERFILE POINTER)                 (* ; 
-
                                             "(stream dev) => unregisters a stream from its device")

-                    (FREEPAGECOUNT POINTER)                  (* ; 
-
                                                    "(host/dir dev) => # of free pages on host/dir")

-                    (MAKEDIRECTORY POINTER)                  (* ; "(host/dir dev)")

-                    (CHECKFILENAME POINTER)                  (* ; 
-
                                        "(name dev) => name if it is well-formed file name for dev")

-                    (HOSTALIVEP POINTER)                     (* ; 
-
          "(host dev) => true if host is alive, i.e., responsive;  only defined if REMOTEP is true")

-                    (BREAKCONNECTION POINTER)                (* ; 
-
                                                   "(host fastp dev) => closes connections to host")

+                    (DIRECTORYNAMEP POINTER)                 (* ; 
+
                                                   "(host/dir) => true if directory exists on host")

+                    (OPENFILE POINTER)                       (* ; 
+
 "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found")

+                    (CLOSEFILE POINTER)                      (* ; 
+
                                                           "(stream) => closes stream, returns it")

+                    (REOPENFILE POINTER)                     (* ; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous")

+                    (GETFILENAME POINTER)                    (* ; 
+
                                                           "(name recog device) => full file name")

+                    (DELETEFILE POINTER)                     (* ; 
+
                "(name) => deletes file so named, returning name, or NIL on failure.  RECOG=OLDEST")

+                    (GENERATEFILES POINTER)                  (* ; "(device pattern) => generator object for files matching pattern.  Car of object is generator function, cdr is arbitrary state.  Generator fn returns next file, or NIL when finished")

+                    (RENAMEFILE POINTER)                     (* ; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device.")

+                    (OPENP POINTER)                          (* ; 
+
        "(name access dev) => stream if name is open for access, or all open streams if name = NIL")

+                    (REGISTERFILE POINTER)                   (* ; 
+
                                                   "(stream dev) => registers stream on its device")

+                    (UNREGISTERFILE POINTER)                 (* ; 
+
                                             "(stream dev) => unregisters a stream from its device")

+                    (FREEPAGECOUNT POINTER)                  (* ; 
+
                                                    "(host/dir dev) => # of free pages on host/dir")

+                    (MAKEDIRECTORY POINTER)                  (* ; "(host/dir dev)")

+                    (CHECKFILENAME POINTER)                  (* ; 
+
                                        "(name dev) => name if it is well-formed file name for dev")

+                    (HOSTALIVEP POINTER)                     (* ; 
+
          "(host dev) => true if host is alive, i.e., responsive;  only defined if REMOTEP is true")

+                    (BREAKCONNECTION POINTER)                (* ; 
+
                                                   "(host fastp dev) => closes connections to host")

 
-                    (* ;; 
-
                  "-----The following are required methods for operating on open streams-----")

+                    (* ;; 
+
                  "-----The following are required methods for operating on open streams-----")

 
-                    (BIN POINTER)                            (* ; "(stream) => next byte of input")

-                    (BOUT POINTER)                           (* ; 
-
                                                           "(stream byte) output byte to stream")

-                    (PEEKBIN POINTER)                        (* ; 
-
                                       "(stream) => next byte without advancing position in stream")

-                    (NIL POINTER)                            (* ; 
-
                                                           "Was READCHAR, replaced by READCHARCODE")

-                    (NIL POINTER)                            (* ; 
-
                                             "Was WRITECHAR (stream char) => writes char to stream")

-                    (NIL POINTER)                            (* ; "Was PEEKCHAR")

-                    (NIL POINTER)                            (* ; "Was UNREADCHAR")

-                    (READP POINTER)                          (* ; 
-
                             "(stream flag) => T if there is input available from stream right now")

-                    (EOFP POINTER)                           (* ; 
-
                                                           "(stream) => T if BIN would signal eof.")

-                    (BLOCKIN POINTER)                        (* ; 
-
                                                           "(stream buffer byteoffset nbytes)")

-                    (BLOCKOUT POINTER)                       (* ; 
-
                                                           "(stream buffer byteoffset nbytes)")

-                    (FORCEOUTPUT POINTER)                    (* ; 
-
     "(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission")

-                    (GETFILEINFO POINTER)                    (* ; 
-
      "(stream/name attribute device) => value of attribute for open stream or name of closed file")

-                    (SETFILEINFO POINTER)                    (* ; 
-
"(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name")

-                    (CHARSETFN POINTER)                      (* ; "(stream charset) => access function for the charset slot, for benefit of indirect streams.  See IMCHARSET for changing it on a file.")

-                    (INPUTSTREAM POINTER)                    (* ; 
-
                                                           "(stream) => indirected input stream")

-                    (OUTPUTSTREAM POINTER)                   (* ; 
-
                                                           "(stream) => indirected output stream")

+                    (BIN POINTER)                            (* ; "(stream) => next byte of input")

+                    (BOUT POINTER)                           (* ; 
+
                                                           "(stream byte) output byte to stream")

+                    (PEEKBIN POINTER)                        (* ; 
+
                                       "(stream) => next byte without advancing position in stream")

+                    (NIL POINTER)                            (* ; 
+
                                                           "Was READCHAR, replaced by READCHARCODE")

+                    (NIL POINTER)                            (* ; 
+
                                             "Was WRITECHAR (stream char) => writes char to stream")

+                    (NIL POINTER)                            (* ; "Was PEEKCHAR")

+                    (NIL POINTER)                            (* ; "Was UNREADCHAR")

+                    (READP POINTER)                          (* ; 
+
                             "(stream flag) => T if there is input available from stream right now")

+                    (EOFP POINTER)                           (* ; 
+
                                                           "(stream) => T if BIN would signal eof.")

+                    (BLOCKIN POINTER)                        (* ; 
+
                                                           "(stream buffer byteoffset nbytes)")

+                    (BLOCKOUT POINTER)                       (* ; 
+
                                                           "(stream buffer byteoffset nbytes)")

+                    (FORCEOUTPUT POINTER)                    (* ; 
+
     "(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission")

+                    (GETFILEINFO POINTER)                    (* ; 
+
      "(stream/name attribute device) => value of attribute for open stream or name of closed file")

+                    (SETFILEINFO POINTER)                    (* ; 
+
"(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name")

+                    (CHARSETFN POINTER)                      (* ; "(stream charset) => access function for the charset slot, for benefit of indirect streams.  See IMCHARSET for changing it on a file.")

+                    (INPUTSTREAM POINTER)                    (* ; 
+
                                                           "(stream) => indirected input stream")

+                    (OUTPUTSTREAM POINTER)                   (* ; 
+
                                                           "(stream) => indirected output stream")

 
-                    (* ;; "-----Following are required of random-access streams-----")

+                    (* ;; "-----Following are required of random-access streams-----")

 
                     (GETFILEPTR POINTER)
                     (GETEOFPTR POINTER)
                     (SETFILEPTR POINTER)
-                    (BACKFILEPTR POINTER)                    (* ; "(stream) backs up `fileptr' by one.  Stream is only required to be able to do this once, i.e.  one-character buffer suffices")

-                    (SETEOFPTR POINTER)                      (* ; 
-
                             "(stream length) => truncates or lengthens stream to indicated length")

-                    (LASTC POINTER)                          (* ; 
-
                                                         "Should be possible only if RANDOMACCESSP")

+                    (BACKFILEPTR POINTER)                    (* ; "(stream) backs up `fileptr' by one.  Stream is only required to be able to do this once, i.e.  one-character buffer suffices")

+                    (SETEOFPTR POINTER)                      (* ; 
+
                             "(stream length) => truncates or lengthens stream to indicated length")

+                    (LASTC POINTER)                          (* ; 
+
                                                         "Should be possible only if RANDOMACCESSP")

 
-                    (* ;; "-----Following used for buffered streams-----")

+                    (* ;; "-----Following used for buffered streams-----")

 
-                    (GETNEXTBUFFER POINTER)                  (* ; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next.  whatfor is READ or WRITE.  Can cause EOF error unless noerrorflg")

-                    (RELEASEBUFFER POINTER)                  (* ; 
-
                                   "(stream) => Does whatever appropriate when CBUFPTR is released")

+                    (GETNEXTBUFFER POINTER)                  (* ; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next.  whatfor is READ or WRITE.  Can cause EOF error unless noerrorflg")

+                    (RELEASEBUFFER POINTER)                  (* ; 
+
                                   "(stream) => Does whatever appropriate when CBUFPTR is released")

 
-                    (* ;; "-----Following used for pagemapped streams-----")

+                    (* ;; "-----Following used for pagemapped streams-----")

 
-                    (READPAGES POINTER)                      (* ; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)")

-                    (WRITEPAGES POINTER)                     (* ; 
-
       "(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream")

-                    (TRUNCATEFILE POINTER)                   (* ; 
-
           "(stream page offset) make stream's eof be at page,offset, discarding anything after it")

+                    (READPAGES POINTER)                      (* ; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)")

+                    (WRITEPAGES POINTER)                     (* ; 
+
       "(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream")

+                    (TRUNCATEFILE POINTER)                   (* ; 
+
           "(stream page offset) make stream's eof be at page,offset, discarding anything after it")

 
-                    (* ;; "-----For window system, argh-----")

+                    (* ;; "-----For window system, argh-----")

 
-                    (WINDOWOPS POINTER)                      (* ; "window system operations")

-                    (WINDOWDATA POINTER)                     (* ; "data for window systems")

+                    (WINDOWOPS POINTER)                      (* ; "window system operations")

+                    (WINDOWDATA POINTER)                     (* ; "data for window systems")

 
-                    (* ;; "-----For any stream (here to not recompile everything)-----")

+                    (* ;; "-----For any stream (here to not recompile everything)-----")

 
-                    (DEFAULTEXTERNALFORMAT POINTER)          (* ; 
-
                      "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")

+                    (DEFAULTEXTERNALFORMAT POINTER)          (* ; 
+
                      "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")

                     )
                    DIRECTORYNAMEP _ (FUNCTION NILL)
                    HOSTNAMEP _ (FUNCTION NILL)
@@ -957,7 +957,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
                    OPENP _ (FUNCTION NILL)
                    UNREGISTERFILE _ (FUNCTION NILL)
                    CHARSETFN _ (FUNCTION \GENERIC.CHARSET)
-                   BREAKCONNECTION _ (FUNCTION NILL))
+                   BREAKCONNECTION _ (FUNCTION NILL)
+                   DEFAULTEXTERNALFORMAT _ *DEFAULT-EXTERNALFORMAT*)
 
 (RECORD FILEGENOBJ
 (NEXTFILEFN FILEINFOFN . GENFILESTATE))
 )
@@ -1186,22 +1187,22 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
 (DECLARE%: DOEVAL@COMPILE DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
-(DATATYPE EXTERNALFORMAT
 ((EOLVALID FLAG)                (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)")

+(DATATYPE EXTERNALFORMAT
 ((EOLVALID FLAG)                (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)")

                               (EOL BITS 2)
                               (NIL BITS 1)
-                              (INCCODEFN POINTER)            (* ; 
-
                       "Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL")

-                              (PEEKCCODEFN POINTER)          (* ; 
-
                                          "Called with three arguments -- STREAM, NOERROR, and EOL")

-                              (BACKCCODEFN POINTER)          (* ; 
-
                                    "Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL")

-                              (OUTCHARFN POINTER)            (* ; 
-
                                                 "Called with two arguments -- STREAM and CHARCODE")

-                              (NAME POINTER)                 (* ; 
-
                                 "keyword name of this format, provided to \INSTALL.EXTERNALFORMAT")

-                              (FORMATBYTESTREAMFN POINTER)   (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined")

-                              (EF1 POINTER)                  (* ; 
-
    "Extra fields for use of particular formats.  Possibly to hold standardized translation tables")

+                              (INCCODEFN POINTER)            (* ; 
+
                       "Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL")

+                              (PEEKCCODEFN POINTER)          (* ; 
+
                                          "Called with three arguments -- STREAM, NOERROR, and EOL")

+                              (BACKCCODEFN POINTER)          (* ; 
+
                                    "Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL")

+                              (OUTCHARFN POINTER)            (* ; 
+
                                                 "Called with two arguments -- STREAM and CHARCODE")

+                              (NAME POINTER)                 (* ; 
+
                                 "keyword name of this format, provided to \INSTALL.EXTERNALFORMAT")

+                              (FORMATBYTESTREAMFN POINTER)   (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined")

+                              (EF1 POINTER)                  (* ; 
+
    "Extra fields for use of particular formats.  Possibly to hold standardized translation tables")

                               (EF2 POINTER)))
 )
 
@@ -2947,8 +2948,8 @@ update the map")

 
 (PUTPROPS \CONVERT-PATHNAME
 DMACRO
 (OPENLAMBDA (PATHNAME?)
 
-                                             (* ;; 
-
      "Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns")

+                                             (* ;; 
+
      "Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns")

 
                                              (CL:TYPECASE PATHNAME?
                                                  (PATHNAME (INTERLISP-NAMESTRING PATHNAME?))
@@ -3395,44 +3396,44 @@ update the map")

 (PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 
 1990 1991 1992 1993 1999 2020 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (28411 31901 (STREAMPROP 28421 . 28855) (GETSTREAMPROP 28857 . 29330) (PUTSTREAMPROP 
-29332 . 31749) (STREAMP 31751 . 31899)) (31944 34463 (\DEFPRINT.BY.NAME 31954 . 33106) (
-\STREAM.DEFPRINT 33108 . 34156) (\FDEV.DEFPRINT 34158 . 34461)) (34721 39762 (\GETACCESS 34731 . 35185
-) (\SETACCESS 35187 . 39760)) (63079 64332 (MAKE-EXTERNALFORMAT 63089 . 64330)) (65565 73394 (
-\INSTALL.EXTERNALFORMAT 65575 . 67024) (\REMOVE.EXTERNALFORMAT 67026 . 67857) (FIND-FORMAT 67859 . 
-68676) (\EXTERNALFORMAT 68678 . 73392)) (73717 75580 (\CREATE.THROUGH.EXTERNALFORMAT 73727 . 74529) (
-\THROUGHIN 74531 . 74955) (\THROUGHBACKCCODE 74957 . 75228) (\THROUGHOUTCHARFN 75230 . 75578)) (75688 
-81657 (\DEFINEDEVICE 75698 . 78014) (\GETDEVICEFROMNAME 78016 . 78489) (\GETDEVICEFROMHOSTNAME 78491
- . 79535) (\REMOVEDEVICE 79537 . 80660) (\REMOVEDEVICE.NAMES 80662 . 81655)) (81697 106357 (\CLOSEFILE
- 81707 . 82532) (\DELETEFILE 82534 . 82828) (\DEVICEEVENT 82830 . 84600) (\GENERATEFILES 84602 . 85080
-) (\GENERATENEXTFILE 85082 . 85733) (\GENERATEFILEINFO 85735 . 86196) (\GETFILENAME 86198 . 86587) (
-\GENERIC.OUTFILEP 86589 . 87059) (\OPENFILE 87061 . 89639) (\DO.PARAMS.AT.OPEN 89641 . 92194) (
-\RENAMEFILE 92196 . 92620) (\REVALIDATEFILE 92622 . 95224) (\PAGED.REVALIDATEFILELST 95226 . 96784) (
-\PAGED.REVALIDATEFILES 96786 . 98505) (\PAGED.REVALIDATEFILE 98507 . 100790) (\BUFFERED.REVALIDATEFILE
- 100792 . 103078) (\BUFFERED.REVALIDATEFILELST 103080 . 104264) (\PRINT-REVALIDATION-RESULT 104266 . 
-104681) (\TRUNCATEFILE 104683 . 105074) (\FILE-CONFLICT 105076 . 106355)) (106393 111056 (
-\GENERATENOFILES 106403 . 108499) (\NULLFILEGENERATOR 108501 . 108745) (\NOFILESNEXTFILEFN 108747 . 
-110738) (\NOFILESINFOFN 110740 . 111054)) (111175 113083 (\FILE.NOT.OPEN 111185 . 111698) (
-\FILE.WONT.OPEN 111700 . 112028) (\ILLEGAL.DEVICEOP 112030 . 112312) (\IS.NOT.RANDACCESSP 112314 . 
-112760) (\STREAM.NOT.OPEN 112762 . 113081)) (113218 115516 (\FDEVINSTANCE 113228 . 115514)) (117066 
-124440 (CNDIR 117076 . 118381) (DIRECTORYNAME 118383 . 122566) (DIRECTORYNAMEP 122568 . 123184) (
-HOSTNAMEP 123186 . 123993) (\ADD.CONNECTED.DIR 123995 . 124438)) (124485 151872 (\BACKFILEPTR 124495
- . 124683) (\BACKPEEKBIN 124685 . 125046) (\BACKBIN 125048 . 125399) (BIN 125401 . 125618) (\BIN 
-125620 . 125897) (\BINS 125899 . 126185) (BOUT 126187 . 126549) (\BOUT 126551 . 126866) (\BOUTS 126868
- . 127179) (COPYBYTES 127181 . 130513) (COPYCHARS 130515 . 134181) (COPYFILE 134183 . 134980) (
-\COPYOPENFILE 134982 . 138055) (\INFER.FILE.TYPE 138057 . 139011) (EOFP 139013 . 139310) (FORCEOUTPUT 
-139312 . 139559) (\FLUSH.OPEN.STREAMS 139561 . 139917) (CHARSET 139919 . 141583) (ACCESS-CHARSET 
-141585 . 141802) (GETEOFPTR 141804 . 142054) (GETFILEINFO 142056 . 145249) (\TYPE.FROM.FILETYPE 145251
- . 145721) (\FILETYPE.FROM.TYPE 145723 . 145902) (GETFILEPTR 145904 . 146156) (SETFILEINFO 146158 . 
-149771) (SETFILEPTR 149773 . 151492) (BOUT16 151494 . 151679) (BIN16 151681 . 151870)) (151975 157180 
-(\GENERIC.BINS 151985 . 152265) (\GENERIC.BOUTS 152267 . 152532) (\GENERIC.RENAMEFILE 152534 . 154365)
- (\GENERIC.OPENP 154367 . 155682) (\GENERIC.READP 155684 . 156725) (\GENERIC.CHARSET 156727 . 157178))
- (157181 157520 (\MAP-OPEN-STREAMS 157191 . 157518)) (159390 161470 (\EOF.ACTION 159400 . 159651) (
-\EOSERROR 159653 . 159846) (\GETEOFPTR 159848 . 160030) (\INCFILEPTR 160032 . 160382) (\PEEKBIN 160384
- . 160575) (\SETCLOSEDFILELENGTH 160577 . 160911) (\SETEOFPTR 160913 . 161101) (\SETFILEPTR 161103 . 
-161468)) (161471 162013 (\FIXPOUT 161481 . 161781) (\FIXPIN 161783 . 162011)) (162014 162580 (\BOUTEOL
- 162024 . 162578)) (165672 175536 (\BUFFERED.BIN 165682 . 166534) (\BUFFERED.PEEKBIN 166536 . 167318) 
-(\BUFFERED.BOUT 167320 . 168180) (\BUFFERED.BINS 168182 . 171867) (\BUFFERED.BOUTS 171869 . 173670) (
-\BUFFERED.COPYBYTES 173672 . 175534)) (175565 177917 (\NULLDEVICE 175575 . 177593) (\NULL.OPENFILE 
-177595 . 177915)))))
+  (FILEMAP (NIL (28396 31886 (STREAMPROP 28406 . 28840) (GETSTREAMPROP 28842 . 29315) (PUTSTREAMPROP 
+29317 . 31734) (STREAMP 31736 . 31884)) (31929 34448 (\DEFPRINT.BY.NAME 31939 . 33091) (
+\STREAM.DEFPRINT 33093 . 34141) (\FDEV.DEFPRINT 34143 . 34446)) (34706 39747 (\GETACCESS 34716 . 35170
+) (\SETACCESS 35172 . 39745)) (63132 64385 (MAKE-EXTERNALFORMAT 63142 . 64383)) (65618 73447 (
+\INSTALL.EXTERNALFORMAT 65628 . 67077) (\REMOVE.EXTERNALFORMAT 67079 . 67910) (FIND-FORMAT 67912 . 
+68729) (\EXTERNALFORMAT 68731 . 73445)) (73770 75633 (\CREATE.THROUGH.EXTERNALFORMAT 73780 . 74582) (
+\THROUGHIN 74584 . 75008) (\THROUGHBACKCCODE 75010 . 75281) (\THROUGHOUTCHARFN 75283 . 75631)) (75741 
+81710 (\DEFINEDEVICE 75751 . 78067) (\GETDEVICEFROMNAME 78069 . 78542) (\GETDEVICEFROMHOSTNAME 78544
+ . 79588) (\REMOVEDEVICE 79590 . 80713) (\REMOVEDEVICE.NAMES 80715 . 81708)) (81750 106410 (\CLOSEFILE
+ 81760 . 82585) (\DELETEFILE 82587 . 82881) (\DEVICEEVENT 82883 . 84653) (\GENERATEFILES 84655 . 85133
+) (\GENERATENEXTFILE 85135 . 85786) (\GENERATEFILEINFO 85788 . 86249) (\GETFILENAME 86251 . 86640) (
+\GENERIC.OUTFILEP 86642 . 87112) (\OPENFILE 87114 . 89692) (\DO.PARAMS.AT.OPEN 89694 . 92247) (
+\RENAMEFILE 92249 . 92673) (\REVALIDATEFILE 92675 . 95277) (\PAGED.REVALIDATEFILELST 95279 . 96837) (
+\PAGED.REVALIDATEFILES 96839 . 98558) (\PAGED.REVALIDATEFILE 98560 . 100843) (\BUFFERED.REVALIDATEFILE
+ 100845 . 103131) (\BUFFERED.REVALIDATEFILELST 103133 . 104317) (\PRINT-REVALIDATION-RESULT 104319 . 
+104734) (\TRUNCATEFILE 104736 . 105127) (\FILE-CONFLICT 105129 . 106408)) (106446 111109 (
+\GENERATENOFILES 106456 . 108552) (\NULLFILEGENERATOR 108554 . 108798) (\NOFILESNEXTFILEFN 108800 . 
+110791) (\NOFILESINFOFN 110793 . 111107)) (111228 113136 (\FILE.NOT.OPEN 111238 . 111751) (
+\FILE.WONT.OPEN 111753 . 112081) (\ILLEGAL.DEVICEOP 112083 . 112365) (\IS.NOT.RANDACCESSP 112367 . 
+112813) (\STREAM.NOT.OPEN 112815 . 113134)) (113271 115569 (\FDEVINSTANCE 113281 . 115567)) (117119 
+124493 (CNDIR 117129 . 118434) (DIRECTORYNAME 118436 . 122619) (DIRECTORYNAMEP 122621 . 123237) (
+HOSTNAMEP 123239 . 124046) (\ADD.CONNECTED.DIR 124048 . 124491)) (124538 151925 (\BACKFILEPTR 124548
+ . 124736) (\BACKPEEKBIN 124738 . 125099) (\BACKBIN 125101 . 125452) (BIN 125454 . 125671) (\BIN 
+125673 . 125950) (\BINS 125952 . 126238) (BOUT 126240 . 126602) (\BOUT 126604 . 126919) (\BOUTS 126921
+ . 127232) (COPYBYTES 127234 . 130566) (COPYCHARS 130568 . 134234) (COPYFILE 134236 . 135033) (
+\COPYOPENFILE 135035 . 138108) (\INFER.FILE.TYPE 138110 . 139064) (EOFP 139066 . 139363) (FORCEOUTPUT 
+139365 . 139612) (\FLUSH.OPEN.STREAMS 139614 . 139970) (CHARSET 139972 . 141636) (ACCESS-CHARSET 
+141638 . 141855) (GETEOFPTR 141857 . 142107) (GETFILEINFO 142109 . 145302) (\TYPE.FROM.FILETYPE 145304
+ . 145774) (\FILETYPE.FROM.TYPE 145776 . 145955) (GETFILEPTR 145957 . 146209) (SETFILEINFO 146211 . 
+149824) (SETFILEPTR 149826 . 151545) (BOUT16 151547 . 151732) (BIN16 151734 . 151923)) (152028 157233 
+(\GENERIC.BINS 152038 . 152318) (\GENERIC.BOUTS 152320 . 152585) (\GENERIC.RENAMEFILE 152587 . 154418)
+ (\GENERIC.OPENP 154420 . 155735) (\GENERIC.READP 155737 . 156778) (\GENERIC.CHARSET 156780 . 157231))
+ (157234 157573 (\MAP-OPEN-STREAMS 157244 . 157571)) (159443 161523 (\EOF.ACTION 159453 . 159704) (
+\EOSERROR 159706 . 159899) (\GETEOFPTR 159901 . 160083) (\INCFILEPTR 160085 . 160435) (\PEEKBIN 160437
+ . 160628) (\SETCLOSEDFILELENGTH 160630 . 160964) (\SETEOFPTR 160966 . 161154) (\SETFILEPTR 161156 . 
+161521)) (161524 162066 (\FIXPOUT 161534 . 161834) (\FIXPIN 161836 . 162064)) (162067 162633 (\BOUTEOL
+ 162077 . 162631)) (165725 175589 (\BUFFERED.BIN 165735 . 166587) (\BUFFERED.PEEKBIN 166589 . 167371) 
+(\BUFFERED.BOUT 167373 . 168233) (\BUFFERED.BINS 168235 . 171920) (\BUFFERED.BOUTS 171922 . 173723) (
+\BUFFERED.COPYBYTES 173725 . 175587)) (175618 177970 (\NULLDEVICE 175628 . 177646) (\NULL.OPENFILE 
+177648 . 177968)))))
 STOP

sources/FONTPROFILE

@@ -1,103 +1,103 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "28-Jun-99 22:10:46" {DSK}<project>medley3.5>sources>FONTPROFILE.;2
 29960  
+
(FILECREATED " 6-Sep-2021 19:11:32" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4
 30288  
 
-      changes to%:  (VARS FONTPROFILECOMS)
-                    (ALISTS (FONTDEFS NS)
-                           (FONTDEFS BIGGERNS))
+      changes to%:  (ALISTS (FONTDEFS BIGGERNS))
 
-      previous date%: " 9-Jul-91 18:38:04" {DSK}<project>medley3.5>sources>FONTPROFILE.;1)
+      previous date%: " 6-Sep-2021 15:52:13" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2)
 
 
 (* ; "
-Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT FONTPROFILECOMS)
 
 (RPAQQ FONTPROFILECOMS

        (
-        (* ;; "FONT")

+        (* ;; "FONT")

 
         (ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS))
         (ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
         [VARS (FONTVARS '(
-                          (* ;; "standard size fonts. Assumes only DEFAULTFONT set")

+                          (* ;; "standard size fonts. Assumes only DEFAULTFONT set")

 
                           (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
-                                                             (* ; "default  BOLD")

+                                                             (* ; "default  BOLD")

                           (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
                           (LITTLEFONT DEFAULTFONT)
-                                                             (* ; " should usually be smaller")

+                                                             (* ; " should usually be smaller")

                           (TINYFONT LITTLEFONT)
-                                                             (* ; "and this one smaller still")

+                                                             (* ; "and this one smaller still")

                           (BIGFONT BOLDFONT)
-                                                             (* ; "should be bigger still")

+                                                             (* ; "should be bigger still")

                           (TEXTFONT DEFAULTFONT)
-                                                             (* ; "default for text")

+                                                             (* ; "default for text")

                           (TEXTBOLDFONT BOLDFONT)
-                                                             (* ; "default for bold text")

+                                                             (* ; "default for bold text")

                           
-                          (* ;; "")

+                          (* ;; "")

 
                           
-                          (* ;; "Fonts for window system, processes")

+                          (* ;; "Fonts for window system, processes")

 
                           
-                          (* ;; "")

+                          (* ;; "")

 
                           (MENUFONT DEFAULTFONT T)
                           (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
-                                                             (* ; "if not supplied")

+                                                             (* ; "if not supplied")

                           (INTERRUPTMENUFONT DEFAULTFONT T)
-                                                             (* ; "used by control-B")

+                                                             (* ; "used by control-B")

                           (DEFAULTICONFONT MENUFONT)
-                                                             (* ; "for shrinking windows")

+                                                             (* ; "for shrinking windows")

                           (BACKTRACEFONT TINYFONT T)
-                                                             (* ; " for backtrace in debugger")

+                                                             (* ; " for backtrace in debugger")

                           (WINDOWTITLEFONT MENUFONT)
                           ((WINDOWTITLEFONT WINDOWTITLEFONT)
                            NIL)
-                                                             (* ; " used for titles of all windows")

+                                                             (* ; " used for titles of all windows")

                           
-                          (* ;; "")

+                          (* ;; "")

 
                           
-                          (* ;; "Fonts for Exec")

+                          (* ;; "Fonts for Exec")

 
                           
-                          (* ;; "")

+                          (* ;; "")

 
                           (PROMPTFONT LITTLEFONT)
-                                                             (* ; "for printing out prompts")

+                                                             (* ; "for printing out prompts")

                           (INPUTFONT BOLDFONT)
-                                                             (* ; "for user typein in Exec")

+                                                             (* ; "for user typein in Exec")

                           (PRINTOUTFONT DEFAULTFONT)
-                                                             (* ; " for intermediate typin in Exec")

+                                                             (* ; " for intermediate typin in Exec")

                           (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
                           (VALUEFONT DEFAULTFONT)
-                                                             (* ; 
-
                                                        " for printing out values returned in Exec")

+                                                             (* ; 
+
                                                        " for printing out values returned in Exec")

                           
-                          (* ;; "")

+                          (* ;; "")

 
                           
-                          (* ;; "Fonts for prettyprinting")

+                          (* ;; "Fonts for prettyprinting")

 
                           
-                          (* ;; "")

+                          (* ;; "")

 
                           (COMMENTFONT LITTLEFONT)
-                                                             (* ; "for comments ")

+                                                             (* ; "for comments ")

                           (PRETTYCOMFONT BOLDFONT)
-                                                             (* ; " for words being defined")

+                                                             (* ; " for words being defined")

                           (CLISPFONT BOLDFONT)
-                                                             (* ; " for keywords & CLISP")

+                                                             (* ; " for keywords & CLISP")

                           (SYSTEMFONT DEFAULTFONT)
-                                                             (* ; " for %"system%" words(?)")

+                                                             (* ; " for %"system%" words(?)")

                           (LAMBDAFONT BIGFONT)
-                                                             (* ; "for words being defined")

+                                                             (* ; "for words being defined")

                           (USERFONT BOLDFONT)
-                                                             (* ; " for %"user%" defined words")
]
+                                                             (* ; " for %"user%" defined words")
]
         (P (MOVD? 'NILL 'WINDOWTITLEFONT))
         (FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE)
         (INITVARS (FONTESCAPECHAR (CHARACTER 6))
@@ -242,7 +242,11 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation.  All ri
                             (MODERN 8 MIR))
                      (BIGFONT 4 (MODERN 12 BRR)
                             (MODERN 10 BRR)
-                            (MODERN 10 BRR]
+                            (MODERN 10 BRR))
+                     (MENUFONT 5 (MODERN 10))
+                     (COMMENTFONT 6 (MODERN 8)
+                            (MODERN 6 MIR)
+                            (MODERN 8 MIR]
           [BIGGERNS (FONTCHANGEFLG . ALL)
                  (FILELINELENGTH . 102)
                  (COMMENTLINELENGTH 116 . 126)
@@ -263,89 +267,93 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation.  All ri
                                (MODERN 8 MIR))
                         (BIGFONT 4 (MODERN 14 BRR)
                                (MODERN 10 BRR)
-                               (MODERN 10 BRR])
+                               (MODERN 10 BRR))
+                        (MENUFONT 5 (MODERN 12))
+                        (COMMENTFONT 6 (MODERN 10)
+                               (MODERN 8 MIR)
+                               (MODERN 10 MIR])
 
 (ADDTOVAR CACHEDMENUS
 BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
 
 (RPAQQ FONTVARS

        (
-        (* ;; "standard size fonts. Assumes only DEFAULTFONT set")

+        (* ;; "standard size fonts. Assumes only DEFAULTFONT set")

 
         (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
-                                                             (* ; "default  BOLD")

+                                                             (* ; "default  BOLD")

         (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
         (LITTLEFONT DEFAULTFONT)
-                                                             (* ; " should usually be smaller")

+                                                             (* ; " should usually be smaller")

         (TINYFONT LITTLEFONT)
-                                                             (* ; "and this one smaller still")

+                                                             (* ; "and this one smaller still")

         (BIGFONT BOLDFONT)
-                                                             (* ; "should be bigger still")

+                                                             (* ; "should be bigger still")

         (TEXTFONT DEFAULTFONT)
-                                                             (* ; "default for text")

+                                                             (* ; "default for text")

         (TEXTBOLDFONT BOLDFONT)
-                                                             (* ; "default for bold text")

+                                                             (* ; "default for bold text")

         
-        (* ;; "")

+        (* ;; "")

 
         
-        (* ;; "Fonts for window system, processes")

+        (* ;; "Fonts for window system, processes")

 
         
-        (* ;; "")

+        (* ;; "")

 
         (MENUFONT DEFAULTFONT T)
         (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
-                                                             (* ; "if not supplied")

+                                                             (* ; "if not supplied")

         (INTERRUPTMENUFONT DEFAULTFONT T)
-                                                             (* ; "used by control-B")

+                                                             (* ; "used by control-B")

         (DEFAULTICONFONT MENUFONT)
-                                                             (* ; "for shrinking windows")

+                                                             (* ; "for shrinking windows")

         (BACKTRACEFONT TINYFONT T)
-                                                             (* ; " for backtrace in debugger")

+                                                             (* ; " for backtrace in debugger")

         (WINDOWTITLEFONT MENUFONT)
         ((WINDOWTITLEFONT WINDOWTITLEFONT)
          NIL)
-                                                             (* ; " used for titles of all windows")

+                                                             (* ; " used for titles of all windows")

         
-        (* ;; "")

+        (* ;; "")

 
         
-        (* ;; "Fonts for Exec")

+        (* ;; "Fonts for Exec")

 
         
-        (* ;; "")

+        (* ;; "")

 
         (PROMPTFONT LITTLEFONT)
-                                                             (* ; "for printing out prompts")

+                                                             (* ; "for printing out prompts")

         (INPUTFONT BOLDFONT)
-                                                             (* ; "for user typein in Exec")

+                                                             (* ; "for user typein in Exec")

         (PRINTOUTFONT DEFAULTFONT)
-                                                             (* ; " for intermediate typin in Exec")

+                                                             (* ; " for intermediate typin in Exec")

         (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
         (VALUEFONT DEFAULTFONT)
-                                                             (* ; 
-
                                                        " for printing out values returned in Exec")

+                                                             (* ; 
+
                                                        " for printing out values returned in Exec")

         
-        (* ;; "")

+        (* ;; "")

 
         
-        (* ;; "Fonts for prettyprinting")

+        (* ;; "Fonts for prettyprinting")

 
         
-        (* ;; "")

+        (* ;; "")

 
         (COMMENTFONT LITTLEFONT)
-                                                             (* ; "for comments ")

+                                                             (* ; "for comments ")

         (PRETTYCOMFONT BOLDFONT)
-                                                             (* ; " for words being defined")

+                                                             (* ; " for words being defined")

         (CLISPFONT BOLDFONT)
-                                                             (* ; " for keywords & CLISP")

+                                                             (* ; " for keywords & CLISP")

         (SYSTEMFONT DEFAULTFONT)
-                                                             (* ; " for %"system%" words(?)")

+                                                             (* ; " for %"system%" words(?)")

         (LAMBDAFONT BIGFONT)
-                                                             (* ; "for words being defined")

+                                                             (* ; "for words being defined")

         (USERFONT BOLDFONT)
-                                                             (* ; " for %"user%" defined words")
))
+                                                             (* ; " for %"user%" defined words")
))
 
 (MOVD? 'NILL 'WINDOWTITLEFONT)
 (DEFINEQ
@@ -591,8 +599,8 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation.  All ri
 
 (SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
        1 FILERDTBL)
-(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999))
+(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (16000 27584 (FONTSET 16010 . 22351) (FONTPROFILE 22353 . 24702) (FONTPROFILE.ADDDEVICE 
-24704 . 27582)) (27820 29719 (FONTMAPARRAY 27830 . 29717)))))
+  (FILEMAP (NIL (16323 27907 (FONTSET 16333 . 22674) (FONTPROFILE 22676 . 25025) (FONTPROFILE.ADDDEVICE 
+25027 . 27905)) (28143 30042 (FONTMAPARRAY 28153 . 30040)))))
 STOP

sources/FONTPROFILEPATCH

@@ -1,608 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-
(FILECREATED "12-Mar-93 11:02:28" {DSK}<project>medley2.0>patches>FONTPROFILEPATCH.;4
 30621  
-
-      changes to%:  (ALISTS (FONTDEFS HUGE)
-                           (FONTDEFS BIG)
-                           (FONTDEFS MEDIUM)
-                           (FONTDEFS STANDARD)
-                           (FONTDEFS BIGGER)
-                           (FONTDEFS BIGGERNS)
-                           (FONTDEFS NS))
-
-      previous date%: "11-Mar-93 11:51:49" {DSK}<project>medley2.0>patches>FONTPROFILEPATCH.;3)
-
-
-(* ; "
-Copyright (c) 1993 by Xerox Corporation.  All rights reserved.
-")
-
-(PRETTYCOMPRINT FONTPROFILEPATCHCOMS)
-
-(RPAQQ FONTPROFILEPATCHCOMS

-       (
-        (* ;; "FONT")

-
-        (ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER BIGGERNS NS))
-        (ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
-        [VARS (FONTVARS '(
-                          (* ;; "standard size fonts. Assumes only DEFAULTFONT set")

-
-                          (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
-                                                             (* ; "default  BOLD")

-                          (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
-                          (LITTLEFONT DEFAULTFONT)
-                                                             (* ; " should usually be smaller")

-                          (TINYFONT LITTLEFONT)
-                                                             (* ; "and this one smaller still")

-                          (BIGFONT BOLDFONT)
-                                                             (* ; "should be bigger still")

-                          (TEXTFONT DEFAULTFONT)
-                                                             (* ; "default for text")

-                          (TEXTBOLDFONT BOLDFONT)
-                                                             (* ; "default for bold text")

-                          
-                          (* ;; "")

-
-                          
-                          (* ;; "Fonts for window system, processes")

-
-                          
-                          (* ;; "")

-
-                          (MENUFONT DEFAULTFONT T)
-                          (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
-                                                             (* ; "if not supplied")

-                          (INTERRUPTMENUFONT DEFAULTFONT T)
-                                                             (* ; "used by control-B")

-                          (DEFAULTICONFONT MENUFONT)
-                                                             (* ; "for shrinking windows")

-                          (BACKTRACEFONT TINYFONT T)
-                                                             (* ; " for backtrace in debugger")

-                          (WINDOWTITLEFONT MENUFONT)
-                          ((WINDOWTITLEFONT WINDOWTITLEFONT)
-                           NIL)
-                                                             (* ; " used for titles of all windows")

-                          
-                          (* ;; "")

-
-                          
-                          (* ;; "Fonts for Exec")

-
-                          
-                          (* ;; "")

-
-                          (PROMPTFONT LITTLEFONT)
-                                                             (* ; "for printing out prompts")

-                          (INPUTFONT BOLDFONT)
-                                                             (* ; "for user typein in Exec")

-                          (PRINTOUTFONT DEFAULTFONT)
-                                                             (* ; " for intermediate typin in Exec")

-                          (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
-                          (VALUEFONT DEFAULTFONT)
-                                                             (* ; 
-
                                                        " for printing out values returned in Exec")

-                          
-                          (* ;; "")

-
-                          
-                          (* ;; "Fonts for prettyprinting")

-
-                          
-                          (* ;; "")

-
-                          (COMMENTFONT LITTLEFONT)
-                                                             (* ; "for comments ")

-                          (PRETTYCOMFONT BOLDFONT)
-                                                             (* ; " for words being defined")

-                          (CLISPFONT BOLDFONT)
-                                                             (* ; " for keywords & CLISP")

-                          (SYSTEMFONT DEFAULTFONT)
-                                                             (* ; " for %"system%" words(?)")

-                          (LAMBDAFONT BIGFONT)
-                                                             (* ; "for words being defined")

-                          (USERFONT BOLDFONT)
-                                                             (* ; " for %"user%" defined words")
]
-        (P (MOVD? 'NILL 'WINDOWTITLEFONT))
-        (FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE)
-        (INITVARS (FONTESCAPECHAR (CHARACTER 6))
-               (FONTFNS)
-               (FONTWORDS))
-        [DECLARE%: DONTEVAL@LOAD DOCOPY (P (FONTSET 'STANDARD]
-        (GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS)
-        (FNS FONTMAPARRAY)
-        (INITVARS (\FONTMAPCACHE))
-        (P (SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
-                  1 FILERDTBL))))
-
-
-
-(* ;; "FONT")

-
-
-(ADDTOVAR FONTDEFS

-          [HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24)
-                                    NIL
-                                    (TERMINAL 8))
-                       (BOLDFONT 2 (MODERN 24 BRR)
-                              NIL
-                              (MODERN 8 BRR))
-                       (LITTLEFONT 3 (MODERN 18 MRR)
-                              NIL
-                              (MODERN 8 MIR))
-                       (BIGFONT 4 (MODERN 36 BRR)
-                              NIL
-                              (MODERN 10 BRR))
-                       (TEXTFONT 5 (CLASSIC 24)
-                              NIL
-                              (CLASSIC 10))
-                       (TEXTBOLDFONT 7 (CLASSIC 24 BRR)
-                              NIL
-                              (CLASSIC 10 BRR]
-          [BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18)
-                                   NIL
-                                   (TERMINAL 8))
-                      (TEXTFONT 5 (CLASSIC 18)
-                             NIL
-                             (CLASSIC 10))
-                      (BOLDFONT 2 (MODERN 18 BRR)
-                             NIL
-                             (MODERN 8 BRR))
-                      (LITTLEFONT 3 (MODERN 12 MRR)
-                             NIL
-                             (MODERN 8 MIR))
-                      (BIGFONT 4 (MODERN 24 BRR)
-                             NIL
-                             (MODERN 10 BRR))
-                      (TEXTBOLDFONT 7 (CLASSIC 18 BRR)
-                             NIL
-                             (CLASSIC 10 BRR]
-          [MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14)
-                                      NIL
-                                      (TERMINAL 8))
-                         (BOLDFONT 2 (MODERN 14 BRR)
-                                NIL
-                                (MODERN 8 BRR))
-                         (LITTLEFONT 3 (MODERN 10)
-                                NIL
-                                (MODERN 8 MIR))
-                         (BIGFONT 4 (MODERN 18)
-                                NIL
-                                (MODERN 10 BRR))
-                         (TEXTFONT 5 (CLASSIC 14)
-                                NIL
-                                (CLASSIC 10))
-                         (TEXTBOLDFONT 7 (CLASSIC 14 BRR)
-                                NIL
-                                (CLASSIC 10 BRR]
-          [STANDARD (FONTCHANGEFLG . ALL)
-                 (FILELINELENGTH . 102)
-                 (FONTPROFILE (DEFAULTFONT 1 (GACHA 10)
-                                     (GACHA 8)
-                                     (TERMINAL 8))
-                        (ITALICFONT 1 (HELVETICA 10 MIR)
-                               (GACHA 8 MIR)
-                               (MODERN 8 MIR))
-                        (BOLDFONT 2 (HELVETICA 10 BRR)
-                               (HELVETICA 8 BRR)
-                               (MODERN 8 BRR))
-                        (LITTLEFONT 3 (HELVETICA 8)
-                               (HELVETICA 6 MIR)
-                               (MODERN 8 MIR))
-                        (TINYFONT 6 (GACHA 8)
-                               (GACHA 6)
-                               (TERMINAL 6))
-                        (BIGFONT 4 (HELVETICA 12 BRR)
-                               NIL
-                               (MODERN 10 BRR))
-                        (MENUFONT 5 (HELVETICA 10))
-                        (COMMENTFONT 6 (HELVETICA 10)
-                               (HELVETICA 8)
-                               (MODERN 8))
-                        (TEXTFONT 7 (TIMESROMAN 10)
-                               NIL
-                               (CLASSIC 10]
-          [BIGGER (FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
-                                      NIL
-                                      (TERMINAL 8))
-                         (ITALICFONT 1 (HELVETICA 12 MIR)
-                                (GACHA 8 MIR)
-                                (MODERN 8 MIR))
-                         (BOLDFONT 2 (HELVETICA 12 BRR)
-                                (HELVETICA 8 BRR)
-                                (MODERN 8 BRR))
-                         (LITTLEFONT 3 (HELVETICA 10)
-                                (HELVETICA 6 MIR)
-                                (MODERN 8 MIR))
-                         (TINYFONT 6 (GACHA 10)
-                                (GACHA 6)
-                                (TERMINAL 6))
-                         (BIGFONT 4 (HELVETICA 14 BRR)
-                                NIL
-                                (MODERN 10 BRR))
-                         (MENUFONT 5 (HELVETICA 12))
-                         (COMMENTFONT 6 (HELVETICA 12)
-                                (HELVETICA 8)
-                                (MODERN 8))
-                         (TEXTFONT 7 (TIMESROMAN 12)
-                                NIL
-                                (CLASSIC 10]
-          [BIGGERNS (FONTCHANGEFLG . ALL)
-                 (FILELINELENGTH . 102)
-                 (COMMENTLINELENGTH 116 . 126)
-                 (FIRSTCOL . 60)
-                 (PRETTYLCOM . 25)
-                 (FONTESCAPECHAR . %)
-                 (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12)
-                                     (TERMINAL 8)
-                                     (TERMINAL 8))
-                        (ITALICFONT 1 (MODERN 12 BIR)
-                               (MODERN 8 BIR)
-                               (MODERN 8 BIR))
-                        (BOLDFONT 2 (MODERN 12 BRR)
-                               (MODERN 8 BRR)
-                               (MODERN 8 BRR))
-                        (LITTLEFONT 3 (MODERN 10)
-                               (MODERN 6 MIR)
-                               (MODERN 8 MIR))
-                        (BIGFONT 4 (MODERN 14 BRR)
-                               (MODERN 10 BRR)
-                               (MODERN 10 BRR]
-          [NS (FONTCHANGEFLG . ALL)
-              (FILELINELENGTH . 102)
-              (COMMENTLINELENGTH 116 . 126)
-              (FIRSTCOL . 60)
-              (PRETTYLCOM . 25)
-              (FONTESCAPECHAR . %)
-              (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10)
-                                  (TERMINAL 8)
-                                  (TERMINAL 8))
-                     (ITALICFONT 1 (MODERN 10 BIR)
-                            (MODERN 8 BIR)
-                            (MODERN 8 BIR))
-                     (BOLDFONT 2 (MODERN 10 BRR)
-                            (MODERN 8 BRR)
-                            (MODERN 8 BRR))
-                     (LITTLEFONT 3 (MODERN 8)
-                            (MODERN 6 MIR)
-                            (MODERN 8 MIR))
-                     (BIGFONT 4 (MODERN 12 BRR)
-                            (MODERN 10 BRR)
-                            (MODERN 10 BRR])
-
-(ADDTOVAR CACHEDMENUS
 BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
-
-(RPAQQ FONTVARS

-       (
-        (* ;; "standard size fonts. Assumes only DEFAULTFONT set")

-
-        (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
-                                                             (* ; "default  BOLD")

-        (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
-        (LITTLEFONT DEFAULTFONT)
-                                                             (* ; " should usually be smaller")

-        (TINYFONT LITTLEFONT)
-                                                             (* ; "and this one smaller still")

-        (BIGFONT BOLDFONT)
-                                                             (* ; "should be bigger still")

-        (TEXTFONT DEFAULTFONT)
-                                                             (* ; "default for text")

-        (TEXTBOLDFONT BOLDFONT)
-                                                             (* ; "default for bold text")

-        
-        (* ;; "")

-
-        
-        (* ;; "Fonts for window system, processes")

-
-        
-        (* ;; "")

-
-        (MENUFONT DEFAULTFONT T)
-        (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
-                                                             (* ; "if not supplied")

-        (INTERRUPTMENUFONT DEFAULTFONT T)
-                                                             (* ; "used by control-B")

-        (DEFAULTICONFONT MENUFONT)
-                                                             (* ; "for shrinking windows")

-        (BACKTRACEFONT TINYFONT T)
-                                                             (* ; " for backtrace in debugger")

-        (WINDOWTITLEFONT MENUFONT)
-        ((WINDOWTITLEFONT WINDOWTITLEFONT)
-         NIL)
-                                                             (* ; " used for titles of all windows")

-        
-        (* ;; "")

-
-        
-        (* ;; "Fonts for Exec")

-
-        
-        (* ;; "")

-
-        (PROMPTFONT LITTLEFONT)
-                                                             (* ; "for printing out prompts")

-        (INPUTFONT BOLDFONT)
-                                                             (* ; "for user typein in Exec")

-        (PRINTOUTFONT DEFAULTFONT)
-                                                             (* ; " for intermediate typin in Exec")

-        (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
-        (VALUEFONT DEFAULTFONT)
-                                                             (* ; 
-
                                                        " for printing out values returned in Exec")

-        
-        (* ;; "")

-
-        
-        (* ;; "Fonts for prettyprinting")

-
-        
-        (* ;; "")

-
-        (COMMENTFONT LITTLEFONT)
-                                                             (* ; "for comments ")

-        (PRETTYCOMFONT BOLDFONT)
-                                                             (* ; " for words being defined")

-        (CLISPFONT BOLDFONT)
-                                                             (* ; " for keywords & CLISP")

-        (SYSTEMFONT DEFAULTFONT)
-                                                             (* ; " for %"system%" words(?)")

-        (LAMBDAFONT BIGFONT)
-                                                             (* ; "for words being defined")

-        (USERFONT BOLDFONT)
-                                                             (* ; " for %"user%" defined words")
))
-
-(MOVD? 'NILL 'WINDOWTITLEFONT)
-(DEFINEQ
-
-(FONTSET

-  [LAMBDA (NAME CHANGE-WINDOWS?)                             (* ; "Edited 23-Jun-88 10:46 by jds")

-    (COND
-       [NAME
-        (LET
-         [(TEM (FASSOC NAME FONTDEFS))
-          (OLDDEFAULT (FONTCREATE DEFAULTFONT NIL NIL NIL 'DISPLAY]
-         (OR TEM (ERROR NAME "not a defined font configuration"))
-
-         (* ;; "Looks up NAME on FONTSLST and sets apropriate parameters.  entries are added to fontslst by FONTNAME.")

-
-         (for
 X in
 FONTVARS when
 (AND (CL:SYMBOLP (CAR X))
-                                                  (NEQ (CAR X)
-                                                       '*)
-                                                  (NEQ (CAR X)
-                                                       (CADR X))) do
 (SETTOPVAL (CAR X)))
-         [MAPC (CDR TEM)
-               (FUNCTION (LAMBDA (X)
-                           (/SETTOPVAL (CAR X)
-                                  (CDR X]
-         [PROG (BASICCLASSES)
-               (for
 X in
 FONTPROFILE
-                  do
 (PROG (SEEN (NAME (CAR X))
-                                     (FONTS X))
-                           LP  [COND
-                                  ((MEMB (CAR FONTS)
-                                         SEEN)
-                                   (ERROR "Circular font profile specification" X))
-                                  (T (push
 SEEN (CAR FONTS]
-                               [SETQ FONTS (CDR (COND
-                                                   ((OR (NULL (CADR FONTS))
-                                                        (LISTP (CADR FONTS)))
-                                                             (*)

-                                                             (* ; 
-
                                   "This skips over the now-defunct NIL or list-of-escape sequence")

-                                                    (CDR FONTS))
-                                                   (T FONTS]
-                               (COND
-                                  ((OR (NLISTP FONTS)
-                                       (LITATOM (CAR FONTS)))(* ; 
-
                                                           "Indirect thru another's font spec")

-                                   (AND (SETQ FONTS (ASSOC (SELECTQ (CAR (LISTP FONTS))
-                                                               ((NIL DEFAULTFONT) 
-                                                             (* ; 
-
                                                           "Don't let DEFAULTFONT loop thru itself")

-                                                                    (AND (NOT (MEMB 'DEFAULTFONT SEEN
-                                                                                    ))
-                                                                         'DEFAULTFONT))
-                                                               (CAR FONTS))
-                                                           FONTPROFILE))
-                                        (GO LP)))
-                                  (T [push
 BASICCLASSES (SETQ FONTS (FONTCLASS NAME FONTS
-                                                                               'DISPLAY]
-                                                             (* ; 
-
                                                           "Now we have a font class datastructure")

-                                     ))
-                               (AND NAME (/SETTOPVAL NAME FONTS))
-
-                          (* ;; "NIL for the class-name means just establish the font-correspondences but don't connect them up with a pretty class name.")

-
-                           ))
-               (AND BASICCLASSES (FONTMAPARRAY
 BASICCLASSES 'DISPLAY]
-         [for
 X in
 FONTVARS when
 (NEQ (CAR X)
-                                                  '*)
-            do
 (COND
-                      ((LISTP (CAR X))
-                       (EVAL (CAR X)))
-                      [(CADDR X)
-                       (SET (CAR X)
-                            (FONTCREATE (OR (GETTOPVAL (CAR X))
-                                            (EVAL (CADR X))
-                                            DEFAULTFONT)
-                                   NIL NIL NIL 'DISPLAY]
-                      (T (OR (GETTOPVAL (CAR X))
-                             (AND (CADR X)
-                                  (SET (CAR X)
-                                       (EVAL (CADR X]
-         (CL:WHEN CHANGE-WINDOWS?
-             (CL:WHEN (NEQ OLDDEFAULT (FONTCREATE DEFAULTFONT NIL NIL NIL 'DISPLAY))
-                 (for
 X in
 (OPENWINDOWS) when
 (EQ OLDDEFAULT (DSPFONT NIL X))
-                    do
 (DSPFONT DEFAULTFONT X)))
-             (DSPFONT WINDOWTITLEFONT WindowTitleDisplayStream)
-             (SETQ MaxValueLeftMargin (ITIMES 35 (STRINGWIDTH 'A DEFAULTFONT)))
-             (MAPC CACHEDMENUS 'SET)
-             [for
 W in
 (OPENWINDOWS) do
 [COND
-                                                       [(OR (EQ (WINDOWPROP W 'RESHAPEFN)
-                                                                'DONT)
-                                                            (WINDOWPROP W 'MAINWINDOW]
-                                                       (T 
-                                                          (* ;; 
-
                                 "don't reshape if can't or if this window is attached to another.")

-
-                                                          (SHAPEW W (WINDOWREGION W]
-                                                   (COND
-                                                      ((AND (NEQ (WINDOWPROP W 'WINDOWENTRYFN)
-                                                                 (FUNCTION \TEDIT.PROCIDLEFN))
-                                                            (WINDOWPROP W 'REPAINTFN))
-                                                       (REDISPLAYW W])
-
-         (* ;; "Set the new font profile name, and return the old one, so he can restore later.")

-
-         (PROG1 FONTNAME (SETQ FONTNAME NAME]
-       (T                                                    (* ; 
-
                                         "He passed in NIL, so return font profile name in effect.")

-          FONTNAME])
-
-(FONTPROFILE

-  [LAMBDA (PROFILE)                                          (* lmm "10-Sep-86 12:33")

-    [PROG (BASICCLASSES)
-          (for
 X in
 PROFILE
-             do
 (PROG (SEEN (NAME (CAR X))
-                                (FONTS X))
-                      LP  [COND
-                             ((MEMB (CAR FONTS)
-                                    SEEN)
-                              (ERROR "Circular font profile specification" X))
-                             (T (push
 SEEN (CAR FONTS]
-                          [SETQ FONTS (CDR (COND
-                                              ((OR (NULL (CADR FONTS))
-                                                   (LISTP (CADR FONTS)))
-                                                             (* ; 
-
                                   "This skips over the now-defunct NIL or list-of-escape sequence")

-                                               (CDR FONTS))
-                                              (T FONTS]
-                          (COND
-                             ((OR (NLISTP FONTS)
-                                  (LITATOM (CAR FONTS)))     (* Indirect thru another's font spec)

-                              (AND (SETQ FONTS (ASSOC (SELECTQ (CAR (LISTP FONTS))
-                                                          ((NIL DEFAULTFONT) 
-                                                             (* Don't let DEFAULTFONT loop thru 
-
                                                           itself)

-                                                               (AND (NOT (MEMB 'DEFAULTFONT SEEN))
-                                                                    'DEFAULTFONT))
-                                                          (CAR FONTS))
-                                                      PROFILE))
-                                   (GO LP)))
-                             (T [push
 BASICCLASSES (SETQ FONTS (FONTCLASS NAME FONTS 'DISPLAY]
-                                                             (* Now we have a font class 
-
                                                           datastructure)

-                                ))
-                          (AND NAME (/SETATOMVAL NAME FONTS))
-
-         (* NIL for the class-name means just establish the font-correspondences but 
-
       don't connect them up with a pretty class name.)

-
-                      ))
-          (AND BASICCLASSES (FONTMAPARRAY
 BASICCLASSES 'DISPLAY]
-    T])
-
-(FONTPROFILE.ADDDEVICE

-  [LAMBDA (NEWDEVICE OLDDEVICE)
                          (* ; "Edited  3-Mar-93 14:46 by rmk:")

-
-    (* ;; "Fills in all fontprofile specifications so that an entry for NEWDEVICE is present for each fontclass.  Nothing is changed if the entry is already there, otherwise the specification for the class currently provided for OLDDEVICE will be used for NEWDEVICE.")

-
-    (DECLARE
 (USEDFREE FONTDEFS FONTNAME))
-    (SETQ NEWDEVICE (U-CASE NEWDEVICE))
-    (SETQ OLDDEVICE (U-CASE OLDDEVICE))
-    [FOR
 FD IN
 FONTDEFS
-       DO
 (FOR
 FC OLDSPEC IN
 (CDR (ASSOC 'FONTPROFILE (CDR FD)))
-                 UNLESS
 (LITATOM (CADR FC))
-                 DO
 (SETQ FC (CDR FC))                   (* ; "Skip over name")

-                       (CL:WHEN [SETQ OLDSPEC (SELECTQ OLDDEVICE
-                                                  (DISPLAY (CADR FC))
-                                                  (INTERPRESS (CADDDR FC))
-                                                  (PRESS (CADDR FC))
-                                                  (CADR (ASSOC OLDDEVICE (CDDDDR FC]
-                           [SETQ FC (OR (CDR FC)
-                                        (CDR (RPLACD FC (CONS]
-                                                             (* ; 
-
                                          "Fill in NIL's for missing DISPLAY, PRESS, or INTERPRESS")

-                           [SELECTQ NEWDEVICE
-                               (DISPLAY (OR (CAR FC)
-                                            (RPLACA FC OLDSPEC)))
-                               (INTERPRESS (OR (CADDR FC)
-                                               (RPLACA [PROGN [SETQ FC (OR (CDR FC)
-                                                                           (CDR (RPLACD FC (CONS]
-                                                              (OR (CDR FC)
-                                                                  (CDR (RPLACD FC (CONS]
-                                                      OLDSPEC)))
-                               (PRESS (OR (CADDR FC)
-                                          (RPLACA [OR (CDR FC)
-                                                      (CDR (RPLACD FC (CONS]
-                                                 OLDSPEC)))
-                               (OR (CADR (ASSOC NEWDEVICE (CDDDR FC)))
-                                   (PROGN (PROGN [SETQ FC (OR (CDR FC)
-                                                              (CDR (RPLACD FC (CONS]
-                                                 [SETQ FC (OR (CDR FC)
-                                                              (CDR (RPLACD FC (CONS]
-                                                 (PUSH
 (CDR FC)
-                                                        (LIST NEWDEVICE OLDSPEC])]
-    (FONTSET
 FONTNAME])
-)
-
-(RPAQ? FONTESCAPECHAR
 (CHARACTER 6))
-
-(RPAQ? FONTFNS
 )
-
-(RPAQ? FONTWORDS
 )
-(DECLARE%: DONTEVAL@LOAD DOCOPY 
-
-(FONTSET
 'STANDARD)
-)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS)
-)
-(DEFINEQ
-
-(FONTMAPARRAY

-  [LAMBDA (FONTCLASSES)                                      (* lmm "28-Sep-86 14:23")

-
-    (* ;; "Makes a font array from a font-mapping list of fontclasses.  The array provides a fast map from font# to font classes/descriptors. This function caches the last array.  If IMAGETYPES is given, then the FD's are pre-computed for the imagetypes it.  Otherwise, the first use of the fontclass for that imagetype would cause the fontcreate to be done.")

-
-    (PROG (FA (MAXFONT 0)
-              (MINFONT 100))
-          [COND
-             ((NULL \FONTMAPCACHE))
-             ((OR (NULL FONTCLASSES)
-                  (EQUAL FONTCLASSES (CAR \FONTMAPCACHE)))
-              (RETURN (CDR \FONTMAPCACHE]
-          [for
 F PRETTYFONT# in
 FONTCLASSES do
 (SETQ PRETTYFONT# (fetch
 (FONTCLASS
-                                                                                         PRETTYFONT#)
-                                                                                of
 F))
-                                                          (COND
-                                                             ((IGREATERP PRETTYFONT# MAXFONT)
-                                                              (SETQ MAXFONT PRETTYFONT#)))
-                                                          (COND
-                                                             ((ILESSP PRETTYFONT# 1)
-                                                              (ERROR "Invalid font number" 
-                                                                     PRETTYFONT# F))
-                                                             ((ILESSP PRETTYFONT# MINFONT)
-                                                              (SETQ MINFONT PRETTYFONT#]
-          (SETQ FA (ARRAY MAXFONT))
-          (for
 F in
 FONTCLASSES do
 (SETA FA (fetch
 (FONTCLASS PRETTYFONT#)
-                                                           of
 F)
-                                                     F))
-          (for
 I from
 1 to
 MAXFONT unless
 (ELT FA I)
-             do
 (SETA FA I (ELT FA MINFONT)))
-          (SETQ \FONTMAPCACHE (CONS (COPY FONTCLASSES)
-                                    FA))
-          (RETURN FA])
-)
-
-(RPAQ? \FONTMAPCACHE
 )
-
-(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
-       1 FILERDTBL)
-(PUTPROPS FONTPROFILEPATCH COPYRIGHT ("Xerox Corporation" 1993))
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (16158 27897 (FONTSET 16168 . 22509) (FONTPROFILE 22511 . 25015) (FONTPROFILE.ADDDEVICE 
-25017 . 27895)) (28133 30403 (FONTMAPARRAY 28143 . 30401)))))
-STOP

sources/HARDCOPY

@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED " 5-May-2021 19:41:55" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley2>sources>HARDCOPY.;9
 103663 
+
(FILECREATED "20-Sep-2021 10:59:58" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;2
 103730 
 
-      changes to%:  (FNS COPY.TEXT.TO.IMAGE)
+      changes to%:  (VARS HARDCOPYCOMS)
 
-      previous date%: "16-Apr-2018 22:15:08" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley2>sources>HARDCOPY.;8)
+      previous date%: " 5-May-2021 19:41:55" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;1)
 
 
 (* ; "
@@ -15,46 +15,47 @@ Copyright (c) 1984-1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (PRETTYCOMPRINT HARDCOPYCOMS)
 
 (RPAQQ HARDCOPYCOMS

-       [(COMS                                                (* ; "exported functionality")

+       [(COMS                                                (* ; "exported functionality")

               (FNS HARDCOPY.SOMEHOW HARDCOPYIMAGEW HARDCOPYIMAGEW.TOFILE HARDCOPYIMAGEW.TOPRINTER 
                    HARDCOPYREGION.TOFILE HARDCOPYREGION.TOPRINTER COPY.WINDOW.TO.BITMAP)
-                                                             (* ; "user interface jazz")

+                                                             (* ; "user interface jazz")

               (INITVARS (ChangeDefaultPrinter))
               (FNS MakeMenuOfPrinters PRINTERS.WHENSELECTEDFN MakeMenuOfImageTypes 
                    GetNewPrinterFromUser PopUpWindowAndGetAtom PopUpWindowAndGetList NewPrinter 
                    GetPrinterName GetImageFile FetchDefaultPrinter)
-                                                             (* ; "filename diddlers")

+                                                             (* ; "filename diddlers")

               (FNS ExtensionForPrintFileType PRINTFILETYPE.FROM.EXTENSION))
-        (COMS                                                (* ; 
-
                                                           "Interface for PRINTERS and IMAGEFILES")

+        (COMS                                                (* ; 
+
                                                           "Interface for PRINTERS and IMAGEFILES")

               (FNS DEFAULTPRINTER CAN.PRINT.DIRECTLY CONVERT.FILE.TO.TYPE.FOR.PRINTER EMPRESS 
                    HARDCOPYW LISTFILES1 PRINTER.BITMAPFILE PRINTER.BITMAPSCALE PRINTER.SCRATCH.FILE 
                    PRINTERPROP PRINTERSTATUS PRINTERTYPE PRINTERNAME PRINTFILEPROP PRINTFILETYPE 
                    \EXPECTED.FILE.TYPE SEND.FILE.TO.PRINTER)
               (FNS PRINTERDEVICE)
               [DECLARE%: DONTEVAL@LOAD DOCOPY (P (PRINTERDEVICE 'LPT]
-              (P                                             (* ; "for backward compatibility")

+              (P                                             (* ; "for backward compatibility")

                  (MOVD? 'NILL 'PRINTERMODE))
               (INITVARS (DEFAULTPRINTINGHOST)
                      (DEFAULTPRINTERTYPE 'INTERPRESS)
                      (EMPRESS.SCRATCH)
-                     (EMPRESS#SIDES T))
+                     (EMPRESS#SIDES T)
+                     (PRINTFILETYPES NIL))
               (GLOBALVARS DEFAULTPRINTINGHOST DEFAULTPRINTERTYPE EMPRESS#SIDES PRINTERTYPES 
                      PRINTFILETYPES))
-        (COMS                                                (* ; 
-
                                                           "Converting text files to imagestreams")

+        (COMS                                                (* ; 
+
                                                           "Converting text files to imagestreams")

               (INITVARS (TEXTDEFAULTTABS (LIST 20320))
                      (TEXTDEFAULTPAGEREGION (CREATEREGION 2794 1905 18415 24765)))
-                                                             (* ; 
-
                                                "TEXTDEFAULTTABS Hack, mica equivalent of 8 inches")

+                                                             (* ; 
+
                                                "TEXTDEFAULTTABS Hack, mica equivalent of 8 inches")

               (GLOBALVARS TEXTDEFAULTTABS TEXTDEFAULTPAGEREGION)
               (FNS TEXTTOIMAGEFILE COPY.TEXT.TO.IMAGE))
         (COMS (FNS \BLTSHADE.GENERICPRINTER)
-                                                             (* ; 
-
                                                     "hack for printers that can't really BLTSHADE")

+                                                             (* ; 
+
                                                     "hack for printers that can't really BLTSHADE")

               )
-        [COMS                                                (* ; 
-
                                                "stuff to support hardcopy streams on the display.")

+        [COMS                                                (* ; 
+
                                                "stuff to support hardcopy streams on the display.")

               (FNS MAKEHARDCOPYSTREAM UNMAKEHARDCOPYSTREAM HARDCOPYSTREAMTYPE \CHARWIDTH.HDCPYDISPLAY
                    \DSPFONT.HDCPYDISPLAY \DSPRIGHTMARGIN.HDCPYDISPLAY \DSPXPOSITION.HDCPYDISPLAY 
                    \DSPYPOSITION.HDCPYDISPLAY \STRINGWIDTH.HDCPYDISPLAY \STRINGWIDTH.HCPYDISPLAYAUX 
@@ -65,8 +66,8 @@ Copyright (c) 1984-1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
                                                                 (IMICASPERPT 35]
               (DECLARE%: DONTCOPY DOEVAL@COMPILE (EXPORT (FUNCTIONS \MICASTOPTS)))
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\HDCPYDISPLAYINIT]
-        [COMS                                                (* ; 
-
                                       "Stuff to support MICA-unit hardcopy streams on the display")

+        [COMS                                                (* ; 
+
                                       "Stuff to support MICA-unit hardcopy streams on the display")

               (FNS MAKEHARDCOPYMODESTREAM UNMAKEHARDCOPYMODESTREAM \BLTSHADE.HCPYMODE 
                    \BITBLT.HCPYMODE \BRUSHCONVERT.HCPYMODE \CHANGECHARSET.HCPYMODE 
                    \DASHINGCONVERT.HCPYMODE \CHARWIDTH.HCPYMODE \DRAWLINE.HCPYMODE 
@@ -649,7 +650,7 @@ Copyright (c) 1984-1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (PRINTERDEVICE
 'LPT)
 )
 
-                                                             (* ; "for backward compatibility")

+                                                             (* ; "for backward compatibility")

 
 (MOVD? 'NILL 'PRINTERMODE)
 
@@ -660,6 +661,8 @@ Copyright (c) 1984-1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (RPAQ? EMPRESS.SCRATCH
 )
 
 (RPAQ? EMPRESS#SIDES
 T)
+
+(RPAQ? PRINTFILETYPES
 NIL)
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS DEFAULTPRINTINGHOST DEFAULTPRINTERTYPE EMPRESS#SIDES PRINTERTYPES PRINTFILETYPES)
@@ -1085,39 +1088,39 @@ Copyright (c) 1984-1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (PUTPROPS HARDCOPY COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1991 1992
  1993 1999 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6141 10325 (HARDCOPY.SOMEHOW 6151 . 7509) (HARDCOPYIMAGEW 7511 . 7663) (
-HARDCOPYIMAGEW.TOFILE 7665 . 7973) (HARDCOPYIMAGEW.TOPRINTER 7975 . 8640) (HARDCOPYREGION.TOFILE 8642
- . 8940) (HARDCOPYREGION.TOPRINTER 8942 . 9564) (COPY.WINDOW.TO.BITMAP 9566 . 10323)) (10397 20947 (
-MakeMenuOfPrinters 10407 . 11632) (PRINTERS.WHENSELECTEDFN 11634 . 13376) (MakeMenuOfImageTypes 13378
- . 13896) (GetNewPrinterFromUser 13898 . 14326) (PopUpWindowAndGetAtom 14328 . 15713) (
-PopUpWindowAndGetList 15715 . 17281) (NewPrinter 17283 . 18231) (GetPrinterName 18233 . 18513) (
-GetImageFile 18515 . 20802) (FetchDefaultPrinter 20804 . 20945)) (20982 21520 (
-ExtensionForPrintFileType 20992 . 21185) (PRINTFILETYPE.FROM.EXTENSION 21187 . 21518)) (21575 37959 (
-DEFAULTPRINTER 21585 . 21745) (CAN.PRINT.DIRECTLY 21747 . 21903) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 
-21905 . 22949) (EMPRESS 22951 . 23264) (HARDCOPYW 23266 . 26226) (LISTFILES1 26228 . 26401) (
-PRINTER.BITMAPFILE 26403 . 26650) (PRINTER.BITMAPSCALE 26652 . 26917) (PRINTER.SCRATCH.FILE 26919 . 
-27042) (PRINTERPROP 27044 . 27227) (PRINTERSTATUS 27229 . 27418) (PRINTERTYPE 27420 . 29729) (
-PRINTERNAME 29731 . 30033) (PRINTFILEPROP 30035 . 30226) (PRINTFILETYPE 30228 . 32172) (
-\EXPECTED.FILE.TYPE 32174 . 32956) (SEND.FILE.TO.PRINTER 32958 . 37957)) (37960 42942 (PRINTERDEVICE 
-37970 . 42940)) (43725 51926 (TEXTTOIMAGEFILE 43735 . 45925) (COPY.TEXT.TO.IMAGE 45927 . 51924)) (
-51927 53062 (\BLTSHADE.GENERICPRINTER 51937 . 53060)) (53190 71942 (MAKEHARDCOPYSTREAM 53200 . 54204) 
-(UNMAKEHARDCOPYSTREAM 54206 . 54890) (HARDCOPYSTREAMTYPE 54892 . 55171) (\CHARWIDTH.HDCPYDISPLAY 55173
- . 55604) (\DSPFONT.HDCPYDISPLAY 55606 . 57011) (\DSPRIGHTMARGIN.HDCPYDISPLAY 57013 . 57590) (
-\DSPXPOSITION.HDCPYDISPLAY 57592 . 57853) (\DSPYPOSITION.HDCPYDISPLAY 57855 . 58116) (
-\STRINGWIDTH.HDCPYDISPLAY 58118 . 58625) (\STRINGWIDTH.HCPYDISPLAYAUX 58627 . 60959) (\HDCPYBLTCHAR 
-60961 . 63496) (\HDCPYDISPLAY.FIX.XPOS 63498 . 63918) (\HDCPYDISPLAY.FIX.YPOS 63920 . 64340) (
-\HDCPYDISPLAYINIT 64342 . 65119) (\HDCPYDSPPRINTCHAR 65121 . 67281) (\SLOWHDCPYBLTCHAR 67283 . 70786) 
-(\CHANGECHARSET.HDCPYDISPLAY 70788 . 71940)) (72664 102961 (MAKEHARDCOPYMODESTREAM 72674 . 74583) (
-UNMAKEHARDCOPYMODESTREAM 74585 . 75663) (\BLTSHADE.HCPYMODE 75665 . 76112) (\BITBLT.HCPYMODE 76114 . 
-76736) (\BRUSHCONVERT.HCPYMODE 76738 . 76975) (\CHANGECHARSET.HCPYMODE 76977 . 78744) (
-\DASHINGCONVERT.HCPYMODE 78746 . 79009) (\CHARWIDTH.HCPYMODE 79011 . 79298) (\DRAWLINE.HCPYMODE 79300
- . 79612) (\DRAWCURVE.HCPYMODE 79614 . 80043) (\DRAWCIRCLE.HCPYMODE 80045 . 80440) (
-\DRAWELLIPSE.HCPYMODE 80442 . 80954) (\DSPFONT.HCPYMODE 80956 . 82112) (\DSPLEFTMARGIN.HCPYMODE 82114
- . 82698) (\DSPLINEFEED.HCPYMODE 82700 . 83110) (\DSPRIGHTMARGIN.HCPYMODE 83112 . 83741) (
-\DSPSPACEFACTOR.HCPYMODE 83743 . 84264) (\DSPXPOSITION.HCPYMODE 84266 . 84847) (\DSPYPOSITION.HCPYMODE
- 84849 . 85254) (\MOVETO.HCPYMODE 85256 . 85408) (\FONTCREATE.HCPYMODE.PRESS 85410 . 86422) (
-\CREATECHARSET.HCPYMODE.PRESS 86424 . 87395) (\FONTCREATE.HCPYMODE.INTERPRESS 87397 . 88431) (
-\CREATECHARSET.HCPYMODE.INTERPRESS 88433 . 89421) (\STRINGWIDTH.HCPYMODE 89423 . 89857) (
-\HCPYMODEBLTCHAR 89859 . 92828) (\HCPYMODEDISPLAYINIT 92830 . 95761) (\HCPYMODEDSPPRINTCHAR 95763 . 
-97944) (\SLOWHCPYMODEBLTCHAR 97946 . 101460) (\SFFixY.HCPYMODE 101462 . 102959)))))
+  (FILEMAP (NIL (6176 10360 (HARDCOPY.SOMEHOW 6186 . 7544) (HARDCOPYIMAGEW 7546 . 7698) (
+HARDCOPYIMAGEW.TOFILE 7700 . 8008) (HARDCOPYIMAGEW.TOPRINTER 8010 . 8675) (HARDCOPYREGION.TOFILE 8677
+ . 8975) (HARDCOPYREGION.TOPRINTER 8977 . 9599) (COPY.WINDOW.TO.BITMAP 9601 . 10358)) (10432 20982 (
+MakeMenuOfPrinters 10442 . 11667) (PRINTERS.WHENSELECTEDFN 11669 . 13411) (MakeMenuOfImageTypes 13413
+ . 13931) (GetNewPrinterFromUser 13933 . 14361) (PopUpWindowAndGetAtom 14363 . 15748) (
+PopUpWindowAndGetList 15750 . 17316) (NewPrinter 17318 . 18266) (GetPrinterName 18268 . 18548) (
+GetImageFile 18550 . 20837) (FetchDefaultPrinter 20839 . 20980)) (21017 21555 (
+ExtensionForPrintFileType 21027 . 21220) (PRINTFILETYPE.FROM.EXTENSION 21222 . 21553)) (21610 37994 (
+DEFAULTPRINTER 21620 . 21780) (CAN.PRINT.DIRECTLY 21782 . 21938) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 
+21940 . 22984) (EMPRESS 22986 . 23299) (HARDCOPYW 23301 . 26261) (LISTFILES1 26263 . 26436) (
+PRINTER.BITMAPFILE 26438 . 26685) (PRINTER.BITMAPSCALE 26687 . 26952) (PRINTER.SCRATCH.FILE 26954 . 
+27077) (PRINTERPROP 27079 . 27262) (PRINTERSTATUS 27264 . 27453) (PRINTERTYPE 27455 . 29764) (
+PRINTERNAME 29766 . 30068) (PRINTFILEPROP 30070 . 30261) (PRINTFILETYPE 30263 . 32207) (
+\EXPECTED.FILE.TYPE 32209 . 32991) (SEND.FILE.TO.PRINTER 32993 . 37992)) (37995 42977 (PRINTERDEVICE 
+38005 . 42975)) (43792 51993 (TEXTTOIMAGEFILE 43802 . 45992) (COPY.TEXT.TO.IMAGE 45994 . 51991)) (
+51994 53129 (\BLTSHADE.GENERICPRINTER 52004 . 53127)) (53257 72009 (MAKEHARDCOPYSTREAM 53267 . 54271) 
+(UNMAKEHARDCOPYSTREAM 54273 . 54957) (HARDCOPYSTREAMTYPE 54959 . 55238) (\CHARWIDTH.HDCPYDISPLAY 55240
+ . 55671) (\DSPFONT.HDCPYDISPLAY 55673 . 57078) (\DSPRIGHTMARGIN.HDCPYDISPLAY 57080 . 57657) (
+\DSPXPOSITION.HDCPYDISPLAY 57659 . 57920) (\DSPYPOSITION.HDCPYDISPLAY 57922 . 58183) (
+\STRINGWIDTH.HDCPYDISPLAY 58185 . 58692) (\STRINGWIDTH.HCPYDISPLAYAUX 58694 . 61026) (\HDCPYBLTCHAR 
+61028 . 63563) (\HDCPYDISPLAY.FIX.XPOS 63565 . 63985) (\HDCPYDISPLAY.FIX.YPOS 63987 . 64407) (
+\HDCPYDISPLAYINIT 64409 . 65186) (\HDCPYDSPPRINTCHAR 65188 . 67348) (\SLOWHDCPYBLTCHAR 67350 . 70853) 
+(\CHANGECHARSET.HDCPYDISPLAY 70855 . 72007)) (72731 103028 (MAKEHARDCOPYMODESTREAM 72741 . 74650) (
+UNMAKEHARDCOPYMODESTREAM 74652 . 75730) (\BLTSHADE.HCPYMODE 75732 . 76179) (\BITBLT.HCPYMODE 76181 . 
+76803) (\BRUSHCONVERT.HCPYMODE 76805 . 77042) (\CHANGECHARSET.HCPYMODE 77044 . 78811) (
+\DASHINGCONVERT.HCPYMODE 78813 . 79076) (\CHARWIDTH.HCPYMODE 79078 . 79365) (\DRAWLINE.HCPYMODE 79367
+ . 79679) (\DRAWCURVE.HCPYMODE 79681 . 80110) (\DRAWCIRCLE.HCPYMODE 80112 . 80507) (
+\DRAWELLIPSE.HCPYMODE 80509 . 81021) (\DSPFONT.HCPYMODE 81023 . 82179) (\DSPLEFTMARGIN.HCPYMODE 82181
+ . 82765) (\DSPLINEFEED.HCPYMODE 82767 . 83177) (\DSPRIGHTMARGIN.HCPYMODE 83179 . 83808) (
+\DSPSPACEFACTOR.HCPYMODE 83810 . 84331) (\DSPXPOSITION.HCPYMODE 84333 . 84914) (\DSPYPOSITION.HCPYMODE
+ 84916 . 85321) (\MOVETO.HCPYMODE 85323 . 85475) (\FONTCREATE.HCPYMODE.PRESS 85477 . 86489) (
+\CREATECHARSET.HCPYMODE.PRESS 86491 . 87462) (\FONTCREATE.HCPYMODE.INTERPRESS 87464 . 88498) (
+\CREATECHARSET.HCPYMODE.INTERPRESS 88500 . 89488) (\STRINGWIDTH.HCPYMODE 89490 . 89924) (
+\HCPYMODEBLTCHAR 89926 . 92895) (\HCPYMODEDISPLAYINIT 92897 . 95828) (\HCPYMODEDSPPRINTCHAR 95830 . 
+98011) (\SLOWHCPYMODEBLTCHAR 98013 . 101527) (\SFFixY.HCPYMODE 101529 . 103026)))))
 STOP

sources/LLDISPLAY.LCOM

@@ -1,7 +1,7 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-(FILECREATED " 8-Aug-2021 00:19:22" ("compiled on " 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7) " 6-Aug-2021 20:53:08" 
-"COMPILE-FILEd" in "FULL  6-Aug-2021 ..." dated " 6-Aug-2021 20:53:13")
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(FILECREATED " 6-Sep-2021 16:23:29" ("compiled on " 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;10) " 6-Sep-2021 15:59:15" 
+"COMPILE-FILEd" in "FULL  6-Sep-2021 ..." dated " 6-Sep-2021 15:59:21")
 (FILECREATED " 8-Aug-2021 00:19:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7
  268927 changes to%: (FNS READBITMAP) previous date%: " 1-Aug-2021 23:41:37" 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6)
@@ -120,18 +120,18 @@ NIL $ldk
 (25 \EM.CURSORBITMAP)
 ()
 (RPAQ CursorBitMap (\CreateCursorBitMap))
-BITBLT :D8
+BITBLT :D8
 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SCREENBITMAPS) ®
D£jb¿E£jb
 ¿Ggð²NCdò¿GCDEFGGG
-gh
HÉ.ɹGHDEFGGGlIð@@dò]¿A£jb¿B£jb¿@¹AºB»Fµ3@Èb¿Gµ@Èb¿±É@ÈBÙ½dMñ²ì¿M°è@ÈAÙ¼dLñ²É¿L°ÅghÉ0X¢±…A¦HÉ
-
b¿B§HÉ
-
b¿HɹAHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´	Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±Æ¿@	¢±¡h__¿W&²8W(´h@gh
-W*ð_²`È_¿`jÍ¿¿@gh_`ð³hO
-W,—O	¿IABCDEFGGGGGJK
-O´‚±
U¿`OÍ¿±
AIABCDEFGGGGGJK
+gh
HÉ.ɹGHDEFGGGlIð@@dò]¿A£jb¿B£jb¿@¹AºB»Fµ3@Èb¿Gµ@Èb¿±É@ÈBÙ½dMñ²ì¿M°è@ÈAÙ¼dLñ²É¿L°ÅghÉ0X¢±…A¦HÉ
+
b¿B§HÉ
+
b¿HɹAHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´	Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±Ï¿@	¢±ªh__¿`²>`´h@gh
+`ð_²`È_¿`jÍ¿¿@gh_`ð³hO
+W&—O	¿IABCDEFGGGGGJK
+O´‚±
^¿`OÍ¿±
JIABCDEFGGGGGJK
 gh_@Cð’±ð@	¢±æC	¢±Õ@dC
-¢±Á¿h__ _"¿W&²8W(´h@gh
-W*ð_"²`È_ ¿`jÍ¿¿@gh_`ð³hO
+¢±Ê¿h__ _"¿`²>`´h@gh
+`ð_"²`È_ ¿`jÍ¿¿@gh_`ð³hO
 W&—O	¿IABFG
 _jdFGgg
 ¿O"Ÿ¿`O Í¿OjdODEFGGGGG
@@ -168,7 +168,7 @@ BITMAPCREATE :D8
 ()
 BITMAPCOPY :D8
 (P 0 NEWBITMAP I 0 BITMAP) 7

@bjd@	@È@ÈXjdhdggj
-H(51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
+H(51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
 (44 REPLACE 39 INPUT 8 BITMAP)
 ()
 BITMAPCREATE :D8
@@ -177,27 +177,27 @@ BITMAPBIT :D8
 NIL
 ( 102 "bits in BITMAP -- too big" 88 131066)
 BITMAPBIT :D8
-(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) é°
-@â±+@ÈXjAñ’±
A@Èýñ¢±üjBñ’±õB@È\ýñ¢±åHkð²[Cdjð²¿@ÉABkLkÙ@Èh8
³@ÉABlLkÙ@Èh8
@ÉABlLkÙ@Èh8
@É@ÈBÙkÙ@ÈÚÐ^C²jCñ¯C@È	ñ–C	¿Hdkð²c¿AââââZNJÐÈ]`Alå_¿_ÉOl
-OØÐÈYCµMIåjð² jjð<6A>NJÐMImÿæåÍ¿°èNJÐMIäÍ¿°Ýklð²mAlçYdââââZNJÐÈ]d`Alå_¿_ÉOl
-OØÐÈå[C²NJÐMKæCllAlåÙÚ
+(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SCREENBITMAPS) ò
°
+@â±+@ÈXjAñ’±
A@Èýñ¢±üjBñ’±õB@È\ýñ¢±åHkð²[Cdjð²¿@ÉABkLkÙ@Èh8
³@ÉABlLkÙ@Èh8
@ÉABlLkÙ@Èh8
@É@ÈBÙkÙ@ÈÚÐ^C²jCñ¯C@È	ñ–C	¿Hdkð²c¿AââââZNJÐÈ]`Alå_¿_ÉOl
+OØÐÈYCµMIåjð² jjð<6A>NJÐMImÿæåÍ¿°èNJÐMIäÍ¿°Ýklð²mAlçYdââââZNJÐÈ]d`Alå_¿_ÉOl
+OØÐÈå[C²NJÐMKæCllAlåÙÚ
 äÍ¿KllAlåÙÚ
 Hdlð²K¿AlçYdââââZAkåjð²NJÐÈ]nÿå»C›NJÐMKæCáäÍ¿KãNJÐÈ]lÿå»C²1NJÐMKæCäÍ¿°$lð²!AlÚYdââââZNA
 [C—NACKoH
 0
 @ghbÉ0_AO
 _BO
-_O¢±þºd¢±þµ W ²-W"´h@
+_O¢±þºd¢±þµ `²3`´h@
 `ð_²`È_¿`jÍ¿¿@`ð³h@
 W –@	¿OÉOOCû_¿Ož¿`OÍO(739 \SOFTCURSORUPCURRENT 711 \TOTOPWDS 701 DSPDESTINATION 684 \SOFTCURSORDOWN 650 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
 (745 \EM.DISPINTERRUPT 719 \DISPLAYDATA 691 \TOPWDS 675 \EM.DISPINTERRUPT 665 \EM.DISPINTERRUPT 655 \CURSORDESTINATION 641 \SOFTCURSORUPP 634 \SOFTCURSORP 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
-( 557 "unknown bits per pixel size.")
+( 557 "unknown bits per pixel size.")
 BLTCHAR :D8
 (I 1 DISPLAYSTREAM I 0 CHARCODE) 2@d
—¿j@ñ¡@…@	AdghÉ0(47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG)
-(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
-()
-\BLTCHAR :D8
-(P 0 A0140 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
AghbÉ.ÉZ
@ABlH(11 \GETSTREAM)
+(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
+()
+\BLTCHAR :D8
+(P 0 A0241 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
AghbÉ.ÉZ
@ABlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 \MEDW.BLTCHAR :D8
@@ -215,17 +215,18 @@ BLTCHAR :D8
 ð—@È@IÈð©@I
 ¿°#JÉJÈ@ÉBÚлHKÒÍ¿HKÓÍh(98 \SFFixY 24 \CREATECHARSET)
 (130 PILOTBBT 119 PILOTBBT)
-()
-\INDICATESTRINGA0001 :D8
-(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H
gd	gi
-¿Pcgl	hhPcgQãoQlÿå(69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
+()
+\INDICATESTRINGA0001 :D8
+(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H
gd	gi
+¿Pcgl	hhPcgQãoQlÿå(69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
+(53 %# 32 RADIX 16 PRXFLT 4 PRXFLT)
 ( 60 ",")
 \INDICATESTRING :D8
 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _

@dlÿñ² ¿S!g		¿$
lñœ@låb¿g„ol @ñœ@l@äb¿g„o@	(92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001)
 (75 ^ 52 %# 16 SI::RESETUNWIND)
-(75 ^ 52 %# 16 SI::RESETUNWIND)
-( 81 "" 58 "")
-\SLOWBLTCHAR :D8
+( 81 "" 58 "")
+\SLOWBLTCHAR :D8
+(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SCREENBITMAPS) T
@@lÿåYAÉ0ZdÉÈXdjð¢±
‡€JÉ_JÉIÐÈØ\JÉñ²l
 A
 ¿JÉ_JÉIÐÈؼJL¿OJÉØ_¿JÈ"dOñ¢¿O½JÈ#LJÉØ»dKñ‘¿K¾JÉ*_¿NMñ¢±
OÈ	jð’±

 M_¿NMÙ_¿JÉIÐÈMØOÙ_¿JÉÈdkð³adlð²¿Oàà_¿Oàà_¿Oàà_°Ddlð²¿Oààà_¿Oààà_¿Oààà_°$lð²lOÚ_¿lOÚ_¿lOÚ_„¿ 
@@ -273,7 +274,7 @@ OPPOSITESHADE :D8
 MAXIMUMCOLOR :D8
 (L (0 BITSPERPIXEL)) 
k@çkÙNIL
 NIL
-()
+()
 OPPOSITECOLOR :D8
 (I 1 BITSPERPIXEL I 0 COLOR) 
 A	@Ù(5 MAXIMUMCOLOR)
@@ -312,28 +313,28 @@ BITMAPBIT.EXPANDER :D8
 (CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0))
 (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))
 optimize-BITMAPBIT :D8
-(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 	@	(6 BITMAPBIT.EXPANDER)
+(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 	@	(6 BITMAPBIT.EXPANDER)
 NIL
-()
-(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET 
-(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
-optimize-BITMAPP :D8
-(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 
@

oHhNIL
+()
+(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET 
+(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
+optimize-BITMAPP :D8
+(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 
@

oHhNIL
 NIL
 ( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X)))
 (PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET (
 QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST))))
-BITMAPBIT.EXPANDER :D8
+BITMAPBIT.EXPANDER :D8
 (P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) -
@
@
@
@	lð•@
»oHIJKh(17 LENGTH)
-NIL
-( 32 (OPCODES MISC4 6))
+NIL
+( 32 (OPCODES MISC4 6))
 \BITBLT.DISPLAY :D8
 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS) “0
ðð@dò[¿A£jb¿B£jb¿AºB»Fµ3@Èb¿Gµ@Èb¿±Í@ÈBÙ½dMñ²ì¿M°è@ÈAÙ¼dLñ²É¿L°ÅghÉ0X¢±‰@¹A¦HÉ
 
b¿B§HÉ
-
b¿HÉb¿AHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´	Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±Æ¿I	¢±¡h__¿Wb²8Wd´h@gh
-Wfð_²`È_¿`jÍ¿¿@gh_`ð³hO
-W`—O	¿@ABCDEFGGGGGJK
-O´‚±Ž¿`OÍ¿±z@ABCDEFGGGGGJK
+
b¿HÉb¿AHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´	Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±Ï¿I	¢±ªh__¿`²>`´h@gh
+`ð_²`È_¿`jÍ¿¿@gh_`ð³hO
+W`—O	¿@ABCDEFGGGGGJK
+O´‚± ¿`OÍ¿±Œ@ABCDEFGGGGGJK
 gh_IdCð’±
"	³I¢±
,Id	¢±
¿C	¢±øIdC
 ¢±í¿I	ÉÉ.C	ÉÉ.ð¢±Èh__ _"¿`²>`´hIgh
 `ð_"²`È_ ¿`jÍ¿¿Igh_`ð³hO
@@ -353,13 +354,13 @@ NIL
 `ð_:²`È_8¿`jÍ¿¿O`ð³hO
 W`—O	¿`/ODOFÙ_T¿OHOBÙ_V¿OLÈODO@ØÙ_X¿OBO>Ø_Z¿@ÈODÙ_\¿OB_^¿`OVÍ¿`OTÍ	¿Ggð²"`@O^O\OLOZOXOVOTGG
 ° `@O^O\OLOZOXOTGGG
-° `@O^O\OLOZOXOTGGG
+O:Ÿ¿`O8Í¿°.OÉ.É_<¿@ABODEFGGGGGJKlO<h(1877 \SOFTCURSORUPCURRENT 1868 \BITBLTSUB 1836 \BITBLT.MERGE 1701 \TOTOPWDS 1690 DSPDESTINATION 1671 \SOFTCURSORDOWN 1637 DSPDESTINATION 1576 INSURE.B&W.TEXTURE 1552 COLORTEXTUREFROMCOLOR# 1532 \ILLEGAL.ARG 1524 COLORNUMBERP 1508 INVERT.TEXTURE.BITMAP 1498 BITMAPCREATE 1450 INSURE.B&W.TEXTURE 1416 MAXIMUMSHADE 1183 UNCOLORIZEBITMAP 1178 COLORMAP 1160 COLORIZEBITMAP 1153 MAXIMUMCOLOR 927 \TOTOPWDS 916 DSPDESTINATION 869 DSPDESTINATION 861 DSPDESTINATION 850 TOTOPW 843 BKBITBLT 807 \SOFTCURSORUPCURRENT 798 BKBITBLT 775 BITMAPCREATE 763 \TOTOPWDS 752 DSPDESTINATION 734 \GETSTREAM 721 \SOFTCURSORDOWN 687 DSPDESTINATION 682 \GETSTREAM 633 \INSUREWINDOW 618 \INSUREWINDOW 607 WOVERLAPP 595 WINDOWP 584 WFROMDS 570 WINDOWP 555 \GETSTREAM 543 \BITBLT.BITMAP 504 \SOFTCURSORUPCURRENT 491 \BITBLT.BITMAP 465 \TOTOPWDS 454 DSPDESTINATION 436 \GETSTREAM 423 \SOFTCURSORDOWN 389 DSPDESTINATION 384 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
 (1905 IMAGEOPS 1898 STREAM 1883 \EM.DISPINTERRUPT 1843 \SYSPILOTBBT 1811 \SYSPILOTBBT 1803 MERGE 1791 PILOTBBT 1786 \SYSPILOTBBT 1776 PILOTBBT 1771 \SYSPILOTBBT 1753 BITMAP 1728 BITMAP 1679 \TOPWDS 1662 \EM.DISPINTERRUPT 1652 \EM.DISPINTERRUPT 1642 \CURSORDESTINATION 1627 \SOFTCURSORUPP 1620 \SOFTCURSORP 1559 TEXTURE 1503 \BBSCRATCHTEXTURE 1488 \BBSCRATCHTEXTURE 1479 BITMAP 1427 MERGE 1123 BITMAP 1050 \DISPLAYDATA 1020 \DISPLAYDATA 999 \DISPLAYDATA 987 \DISPLAYDATA 975 \DISPLAYDATA 963 \DISPLAYDATA 950 \DISPLAYDATA 936 \DISPLAYDATA 905 \TOPWDS 893 \DISPLAYDATA 884 STREAM 813 \EM.DISPINTERRUPT 792 REPLACE 787 INPUT 741 \TOPWDS 728 OUTPUT 712 \EM.DISPINTERRUPT 702 \EM.DISPINTERRUPT 692 \CURSORDESTINATION 676 OUTPUT 667 \SOFTCURSORUPP 660 \SOFTCURSORP 640 STREAM 625 STREAM 549 OUTPUT 510 \EM.DISPINTERRUPT 443 \TOPWDS 430 OUTPUT 414 \EM.DISPINTERRUPT 404 \EM.DISPINTERRUPT 394 \CURSORDESTINATION 378 OUTPUT 369 \SOFTCURSORUPP 362 \SOFTCURSORP 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
 ()
-()
-\BITBLT.BITMAP :D8
-(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0CÈ[CÈ\j]d^@È_CÈZG²QMG
_¿dOñ¢¿O½NG
_¿dOñ¢¿O¾JG
G
Ø_¿dOñ’¿OºKG
G
Ø_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_¿dOñ’¿OGFØ_¿dOñ’¿Oº@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGgð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
-µ.Gdò¿G`µld
+\BITBLT.BITMAP :D8
+(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0CÈ[CÈ\j]d^@È_CÈZG²QMG
_¿dOñ¢¿O½NG
_¿dOñ¢¿O¾JG
G
Ø_¿dOñ’¿OºKG
G
Ø_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_¿dOñ’¿OGFØ_¿dOñ’¿Oº@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGgð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
+µ.Gdò¿G`µld
+
 „	b¿OdLð¢±ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸GgðšGL
 b¿`KNÙ_&¿JMÙ_(¿CÈKIØÙ_*¿MHØ_,¿@ÈKÙ_.¿M_0¿`O(Í¿`O&Í	¿Ggð²!`@O0O.CO,O*O(O&GG
 °`@O0O.CO,O*O&GGG
@@ -420,18 +421,18 @@ Q
 (L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0CÈ[CÈ\j]d^@È_CÈZG²QMG
_¿dOñ¢¿O½NG
_¿dOñ¢¿O¾JG
G
Ø_¿dOñ’¿OºKG
G
Ø_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_¿dOñ’¿OGFØ_¿dOñ’¿Oº@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGgð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
 µ.Gdò¿G`µld
 
-
+„	b¿OdLð¢±ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸GgðšGL
 b¿`KNÙ_&¿JMÙ_(¿CÈKIØÙ_*¿MHØ_,¿@ÈKÙ_.¿M_0¿`O(Í¿`O&Í	¿Ggð²!`@O0O.CO,O*O(O&GG
 °`@O0O.CO,O*O&GGG
 ±”k𢱄G²Ggð¬oG
-±”k𢱄G²Ggð¬oG
+¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdgð²¿@MNCO,O*O(O&jL	L
 ° gð³Gdgð«g𥿉o	i(795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
 (775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
 ( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
-( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
+\SCALEDBITBLT.DISPLAY :D8
 (P 1 REGION P 0 BITMAP I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) © 
G£kb¿@	² h@
 ¹F¦I
b¿G³3I
b°)@ò@²F¨@	b¿G®@	b„¿E©hC
-¹F¦I
b¿G³3I
b°)@ò@²F¨@	b¿G®@	b„¿E©hC
+b
 ¿D©hC
 b¿FG
 X@ABHHGdhdCDEFGÖGGÖGGGG
@@ -439,14 +440,15 @@ DSPCREATE :D8
 (53 BITMAP)
 ()
 \BACKCOLOR.DISPLAY :D8
-\BACKCOLOR.DISPLAY :D8
-(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) ƒ 
@ghÉ0XdÉ6A²\Aò Ad²ÈkðŸA	lñ¥HA6¿A3 ™HAnÿÿå6¿HÉÈYkð«HAI
+(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) ƒ 
@ghÉ0XdÉ6A²\Aò Ad²ÈkðŸA	lñ¥HA6¿A3 ™HAnÿÿå6¿HÉÈYkð«HAI
+6¿A	¿(127 \ILLEGAL.ARG 117 COLORNUMBERP 66 BITMAPHEIGHT 14 \GETSTREAM)
 (103 BITMAP 96 \DISPLAYDATA 55 BITMAP 44 BITMAP 33 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
 ()
-()
+(RPAQQ \BBSCRATCHTEXTURE NIL)
+(RPAQQ \PILOTBBTSCRATCHBM NIL)
 (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
-(RPAQQ \PILOTBBTSCRATCHBM NIL)
-(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
+DISPLAYSTREAMP :D8
+(I 0 X F 0 \DISPLAYSTREAMTYPES) :

@ô2@É.ÉP³@É.É…d
P¤µùh´@NIL
 (39 IMAGEOPS 32 STREAM 20 IMAGEOPS 13 STREAM 5 STREAM)
 ()
 DSPSOURCETYPE :D8
@@ -476,8 +478,8 @@ NIL
 `@È_¿^Oó‘N<E28098>OH
 gH
 gH
-gH
-gH
+H(359 DSPOPERATION 348 DSPSOURCETYPE 337 DSPRIGHTMARGIN 306 DSPFONT 298 DSPDESTINATION 291 DSPFONT 281 \SETACCESS)
+(353 REPLACE 342 INPUT 317 BITMAP 311 SCREENWIDTH 276 OUTPUT 225 FILELINELENGTH 217 \STREAM.NOT.OPEN 208 \STREAM.NOT.OPEN 199 \EOSERROR 182 \STREAM.DEFAULT.MAXBUFFERS 167 DisplayFDEV 158 \DISPLAYIMAGEOPS 123 ScreenBitMap 93 SCREENWIDTH 69 |PILOTBBTTYPE#| 48 |\DISPLAYDATATYPE#| 34 \DSPPRINTCHAR 18 BITMAP 10 ScreenBitMap)
 ( 101 -16383)
 DSPDESTINATION :D8
 (P 4 CL::$$TYPE-VALUE P 3 CL::$$TYPE-VALUE P 2 CL::$$TYPE-VALUE P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 DESTINATION F 5 XDisplayFDEV) 

@@ -621,20 +623,20 @@ expand-\MAYBE-DRIBBLE-CHAR :D8
 I
 HÉ
 ZHÉ[dÈ\KÈdjð²%¿@HÉ
-ZHÉ[dÈ\KÈdjð²%¿@HÉ
+¿@J
J
ØmÿØLÙkØ
 °UdlZð²¿@J
LØ
-°UdlZð²¿@J
LØ
-¿@J

-°8n
ð²(@J
J
ØmÿØLÙ
+¿@J

+°8n
ð²(@J
J
ØmÿØLÙ
+¿@J
J
ØmÿØ
 ‰o	¿hdd@J
J
J
J
ggHÉ6
 @i
-@i
-
Md²"	É.]d²	@ð´Mo
-h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
-(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
+
Md²"	É.]d²	@ð´Mo
+h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
+(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
+( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270")
 (RPAQ? *DRIBBLE-OUTPUT* NIL)
-(RPAQ? *DRIBBLE-OUTPUT* NIL)
-expand-\MAYBE-DRIBBLE-CHAR :D8
+expand-\MAYBE-DRIBBLE-CHAR :D8
+(L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ?@!H
¹H
ºggogIoggJhhNIL
 (49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND)
 ( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*))
 (SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR))
@@ -730,10 +732,10 @@ NIL
 (32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
 ()
 \DSPTRANSFORMREGION :D8
-\DSPTRANSFORMREGION :D8
-(I 1 DS I 0 REGION) '@
AÉØ@
AÉØ@
@
hNIL
-(19 \DISPLAYDATA 7 \DISPLAYDATA)
-()
+(I 1 DS I 0 REGION) '@
AÉØ@
AÉØ@
@
hNIL
+(19 \DISPLAYDATA 7 \DISPLAYDATA)
+()
+\DSPUNTRANSFORMY :D8
 (I 1 DD I 0 Y) @AÉÙNIL
 (6 \DISPLAYDATA)
 ()
@@ -748,11 +750,10 @@ Z`S
 ()
 UPDATESCREENDIMENSIONS :D8
 NIL ``dlðªdlð¥dlð²¿nn(dlð²¿lð²}C}D(93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
-NIL ``dlðªdlð¥dlð²¿nn(dlð²¿lð²}C}D(93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
+(87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE)
 ()
-()
-\CreateScreenBitMap :D8
-(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹@lØââââ
HAÚlÿØãkÙY`ñ²I`kØKJó²vI¿`Ö`µ#ld`¿dHÍ¿d@Í¿dAÍ¿dkÍ¿``@Í`HÍ`AÍ``KáÐid¿KkÔ[±ÿt(175 \NEWPAGE)
+\CreateScreenBitMap :D8
+(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹@lØââââ
HAÚlÿØãkÙY`ñ²I`kØKJó²vI¿`Ö`µ#ld`¿dHÍ¿d@Í¿dAÍ¿dkÍ¿``@Í`HÍ`AÍ``KáÐid¿KkÔ[±ÿt(175 \NEWPAGE)
 (165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage)
 ()
 (UPDATESCREENDIMENSIONS)

sources/LLKEY

@@ -1,8 +1,8 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "11-Jun-2021 09:43:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6
 197710 
+
(FILECREATED "27-Aug-2021 16:18:18" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;9
 199890 
 
-      previous date%: " 9-Jun-2021 20:18:50" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;5)
+      previous date%: "24-Aug-2021 16:54:52" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;7)
 
 
 (* ; "
@@ -71,7 +71,7 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (COMS                                                (* ; "Key interpretation")

               (FNS KEYACTION KEYACTIONTABLE KEYBOARDTYPE RESETKEYACTION 
                    \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS \KEYACTION1 KEYDOWNP KEYNUMBERP 
-                   \KEYNAMETONUMBER MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP)
+                   \KEYNAMETONUMBER \KEYNUMBERTONAME MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP)
                                                              (* ; 
 
                                                    "To support office style 1108 & 1186 keyboards")

               (FNS SETUP.OFFICE.KEYBOARD)
@@ -1580,29 +1580,29 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 
 
 (RPAQQ \ORIGKEYACTIONS

-       ((0 (53 "%%" NOLOCKSHIFT))
-        (1 (52 "$" NOLOCKSHIFT))
-        (2 (54 "~" NOLOCKSHIFT))
+       ((0 ("5" "%%" NOLOCKSHIFT))
+        (1 ("4" "$" NOLOCKSHIFT))
+        (2 ("6" "~" NOLOCKSHIFT))
         (3 ("e" "E" LOCKSHIFT))
-        (4 (55 "&" NOLOCKSHIFT))
+        (4 ("7" "&" NOLOCKSHIFT))
         (5 ("d" "D" LOCKSHIFT))
         (6 ("u" "U" LOCKSHIFT))
         (7 ("v" "V" LOCKSHIFT))
-        (8 (48 ")" NOLOCKSHIFT))
+        (8 ("0" ")" NOLOCKSHIFT))
         (9 ("k" "K" LOCKSHIFT))
         (10 ("-" "-" NOLOCKSHIFT))
         (11 ("p" "P" LOCKSHIFT))
         (12 ("/" "?" NOLOCKSHIFT))
         (13 ("\" "|" NOLOCKSHIFT))
-        (14 (10 96 NOLOCKSHIFT))
-        (15 (8 8 NOLOCKSHIFT))
-        (16 (51 "#" NOLOCKSHIFT))
-        (17 (50 "@" NOLOCKSHIFT))
+        (14 ("LF" "`" NOLOCKSHIFT))
+        (15 ("Bs" "Bs" NOLOCKSHIFT))
+        (16 ("3" "#" NOLOCKSHIFT))
+        (17 ("2" "@" NOLOCKSHIFT))
         (18 ("w" "W" LOCKSHIFT))
         (19 ("q" "Q" LOCKSHIFT))
         (20 ("s" "S" LOCKSHIFT))
         (21 ("a" "A" LOCKSHIFT))
-        (22 (57 "(" NOLOCKSHIFT))
+        (22 ("9" "(" NOLOCKSHIFT))
         (23 ("i" "I" LOCKSHIFT))
         (24 ("x" "X" LOCKSHIFT))
         (25 ("o" "O" LOCKSHIFT))
@@ -1610,11 +1610,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (27 ("," "<" NOLOCKSHIFT))
         (28 ("'" "%"" NOLOCKSHIFT))
         (29 ("]" "}" NOLOCKSHIFT))
-        (30 (194 194 NOLOCKSHIFT))
-        (31 (193 193 NOLOCKSHIFT))
-        (32 (49 "!" NOLOCKSHIFT))
-        (33 (27 27 NOLOCKSHIFT))
-        (34 (9 9 NOLOCKSHIFT))
+        (30 ("#B" "#B" NOLOCKSHIFT))
+        (31 ("#A" "#A" NOLOCKSHIFT))
+        (32 ("1" "!" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
+        (34 ("Tab" "Tab" NOLOCKSHIFT))
         (35 ("f" "F" LOCKSHIFT))
         (36 CTRLDOWN . CTRLUP)
         (37 ("c" "C" LOCKSHIFT))
@@ -1624,24 +1624,24 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (41 1SHIFTDOWN . 1SHIFTUP)
         (42 ("." ">" NOLOCKSHIFT))
         (43 (";" ":" NOLOCKSHIFT))
-        (44 (13 13 NOLOCKSHIFT))
+        (44 ("CR" "CR" NOLOCKSHIFT))
         (45 ("_" "^" NOLOCKSHIFT))
-        (46 (127 535 NOLOCKSHIFT))
+        (46 ("Del" "Function,^W" NOLOCKSHIFT))
         (47 ("(" "[" NOLOCKSHIFT))
         (48 ("r" "R" LOCKSHIFT))
         (49 ("t" "T" LOCKSHIFT))
         (50 ("g" "G" LOCKSHIFT))
         (51 ("y" "Y" LOCKSHIFT))
         (52 ("h" "H" LOCKSHIFT))
-        (53 (56 "*" NOLOCKSHIFT))
+        (53 ("8" "*" NOLOCKSHIFT))
         (54 ("n" "N" LOCKSHIFT))
         (55 ("m" "M" LOCKSHIFT))
         (56 LOCKDOWN . LOCKUP)
-        (57 (32 32 NOLOCKSHIFT))
+        (57 ("Sp" "Sp" NOLOCKSHIFT))
         (58 ("[" "{" NOLOCKSHIFT))
         (59 ("=" "+" NOLOCKSHIFT))
         (60 2SHIFTDOWN . 2SHIFTUP)
-        (61 (195 195 NOLOCKSHIFT))
+        (61 ("#C" "#C" NOLOCKSHIFT))
         (63 (")" "]" NOLOCKSHIFT))
         (77 EVENT . EVENT)
         (78 EVENT . EVENT)
@@ -1650,190 +1650,190 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (103 LOCKUP)))
 
 (RPAQQ \DLIONKEYACTIONS

-       ((2 (54 "^" NOLOCKSHIFT))
+       ((2 ("6" "^" NOLOCKSHIFT))
         (10 ("-" "_" NOLOCKSHIFT))
         (33 ("\" "|" NOLOCKSHIFT))
-        (45 (96 "~" NOLOCKSHIFT))
+        (45 ("`" "~" NOLOCKSHIFT))
         (OPEN METADOWN . METAUP)
         (PROP'S CTRLDOWN . CTRLUP)
         (SAME METADOWN . METAUP)
-        (FIND ("2,3" "2,43" NOLOCKSHIFT))
-        (UNDO ("2,4" "2,44" NOLOCKSHIFT))
-        (STOP (5 7 NOLOCKSHIFT))
+        (FIND ("Function,^C" "Function,#" NOLOCKSHIFT))
+        (UNDO ("Function,^D" "Function,$" NOLOCKSHIFT))
+        (STOP ("^E" "Bell" NOLOCKSHIFT))
         (MOVE)
         (COPY)
-        (AGAIN ("2,10" "2,50" NOLOCKSHIFT))
-        (CENTER ("2,101" "2,141" NOLOCKSHIFT))
-        (BOLD ("2,102" "2,142" NOLOCKSHIFT))
-        (ITALICS ("2,103" "2,143" NOLOCKSHIFT))
-        (UNDERLINE ("2,106" "2,146" NOLOCKSHIFT))
-        (SUPERSCRIPT ("2,113" "2,153" NOLOCKSHIFT))
-        (SUBSCRIPT ("2,114" "2,154" NOLOCKSHIFT))
-        (LARGER ("2,110" "2,150" NOLOCKSHIFT))
-        (DEFAULTS ("2,115" "2,155" NOLOCKSHIFT))
-        (93 (27 "2,64" NOLOCKSHIFT))
-        (47 ("2,22" "2,62" NOLOCKSHIFT))
-        (31 ("2,5" "2,45" NOLOCKSHIFT))
-        (92 ("2,1" "2,41" NOLOCKSHIFT))
-        (80 ("2,13" "2,53" NOLOCKSHIFT))
-        (FONT ("2,112" "2,152" NOLOCKSHIFT))))
+        (AGAIN ("Function,Bs" "Function,(" NOLOCKSHIFT))
+        (CENTER ("Function,A" "Function,a" NOLOCKSHIFT))
+        (BOLD ("Function,B" "Function,b" NOLOCKSHIFT))
+        (ITALICS ("Function,C" "Function,c" NOLOCKSHIFT))
+        (UNDERLINE ("Function,F" "Function,f" NOLOCKSHIFT))
+        (SUPERSCRIPT ("Function,K" "Function,k" NOLOCKSHIFT))
+        (SUBSCRIPT ("Function,L" "Function,l" NOLOCKSHIFT))
+        (LARGER ("Function,H" "Function,h" NOLOCKSHIFT))
+        (DEFAULTS ("Function,M" "Function,m" NOLOCKSHIFT))
+        (93 ("Esc" "Function,64" NOLOCKSHIFT))
+        (47 ("Function,^R" "Function,62" NOLOCKSHIFT))
+        (31 ("Function,^E" "Function,%%" NOLOCKSHIFT))
+        (92 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (80 ("Function,^K" "Function,+" NOLOCKSHIFT))
+        (FONT ("Function,J" "Function,j" NOLOCKSHIFT))))
 
 (RPAQQ \DLIONOSDKEYACTIONS
 ((56 LOCKTOGGLE)))
 
 (RPAQQ \DORADOKEYACTIONS

-       ((2 (54 "~" NOLOCKSHIFT))
+       ((2 ("6" "~" NOLOCKSHIFT))
         (10 ("-" "-" NOLOCKSHIFT))
         (13 ("\" "|" NOLOCKSHIFT))
-        (14 (10 96 NOLOCKSHIFT))
-        (33 (27 27 NOLOCKSHIFT))
+        (14 ("LF" "`" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
         (45 ("_" "^" NOLOCKSHIFT))))
 
 (RPAQQ \DOVEKEYACTIONS

-       ((2 (54 "^" NOLOCKSHIFT))
+       ((2 ("6" "^" NOLOCKSHIFT))
         (10 ("-" "_" NOLOCKSHIFT))
-        (33 (27 27 NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
         (56 CTRLDOWN . CTRLUP)
-        (65 (27 27 NOLOCKSHIFT))
-        (71 (39 34 NOLOCKSHIFT))
-        (93 ("2,24" "2,64" NOLOCKSHIFT))
-        (108 (96 126 NOLOCKSHIFT))
+        (65 ("Esc" "Esc" NOLOCKSHIFT))
+        (71 ("'" "%"" NOLOCKSHIFT))
+        (93 ("Function,^T" "Function,64" NOLOCKSHIFT))
+        (108 ("`" "~" NOLOCKSHIFT))
         (DBK-META METADOWN . METAUP)
-        (DBK-HELP ("2,1" "2,41" NOLOCKSHIFT))
+        (DBK-HELP ("Function,^A" "Function,!" NOLOCKSHIFT))
         (SAME METADOWN . METAUP)
-        (FIND ("2,3" "2,43" NOLOCKSHIFT))
-        (UNDO ("2,4" "2,44" NOLOCKSHIFT))
-        (STOP (5 7 NOLOCKSHIFT))
-        (EDIT ("2,5" "2,45" NOLOCKSHIFT))
+        (FIND ("Function,^C" "Function,#" NOLOCKSHIFT))
+        (UNDO ("Function,^D" "Function,$" NOLOCKSHIFT))
+        (STOP ("^E" "Bell" NOLOCKSHIFT))
+        (EDIT ("Function,^E" "Function,%%" NOLOCKSHIFT))
         (MOVE)
         (COPY)
-        (AGAIN ("2,10" "2,50" NOLOCKSHIFT))
-        (CENTER ("2,101" "2,141" NOLOCKSHIFT))
-        (BOLD ("2,102" "2,142" NOLOCKSHIFT))
-        (ITALICS ("2,103" "2,143" NOLOCKSHIFT))
-        (CASE ("2,104" "2,144" NOLOCKSHIFT))
-        (STRIKEOUT ("2,105" "2,145" NOLOCKSHIFT))
-        (UNDERLINE ("2,106" "2,146" NOLOCKSHIFT))
-        (SUPER/SUB ("2,107" "2,147" NOLOCKSHIFT))
-        (LARGER ("2,110" "2,150" NOLOCKSHIFT))
-        (MARGINS ("2,111" "2,151" NOLOCKSHIFT))
-        (LOOKS ("2,112" "2,152" NOLOCKSHIFT))
+        (AGAIN ("Function,Bs" "Function,(" NOLOCKSHIFT))
+        (CENTER ("Function,A" "Function,a" NOLOCKSHIFT))
+        (BOLD ("Function,B" "Function,b" NOLOCKSHIFT))
+        (ITALICS ("Function,C" "Function,c" NOLOCKSHIFT))
+        (CASE ("Function,D" "Function,d" NOLOCKSHIFT))
+        (STRIKEOUT ("Function,E" "Function,e" NOLOCKSHIFT))
+        (UNDERLINE ("Function,F" "Function,f" NOLOCKSHIFT))
+        (SUPER/SUB ("Function,G" "Function,g" NOLOCKSHIFT))
+        (LARGER ("Function,H" "Function,h" NOLOCKSHIFT))
+        (MARGINS ("Function,I" "Function,i" NOLOCKSHIFT))
+        (LOOKS ("Function,J" "Function,j" NOLOCKSHIFT))
         (CAPSLOCK LOCKTOGGLE)
-        (NUMLOCK ("2,11" "-" NOLOCKSHIFT))
-        (SCROLLLOCK ("2,12" 180 NOLOCKSHIFT))
-        (BREAK (2 184 NOLOCKSHIFT))
-        (DOIT ("2,13" "2,53" NOLOCKSHIFT))
-        (KEYPAD7 ("2,14" 55 NOLOCKSHIFT))
-        (KEYPAD8 (173 56 NOLOCKSHIFT))
-        (KEYPAD9 ("2,15" 57 NOLOCKSHIFT))
-        (KEYPAD4 (172 52 NOLOCKSHIFT))
-        (KEYPAD5 ("2,16" 53 NOLOCKSHIFT))
-        (KEYPAD6 (174 54 NOLOCKSHIFT))
-        (KEYPAD1 ("2,17" 49 NOLOCKSHIFT))
-        (KEYPAD2 (175 50 NOLOCKSHIFT))
-        (KEYPAD3 ("2,20" 51 NOLOCKSHIFT))
-        (KEYPAD0 ("2,21" 48 NOLOCKSHIFT))
-        (KEYPAD%| ("|" 46 NOLOCKSHIFT))
-        (KEYPAD\ ("\" 44 NOLOCKSHIFT))
-        (47 ("2,22" "2,62" NOLOCKSHIFT))))
+        (NUMLOCK ("Function,Tab" "-" NOLOCKSHIFT))
+        (SCROLLLOCK ("Function,LF" "#4" NOLOCKSHIFT))
+        (BREAK ("^B" "#8" NOLOCKSHIFT))
+        (DOIT ("Function,^K" "Function,+" NOLOCKSHIFT))
+        (KEYPAD7 ("Function,FF" "7" NOLOCKSHIFT))
+        (KEYPAD8 ("#-" "8" NOLOCKSHIFT))
+        (KEYPAD9 ("Function,CR" "9" NOLOCKSHIFT))
+        (KEYPAD4 ("#," "4" NOLOCKSHIFT))
+        (KEYPAD5 ("Function,^N" "5" NOLOCKSHIFT))
+        (KEYPAD6 ("#." "6" NOLOCKSHIFT))
+        (KEYPAD1 ("Function,^O" "1" NOLOCKSHIFT))
+        (KEYPAD2 ("#/" "2" NOLOCKSHIFT))
+        (KEYPAD3 ("Function,^P" "3" NOLOCKSHIFT))
+        (KEYPAD0 ("Function,^Q" "0" NOLOCKSHIFT))
+        (KEYPAD%| ("|" "." NOLOCKSHIFT))
+        (KEYPAD\ ("\" "," NOLOCKSHIFT))
+        (47 ("Function,^R" "Function,62" NOLOCKSHIFT))))
 
 (RPAQQ \DOVEOSDKEYACTIONS
 ((56 LOCKDOWN . LOCKUP)
                                (36 CTRLDOWN . CTRLUP)
-                               (CAPSLOCK ("2,5" "2,45" NOLOCKSHIFT))))
+                               (CAPSLOCK ("Function,^E" "Function,%%" NOLOCKSHIFT))))
 
 (RPAQQ \MAIKOKEYACTIONS

-       ((61 (5 7 NOLOCKSHIFT))
-        (91 (520 552 NOLOCKSHIFT))
-        (92 (513 545 NOLOCKSHIFT))
-        (30 (513 545 NOLOCKSHIFT))
-        (63 (516 548 NOLOCKSHIFT))
-        (93 (532 564 NOLOCKSHIFT))
+       ((61 ("^E" "Bell" NOLOCKSHIFT))
+        (91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
+        (92 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (30 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (63 ("Function,^D" "Function,$" NOLOCKSHIFT))
+        (93 ("Function,^T" "Function,64" NOLOCKSHIFT))
         (62)
-        (111 (329 263 NOLOCKSHIFT))
+        (111 ("Meta,I" "Meta,Bell" NOLOCKSHIFT))
         (89)
-        (90 (515 547 NOLOCKSHIFT))
-        (73 (521 521 NOLOCKSHIFT))
-        (74 (522 522 NOLOCKSHIFT))
-        (75 (2 2 NOLOCKSHIFT))
-        (81 (524 55 NOLOCKSHIFT))
-        (82 (173 56 NOLOCKSHIFT))
-        (83 (525 57 NOLOCKSHIFT))
-        (84 (172 52 NOLOCKSHIFT))
-        (85 (526 53 NOLOCKSHIFT))
-        (87 (174 54 NOLOCKSHIFT))
-        (94 (527 49 NOLOCKSHIFT))
-        (69 (175 50 NOLOCKSHIFT))
-        (70 (528 51 NOLOCKSHIFT))
-        (98 (529 48 NOLOCKSHIFT))
-        (76 (523 555 NOLOCKSHIFT))
+        (90 ("Function,^C" "Function,#" NOLOCKSHIFT))
+        (73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
+        (74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
+        (75 ("^B" "^B" NOLOCKSHIFT))
+        (81 ("Function,FF" "7" NOLOCKSHIFT))
+        (82 ("#-" "8" NOLOCKSHIFT))
+        (83 ("Function,CR" "9" NOLOCKSHIFT))
+        (84 ("#," "4" NOLOCKSHIFT))
+        (85 ("Function,^N" "5" NOLOCKSHIFT))
+        (87 ("#." "6" NOLOCKSHIFT))
+        (94 ("Function,^O" "1" NOLOCKSHIFT))
+        (69 ("#/" "2" NOLOCKSHIFT))
+        (70 ("Function,^P" "3" NOLOCKSHIFT))
+        (98 ("Function,^Q" "0" NOLOCKSHIFT))
+        (76 ("Function,^K" "Function,+" NOLOCKSHIFT))
         (72 LOCKTOGGLE)
-        (97 (577 609 NOLOCKSHIFT))
-        (99 (578 610 NOLOCKSHIFT))
-        (100 (579 611 NOLOCKSHIFT))
-        (67 (580 612 NOLOCKSHIFT))
-        (68 (581 613 NOLOCKSHIFT))
-        (101 (582 614 NOLOCKSHIFT))
-        (66 (583 615 NOLOCKSHIFT))
-        (104 (584 616 NOLOCKSHIFT))
-        (80 (585 617 NOLOCKSHIFT))
-        (13 (23 21 NOLOCKSHIFT))
-        (33 (27 27 NOLOCKSHIFT))
-        (65 (27 27 NOLOCKSHIFT))
-        (2 (54 94 NOLOCKSHIFT))
-        (10 (45 95 NOLOCKSHIFT))
+        (97 ("Function,A" "Function,a" NOLOCKSHIFT))
+        (99 ("Function,B" "Function,b" NOLOCKSHIFT))
+        (100 ("Function,C" "Function,c" NOLOCKSHIFT))
+        (67 ("Function,D" "Function,d" NOLOCKSHIFT))
+        (68 ("Function,E" "Function,e" NOLOCKSHIFT))
+        (101 ("Function,F" "Function,f" NOLOCKSHIFT))
+        (66 ("Function,G" "Function,g" NOLOCKSHIFT))
+        (104 ("Function,H" "Function,h" NOLOCKSHIFT))
+        (80 ("Function,I" "Function,i" NOLOCKSHIFT))
+        (13 ("^W" "^U" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
+        (65 ("Esc" "Esc" NOLOCKSHIFT))
+        (2 ("6" "^" NOLOCKSHIFT))
+        (10 ("-" "_" NOLOCKSHIFT))
         (36 CTRLDOWN . CTRLUP)
         (56 LOCKTOGGLE . IGNORE)
-        (45 (96 126 NOLOCKSHIFT))
+        (45 ("`" "~" NOLOCKSHIFT))
         (31 METADOWN . METAUP)
         (14 METADOWN . METAUP)
-        (71 (10 10 NOLOCKSHIFT))
-        (47 (530 562 NOLOCKSHIFT))
-        (105 (92 124 NOLOCKSHIFT))))
+        (71 ("LF" "LF" NOLOCKSHIFT))
+        (47 ("Function,^R" "Function,62" NOLOCKSHIFT))
+        (105 ("\" "|" NOLOCKSHIFT))))
 
 (RPAQQ \MAIKOKEYACTIONST4

-       ((61 ("^E" "^G" NOLOCKSHIFT))
-        (91 ("2,10" "2,50" NOLOCKSHIFT))
-        (92 ("2,1" "2,41" NOLOCKSHIFT))
-        (30 ("2,1" "2,41" NOLOCKSHIFT))
-        (109 ("2,25" "2,65" NOLOCKSHIFT))
-        (63 ("2,4" "2,44" NOLOCKSHIFT))
+       ((61 ("^E" "Bell" NOLOCKSHIFT))
+        (91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
+        (92 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (30 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (109 ("Function,^U" "Function,65" NOLOCKSHIFT))
+        (63 ("Function,^D" "Function,$" NOLOCKSHIFT))
         (14 METADOWN . METAUP)
-        (93 ("2,24" "2,64" NOLOCKSHIFT))
+        (93 ("Function,^T" "Function,64" NOLOCKSHIFT))
         (62)
-        (111 ("1,111" "1,79" NOLOCKSHIFT))
+        (111 ("Meta,o" "Meta,O" NOLOCKSHIFT))
         (89)
-        (90 ("2,3" "2,43" NOLOCKSHIFT))
-        (73 ("2,11" "2,11" NOLOCKSHIFT))
-        (74 ("2,12" "2,12" NOLOCKSHIFT))
+        (90 ("Function,^C" "Function,#" NOLOCKSHIFT))
+        (73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
+        (74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
         (75 ("^B" "^B" NOLOCKSHIFT))
-        (81 ("2,14" 55 NOLOCKSHIFT))
-        (82 (173 56 NOLOCKSHIFT))
-        (83 ("2,15" 57 NOLOCKSHIFT))
-        (84 (172 52 NOLOCKSHIFT))
-        (85 ("2,16" 53 NOLOCKSHIFT))
-        (87 (174 54 NOLOCKSHIFT))
-        (94 ("2,17" 49 NOLOCKSHIFT))
-        (69 (175 50 NOLOCKSHIFT))
-        (70 ("2,20" 51 NOLOCKSHIFT))
-        (98 ("2,21" 48 NOLOCKSHIFT))
-        (76 ("2,13" "2,13" NOLOCKSHIFT))
-        (110 ("2,53" "2,53" NOLOCKSHIFT))
+        (81 ("Function,FF" "7" NOLOCKSHIFT))
+        (82 ("#-" "8" NOLOCKSHIFT))
+        (83 ("Function,CR" "9" NOLOCKSHIFT))
+        (84 ("#," "4" NOLOCKSHIFT))
+        (85 ("Function,^N" "5" NOLOCKSHIFT))
+        (87 ("#." "6" NOLOCKSHIFT))
+        (94 ("Function,^O" "1" NOLOCKSHIFT))
+        (69 ("#/" "2" NOLOCKSHIFT))
+        (70 ("Function,^P" "3" NOLOCKSHIFT))
+        (98 ("Function,^Q" "0" NOLOCKSHIFT))
+        (76 ("Function,^K" "Function,^K" NOLOCKSHIFT))
+        (110 ("Function,+" "Function,+" NOLOCKSHIFT))
         (72 LOCKTOGGLE)
-        (97 ("2,101" "2,141" NOLOCKSHIFT))
-        (99 ("2,102" "2,142" NOLOCKSHIFT))
-        (100 ("2,103" "2,143" NOLOCKSHIFT))
-        (67 ("2,104" "2,144" NOLOCKSHIFT))
-        (68 ("2,105" "2,145" NOLOCKSHIFT))
-        (101 ("2,106" "2,146" NOLOCKSHIFT))
-        (66 ("2,107" "2,147" NOLOCKSHIFT))
-        (104 ("2,110" "2,150" NOLOCKSHIFT))
-        (80 ("2,111" "2,151" NOLOCKSHIFT))
-        (106 ("2,113" "2,153" NOLOCKSHIFT))
-        (107 ("2,114" "2,154" NOLOCKSHIFT))
-        (108 ("2,115" "2,155" NOLOCKSHIFT))
+        (97 ("Function,A" "Function,a" NOLOCKSHIFT))
+        (99 ("Function,B" "Function,b" NOLOCKSHIFT))
+        (100 ("Function,C" "Function,c" NOLOCKSHIFT))
+        (67 ("Function,D" "Function,d" NOLOCKSHIFT))
+        (68 ("Function,E" "Function,e" NOLOCKSHIFT))
+        (101 ("Function,F" "Function,f" NOLOCKSHIFT))
+        (66 ("Function,G" "Function,g" NOLOCKSHIFT))
+        (104 ("Function,H" "Function,h" NOLOCKSHIFT))
+        (80 ("Function,I" "Function,i" NOLOCKSHIFT))
+        (106 ("Function,K" "Function,k" NOLOCKSHIFT))
+        (107 ("Function,L" "Function,l" NOLOCKSHIFT))
+        (108 ("Function,M" "Function,m" NOLOCKSHIFT))
         (13 ("^W" "^U" NOLOCKSHIFT))
-        (33 ("ESC" "ESC" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
         (64 IGNORE . IGNORE)
-        (65 (27 27 NOLOCKSHIFT))
+        (65 ("Esc" "Esc" NOLOCKSHIFT))
         (95 IGNORE . IGNORE)
         (96 IGNORE . IGNORE)
         (102 IGNORE . IGNORE)
@@ -1843,8 +1843,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (56 LOCKTOGGLE . IGNORE)
         (45 ("`" "~" NOLOCKSHIFT))
         (31 METADOWN . METAUP)
-        (71 (10 10 NOLOCKSHIFT))
-        (47 ("2,22" "2,62" NOLOCKSHIFT))
+        (71 ("LF" "LF" NOLOCKSHIFT))
+        (47 ("Function,^R" "Function,62" NOLOCKSHIFT))
         (86 IGNORE . IGNORE)
         (88 IGNORE . IGNORE)
         (105 ("\" "|" NOLOCKSHIFT))))
@@ -1856,63 +1856,63 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (10 ("\" "_" NOLOCKSHIFT))
         (13 ("^W" "^U" NOLOCKSHIFT))
         (14 METADOWN . METAUP)
-        (15 (8 8 NOLOCKSHIFT))
+        (15 ("Bs" "Bs" NOLOCKSHIFT))
         (17 ("2" "%"" NOLOCKSHIFT))
         (22 ("9" ")" NOLOCKSHIFT))
         (28 (":" "*" NOLOCKSHIFT))
         (29 ("[" "{" NOLOCKSHIFT))
         (30 ("]" "}" NOLOCKSHIFT))
         (31 METADOWN . METAUP)
-        (33 ("ESC" "ESC" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
         (36 CTRLDOWN . CTRLUP)
         (43 (";" "+" NOLOCKSHIFT))
         (45 ("^" "~" NOLOCKSHIFT))
-        (47 ("2,22" "2,62" NOLOCKSHIFT))
+        (47 ("Function,^R" "Function,62" NOLOCKSHIFT))
         (53 ("8" "(" NOLOCKSHIFT))
         (56 LOCKTOGGLE . IGNORE)
         (58 ("@" "`" NOLOCKSHIFT))
         (59 ("-" "=" NOLOCKSHIFT))
-        (61 ("^E" "^G" NOLOCKSHIFT))
+        (61 ("^E" "Bell" NOLOCKSHIFT))
         (62)
-        (63 ("2,4" "2,44" NOLOCKSHIFT))
-        (64 ("2,14" 55 NOLOCKSHIFT))
-        (65 (27 27 NOLOCKSHIFT))
-        (66 ("2,107" "2,147" NOLOCKSHIFT))
-        (67 ("2,104" "2,144" NOLOCKSHIFT))
-        (69 ("2,13" "2,53" NOLOCKSHIFT))
-        (70 ("2,20" 51 NOLOCKSHIFT))
-        (71 (10 10 NOLOCKSHIFT))
-        (72 (766 766 NOLOCKSHIFT))
-        (73 ("2,11" "2,11" NOLOCKSHIFT))
-        (74 ("2,12" "2,12" NOLOCKSHIFT))
+        (63 ("Function,^D" "Function,$" NOLOCKSHIFT))
+        (64 ("Function,FF" "7" NOLOCKSHIFT))
+        (65 ("Esc" "Esc" NOLOCKSHIFT))
+        (66 ("Function,G" "Function,g" NOLOCKSHIFT))
+        (67 ("Function,D" "Function,d" NOLOCKSHIFT))
+        (69 ("Function,^K" "Function,+" NOLOCKSHIFT))
+        (70 ("Function,^P" "3" NOLOCKSHIFT))
+        (71 ("LF" "LF" NOLOCKSHIFT))
+        (72 ("Function,#~" "Function,#~" NOLOCKSHIFT))
+        (73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
+        (74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
         (75 ("^B" "^B" NOLOCKSHIFT))
-        (80 ("2,111" "2,151" NOLOCKSHIFT))
-        (81 ("2,14" 55 NOLOCKSHIFT))
-        (82 (173 56 NOLOCKSHIFT))
-        (83 ("2,15" 57 NOLOCKSHIFT))
-        (84 (172 52 NOLOCKSHIFT))
-        (85 ("2,16" 53 NOLOCKSHIFT))
-        (86 (765 765 NOLOCKSHIFT))
-        (87 (174 54 NOLOCKSHIFT))
-        (88 (770 771 NOLOCKSHIFT))
-        (90 ("2,3" "2,43" NOLOCKSHIFT))
-        (91 ("2,10" "2,50" NOLOCKSHIFT))
-        (92 ("2,1" "2,41" NOLOCKSHIFT))
-        (93 ("2,24" "2,64" NOLOCKSHIFT))
+        (80 ("Function,I" "Function,i" NOLOCKSHIFT))
+        (81 ("Function,FF" "7" NOLOCKSHIFT))
+        (82 ("#-" "8" NOLOCKSHIFT))
+        (83 ("Function,CR" "9" NOLOCKSHIFT))
+        (84 ("#," "4" NOLOCKSHIFT))
+        (85 ("Function,^N" "5" NOLOCKSHIFT))
+        (86 ("Function,#}" "Function,#}" NOLOCKSHIFT))
+        (87 ("#." "6" NOLOCKSHIFT))
+        (88 ("3,^B" "3,^C" NOLOCKSHIFT))
+        (90 ("Function,^C" "Function,#" NOLOCKSHIFT))
+        (91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
+        (92 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (93 ("Function,^T" "Function,64" NOLOCKSHIFT))
         (96 IGNORE . IGNORE)
-        (98 ("2,21" 48 NOLOCKSHIFT))
-        (99 ("2,102" "2,142" NOLOCKSHIFT))
-        (101 ("2,106" "2,146" NOLOCKSHIFT))
+        (98 ("Function,^Q" "0" NOLOCKSHIFT))
+        (99 ("Function,B" "Function,b" NOLOCKSHIFT))
+        (101 ("Function,F" "Function,f" NOLOCKSHIFT))
         (102 IGNORE . IGNORE)
-        (103 (767 768 NOLOCKSHIFT))
-        (104 ("2,110" "2,150" NOLOCKSHIFT))
+        (103 ("Function,#Del" "3,Null" NOLOCKSHIFT))
+        (104 ("Function,H" "Function,h" NOLOCKSHIFT))
         (105 ("\" "|" NOLOCKSHIFT))
-        (106 ("2,113" "2,153" NOLOCKSHIFT))
-        (107 ("2,114" "2,154" NOLOCKSHIFT))
-        (108 ("2,115" "2,155" NOLOCKSHIFT))
-        (109 (769 769 NOLOCKSHIFT))
-        (110 ("2,53" "2,53" NOLOCKSHIFT))
-        (111 ("1,111" "1,79" NOLOCKSHIFT))))
+        (106 ("Function,K" "Function,k" NOLOCKSHIFT))
+        (107 ("Function,L" "Function,l" NOLOCKSHIFT))
+        (108 ("Function,M" "Function,m" NOLOCKSHIFT))
+        (109 ("3,^A" "3,^A" NOLOCKSHIFT))
+        (110 ("Function,+" "Function,+" NOLOCKSHIFT))
+        (111 ("Meta,o" "Meta,O" NOLOCKSHIFT))))
 
 (RPAQQ \TOSHIBA-KEYACTIONS

        ((2 ("6" "&" NOLOCKSHIFT))
@@ -1929,26 +1929,26 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (105 ("]" "}" NOLOCKSHIFT))
         (43 (";" "+" NOLOCKSHIFT))
         (28 (":" "*" NOLOCKSHIFT))
-        (15 (23 95 NOLOCKSHIFT))
-        (13 (8 8 NOLOCKSHIFT))
+        (15 ("^W" "_" NOLOCKSHIFT))
+        (13 ("Bs" "Bs" NOLOCKSHIFT))
         (86 METADOWN . METAUP)
-        (73 (530 562 NOLOCKSHIFT))
-        (88 ("2,24" "2,64" NOLOCKSHIFT))
+        (73 ("Function,^R" "Function,62" NOLOCKSHIFT))
+        (88 ("Function,^T" "Function,64" NOLOCKSHIFT))
         (98 IGNORE . IGNORE)
-        (75 ("2,11" "2,11" NOLOCKSHIFT))
-        (110 ("2,12" "2,12" NOLOCKSHIFT))
+        (75 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
+        (110 ("Function,LF" "Function,LF" NOLOCKSHIFT))
         (74 ("^B" "^B" NOLOCKSHIFT))
-        (64 ("2,14" 55 NOLOCKSHIFT))
-        (65 (173 56 NOLOCKSHIFT))
-        (95 ("2,15" 57 NOLOCKSHIFT))
-        (81 (172 52 NOLOCKSHIFT))
-        (82 ("2,16" 53 NOLOCKSHIFT))
-        (83 (174 54 NOLOCKSHIFT))
-        (84 ("2,17" 49 NOLOCKSHIFT))
-        (85 (175 50 NOLOCKSHIFT))
-        (87 ("2,20" 51 NOLOCKSHIFT))
-        (94 ("2,21" 48 NOLOCKSHIFT))
-        (69 ("2,13" "2,53" NOLOCKSHIFT))
+        (64 ("Function,FF" "7" NOLOCKSHIFT))
+        (65 ("#-" "8" NOLOCKSHIFT))
+        (95 ("Function,CR" "9" NOLOCKSHIFT))
+        (81 ("#," "4" NOLOCKSHIFT))
+        (82 ("Function,^N" "5" NOLOCKSHIFT))
+        (83 ("#." "6" NOLOCKSHIFT))
+        (84 ("Function,^O" "1" NOLOCKSHIFT))
+        (85 ("#/" "2" NOLOCKSHIFT))
+        (87 ("Function,^P" "3" NOLOCKSHIFT))
+        (94 ("Function,^Q" "0" NOLOCKSHIFT))
+        (69 ("Function,^K" "Function,+" NOLOCKSHIFT))
         (70 LOCKTOGGLE)))
 
 (RPAQQ KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS
 NIL)
@@ -1975,13 +1975,13 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (DEFINEQ
 
 (KEYACTION

-  [LAMBDA (KEYNAME ACTIONS TABLE)
                        (* ; "Edited 19-Nov-87 16:19 by Snow")

-    (LET ((NUMB (OR (SMALLP KEYNAME)
+  [LAMBDA (KEYNAME ACTIONS TABLE)
                       (* ; "Edited 24-Aug-2021 16:54 by rmk:")

+    (LET ((NUMB (OR (KEYNUMBERP
 KEYNAME)
                     (\KEYNAMETONUMBER
 KEYNAME)))
           (TABLE (OR TABLE \CURRENTKEYACTION)))
          (OR (TYPE?
 KEYACTION TABLE)
-             (\ILLEGAL.ARG TABLE))                           (* ; 
-
                                                    "Make sure he supplied a valid TABLE argument.")

+             (\ILLEGAL.ARG TABLE))                           (* ; 
+
                                                    "Make sure he supplied a valid TABLE argument.")

          (CONS (\KEYACTION1
 (\TRANSINDEX NUMB T)
                       (AND ACTIONS (OR (CAR ACTIONS)
                                        'IGNORE))
@@ -2318,6 +2318,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
                                        when
 (EQMEMB N Y) do
 (RETURN I)))
                                (\ILLEGAL.ARG KEYNAME])
 
+(\KEYNUMBERTONAME

+  [LAMBDA (KEYNUMBER)
+    (DECLARE
 (GLOBALVARS \KEYNAMES))
                (* ; "Edited 24-Aug-2021 16:03 by rmk:")

+    (CAR (NTH \KEYNAMES (ADD1 KEYNUMBER])
+
 (MODIFY.KEYACTIONS

   [LAMBDA (KeyActions SaveCurrent?)
                    (* ; "Edited  2-Feb-89 15:38 by GADENER")

     (PROG1 [if
 SaveCurrent?
@@ -3917,32 +3922,33 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 
 1992 1999 1920 2000 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (14679 21995 (BKSYSCHARCODE 14689 . 15038) (\CLEARSYSBUF 15040 . 15598) (\GETKEY 15600
- . 16775) (\NSYSBUFCHARS 16777 . 17519) (\SAVESYSBUF 17521 . 19130) (\SYSBUFP 19132 . 19436) (
-\GETSYSBUF 19438 . 19618) (\PUTSYSBUF 19620 . 20833) (\PEEKSYSBUF 20835 . 21993)) (23292 60126 (
-\KEYBOARDINIT 23302 . 25022) (\KEYBOARDEVENTFN 25024 . 29724) (\ALLOCLOCKED 29726 . 30316) (
-\SETIOPOINTERS 30318 . 34854) (\KEYBOARDOFF 34856 . 35270) (\KEYBOARDON 35272 . 35651) (\KEYHANDLER 
-35653 . 35784) (\KEYHANDLER1 35786 . 43232) (\RESETKEYBOARD 43234 . 44882) (\DOMOUSECHORDING 44884 . 
-48704) (\DOTRANSITIONS 48706 . 49383) (\DECODETRANSITION 49385 . 56074) (MOUSECHORDWAIT 56076 . 56740)
- (\TRACKCURSOR 56742 . 60124)) (93868 115217 (KEYACTION 93878 . 94722) (KEYACTIONTABLE 94724 . 95906) 
-(KEYBOARDTYPE 95908 . 97010) (RESETKEYACTION 97012 . 98771) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
-98773 . 100675) (\KEYACTION1 100677 . 110793) (KEYDOWNP 110795 . 111130) (KEYNUMBERP 111132 . 111330) 
-(\KEYNAMETONUMBER 111332 . 112026) (MODIFY.KEYACTIONS 112028 . 112889) (METASHIFT 112891 . 113835) (
-SHIFTDOWNP 113837 . 115215)) (115280 115576 (SETUP.OFFICE.KEYBOARD 115290 . 115574)) (118279 119991 (
-\INIT.KEYBOARD.STREAM 118289 . 119989)) (120256 136633 (\DOBUFFEREDTRANSITIONS 120266 . 135696) (
-\TIMER.INTERRUPTFRAME 135698 . 136423) (\PERIODIC.INTERRUPTFRAME 136425 . 136631)) (136887 140964 (
-\HARDCURSORUP 136897 . 138779) (\HARDCURSORPOSITION 138781 . 140817) (\HARDCURSORDOWN 140819 . 140962)
-) (140965 165025 (CURSOR.INIT 140975 . 144675) (\CURSORDESTINATION 144677 . 146995) (\SOFTCURSORUP 
-146997 . 152251) (\SOFTCURSORUPCURRENT 152253 . 159289) (\SOFTCURSORPOSITION 159291 . 160056) (
-\SOFTCURSORDOWN 160058 . 160766) (CURSORPROP 160768 . 161110) (GETCURSORPROP 161112 . 161300) (
-PUTCURSORPROP 161302 . 162457) (\CURSORBITSPERPIXEL 162459 . 164575) (\CURSORIMAGEPROPNAME 164577 . 
-164801) (\CURSORMASKPROPNAME 164803 . 165023)) (165026 182976 (CURSORCREATE 165036 . 167711) (CURSOR 
-167713 . 169525) (\CURSOR-VALID-P 169527 . 170614) (\CURSORUP 170616 . 172331) (\CURSORPOSITION 172333
- . 174861) (\CURSORDOWN 174863 . 175096) (ADJUSTCURSORPOSITION 175098 . 175676) (CURSORPOSITION 175678
- . 177220) (CURSORSCREEN 177222 . 177878) (CURSOREXIT 177880 . 179271) (FLIPCURSOR 179273 . 180399) (
-FLIPCURSORBAR 180401 . 181381) (LASTMOUSEX 181383 . 181637) (LASTMOUSEY 181639 . 181893) (
-CREATEPOSITION 181895 . 182101) (POSITIONP 182103 . 182387) (CURSORHOTSPOT 182389 . 182974)) (184214 
-185762 (GETMOUSESTATE 184224 . 184883) (\EVENTKEYS 184885 . 185760)) (192189 192985 (MACHINETYPE 
-192199 . 192599) (SETMAINTPANEL 192601 . 192983)) (193015 194154 (BEEPON 193025 . 193678) (BEEPOFF 
-193680 . 194152)) (194605 194868 (WITHOUT-INTERRUPTS 194615 . 194866)))))
+  (FILEMAP (NIL (14696 22012 (BKSYSCHARCODE 14706 . 15055) (\CLEARSYSBUF 15057 . 15615) (\GETKEY 15617
+ . 16792) (\NSYSBUFCHARS 16794 . 17536) (\SAVESYSBUF 17538 . 19147) (\SYSBUFP 19149 . 19453) (
+\GETSYSBUF 19455 . 19635) (\PUTSYSBUF 19637 . 20850) (\PEEKSYSBUF 20852 . 22010)) (23309 60143 (
+\KEYBOARDINIT 23319 . 25039) (\KEYBOARDEVENTFN 25041 . 29741) (\ALLOCLOCKED 29743 . 30333) (
+\SETIOPOINTERS 30335 . 34871) (\KEYBOARDOFF 34873 . 35287) (\KEYBOARDON 35289 . 35668) (\KEYHANDLER 
+35670 . 35801) (\KEYHANDLER1 35803 . 43249) (\RESETKEYBOARD 43251 . 44899) (\DOMOUSECHORDING 44901 . 
+48721) (\DOTRANSITIONS 48723 . 49400) (\DECODETRANSITION 49402 . 56091) (MOUSECHORDWAIT 56093 . 56757)
+ (\TRACKCURSOR 56759 . 60141)) (95847 117397 (KEYACTION 95857 . 96710) (KEYACTIONTABLE 96712 . 97894) 
+(KEYBOARDTYPE 97896 . 98998) (RESETKEYACTION 99000 . 100759) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
+100761 . 102663) (\KEYACTION1 102665 . 112781) (KEYDOWNP 112783 . 113118) (KEYNUMBERP 113120 . 113318)
+ (\KEYNAMETONUMBER 113320 . 114014) (\KEYNUMBERTONAME 114016 . 114206) (MODIFY.KEYACTIONS 114208 . 
+115069) (METASHIFT 115071 . 116015) (SHIFTDOWNP 116017 . 117395)) (117460 117756 (
+SETUP.OFFICE.KEYBOARD 117470 . 117754)) (120459 122171 (\INIT.KEYBOARD.STREAM 120469 . 122169)) (
+122436 138813 (\DOBUFFEREDTRANSITIONS 122446 . 137876) (\TIMER.INTERRUPTFRAME 137878 . 138603) (
+\PERIODIC.INTERRUPTFRAME 138605 . 138811)) (139067 143144 (\HARDCURSORUP 139077 . 140959) (
+\HARDCURSORPOSITION 140961 . 142997) (\HARDCURSORDOWN 142999 . 143142)) (143145 167205 (CURSOR.INIT 
+143155 . 146855) (\CURSORDESTINATION 146857 . 149175) (\SOFTCURSORUP 149177 . 154431) (
+\SOFTCURSORUPCURRENT 154433 . 161469) (\SOFTCURSORPOSITION 161471 . 162236) (\SOFTCURSORDOWN 162238 . 
+162946) (CURSORPROP 162948 . 163290) (GETCURSORPROP 163292 . 163480) (PUTCURSORPROP 163482 . 164637) (
+\CURSORBITSPERPIXEL 164639 . 166755) (\CURSORIMAGEPROPNAME 166757 . 166981) (\CURSORMASKPROPNAME 
+166983 . 167203)) (167206 185156 (CURSORCREATE 167216 . 169891) (CURSOR 169893 . 171705) (
+\CURSOR-VALID-P 171707 . 172794) (\CURSORUP 172796 . 174511) (\CURSORPOSITION 174513 . 177041) (
+\CURSORDOWN 177043 . 177276) (ADJUSTCURSORPOSITION 177278 . 177856) (CURSORPOSITION 177858 . 179400) (
+CURSORSCREEN 179402 . 180058) (CURSOREXIT 180060 . 181451) (FLIPCURSOR 181453 . 182579) (FLIPCURSORBAR
+ 182581 . 183561) (LASTMOUSEX 183563 . 183817) (LASTMOUSEY 183819 . 184073) (CREATEPOSITION 184075 . 
+184281) (POSITIONP 184283 . 184567) (CURSORHOTSPOT 184569 . 185154)) (186394 187942 (GETMOUSESTATE 
+186404 . 187063) (\EVENTKEYS 187065 . 187940)) (194369 195165 (MACHINETYPE 194379 . 194779) (
+SETMAINTPANEL 194781 . 195163)) (195195 196334 (BEEPON 195205 . 195858) (BEEPOFF 195860 . 196332)) (
+196785 197048 (WITHOUT-INTERRUPTS 196795 . 197046)))))
 STOP

sources/LLREAD

@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "21-Aug-2021 13:00:01" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;98
 103410 
+
(FILECREATED "24-Aug-2021 10:04:18" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;103
 105490 
 
       changes to%:  (FNS CHARCODE.DECODE)
 
-      previous date%: "20-Aug-2021 00:02:20" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;96)
+      previous date%: "24-Aug-2021 08:32:13" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;101)
 
 
 (* ; "
@@ -35,6 +35,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
                    ESTIMATE-DIMENSIONALITY SKIP.HASH.COMMENT CMLREAD.FEATURE.PARSER))
         (COMS                                                (* ; "Reading characters with #\")

               (FNS CHARACTER.READ CHARCODE.DECODE)
+              (FNS HEXNUM? OCTALNUM?)
               (VARS CHARACTERNAMES CHARACTERSETNAMES))
         (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES)
                (MACROS .CALL.SUBREAD. FIXDOT RBCONTEXT PROPRB \RDCONC)
@@ -1396,7 +1397,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
                                                          (READ-EXTENDED-TOKEN
 STREAM])
 
 (CHARCODE.DECODE

-  [LAMBDA (C NOERROR)
                                   (* ; "Edited 21-Aug-2021 12:59 by rmk:")


+  [LAMBDA (C NOERROR)
                                   (* ; "Edited 24-Aug-2021 10:03 by rmk:")


                                                              (* ; "Edited 18-Feb-87 22:03 by bvm:")

     (DECLARE
 (GLOBALVARS CHARACTERNAMES CHARACTERSETNAMES))
 
@@ -1425,16 +1426,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
 
                                               "LITATOM instead of ATOM stops numbers right here. ")

         (AND (NOT NOERROR)
              (ERROR "BAD CHARACTER SPECIFICATION" C)))
-       [(AND (SELCHARQ (CHCON1 C)
-                  (0                                         (* ; "Hex?  0X or 0x")

-                     (FMEMB (NTHCHARCODE C 2)
-                            (CHARCODE (x X))))
-                  ((U u)                                     (* ; "Unicode  U+ or u+")

-                       (EQ (NTHCHARCODE C 2)
-                           (CHARCODE +)))
-                  NIL)
-             (CAR (NLSETQ (CL:PARSE-INTEGER
 (SUBSTRING C 3)
-                                 :RADIX 16]
+       ((HEXNUM?
 C T))
        (T
         (SELCHARQ (CHCON1 C)
              (^ (AND (SETQ C (CHARCODE.DECODE
 (SUBSTRING C 2 -1)
@@ -1453,52 +1445,94 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
                 do
 (RETURN (OR (NUMBERP (CADR X))
                                    (CHARCODE.DECODE
 (CADR X)
                                           NOERROR)))
-                finally

-                (RETURN (LET ((POS (STRPOSL '(%, -
 "." "|")
-                                          C))
-                              CH CSET SSTR)                  (* ; "In the form charset,char")

+                finally
 (RETURN
+                             (LET ([POS (find
 I from
 1
+                                           suchthat
 (FMEMB (OR (NTHCHARCODE C I)
+                                                                   (RETURN))
+                                                               (CHARCODE (%, -
 %. %|]
+                                   CH CSET SSTR)             (* ; "In the form charset,char")

 
-                             (* ;; "The character set loop is like the character loop with a different search list and no recursion for character sets.")

+                                  (* ;; 
+
                         "Don't use STRPOSL because CHARTABLE is not available in loadup sequence.")

 
-                             (COND
-                                ((AND POS (SETQ CH (OR (CAR (NLSETQ (CL:PARSE-INTEGER

-                                                                     (SETQ SSTR (SUBSTRING
-                                                                                 C
-                                                                                 (ADD1 POS)))
-                                                                     :RADIX 8)))
-                                                       (CHARCODE.DECODE
 SSTR NOERROR)))
-                                      (< CH 256)
-                                      (>= CH 0)
-                                      [SETQ CSET
-                                       (OR (CAR (NLSETQ (CL:PARSE-INTEGER
 (SETQ SSTR
-                                                                               (SUBSTRING
-                                                                                C 1 (SUB1 POS)))
-                                                               :RADIX 8)))
-                                           (CADR (find
 PAIR in
 CHARACTERSETNAMES
-                                                    suchthat
 
+                                  (* ;; "The character set loop is like the character loop with a different search list and no recursion for character sets.")

 
-                                                          (* ;; 
-
                                             "No recursion, if not a number the list is bad, not C")

+                                  (COND
+                                     ((AND POS (SETQ CH (OR [OCTALNUM?
 (SETQ SSTR
+                                                                            (SUBSTRING C (ADD1 POS]
+                                                            (CHARCODE.DECODE
 SSTR NOERROR)))
+                                           (< CH 256)
+                                           (>= CH 0)
+                                           (SETQ CSET (OR [OCTALNUM?
 (SETQ SSTR
+                                                                          (SUBSTRING C 1 (SUB1 POS]
+                                                          (CADR (find
 PAIR in
 
+                                                                                    CHARACTERSETNAMES
+                                                                   suchthat
 
 
-                                                          (STRING.EQUAL (CAR PAIR)
-                                                                 SSTR)))
-                                           (AND (SELCHARQ (CHCON1 SSTR)
-                                                     (0      (* ; "Hex?  0X or 0x")

-                                                        (FMEMB (NTHCHARCODE SSTR 2)
-                                                               (CHARCODE (x X))))
-                                                     ((U u)  (* ; "Unicode  U+ or u+")

-                                                          (EQ (NTHCHARCODE SSTR 2)
-                                                              (CHARCODE +)))
-                                                     NIL)
-                                                (CAR (NLSETQ (CL:PARSE-INTEGER
 (SUBSTRING SSTR 3)
-                                                                    :RADIX 16]
-                                      (< CSET 256)
-                                      (>= CSET 0))           (* ; 
+                                                                     (* ;; 
+
                                    "No recursion. If not a number the list is bad even if C is OK")

+
+                                                                         (STRING.EQUAL (CAR PAIR)
+                                                                                SSTR)))
+                                                          (HEXNUM?
 SSTR T)))
+                                           (< CSET 256)
+                                           (>= CSET 0))      (* ; 
 
                              "parsed the charset part as an octal,  standard charset name, or hex")

-                                 (LOGOR (LLSH CSET 8)
-                                        CH))
-                                ((NOT NOERROR)
-                                 (ERROR "BAD CHARACTER SPECIFICATION" C])
+                                      (LOGOR (LLSH CSET 8)
+                                             CH))
+                                     ((NOT NOERROR)
+                                      (ERROR "BAD CHARACTER SPECIFICATION" C])
+)
+(DEFINEQ
+
+(HEXNUM?

+  [LAMBDA (STR PREFIXED?)
                               (* ; "Edited 24-Aug-2021 08:31 by rmk:")

+
+    (* ;; "Returns the number encoded as a hex representation in STR, NIL if it is not an unsigned hex string.  The hex digits can be upper or lower case.")

+
+    (* ;; "If PREFIXED?, then hex ending must follow one of 0x, 0X, u+, U+ prefixes")

+
+    (* ;; "CL:PARSE-INTEGER with JUNK-ALLOWED would also return NIL, but it would trim commonlisp seprs...and also depends on CHARTABLE which is not available at the right place in the loadup.")

+
+    (CL:WHEN [OR (NOT PREFIXED?)
+                 (AND (SELCHARQ (CHCON1 STR)
+                           (0                                (* ; "Hex?  0X or 0x")

+                              (FMEMB (NTHCHARCODE STR 2)
+                                     (CHARCODE (x X))))
+                           ((U u)                            (* ; "Unicode  U+ or u+")

+                                (EQ (NTHCHARCODE STR 2)
+                                    (CHARCODE +)))
+                           NIL)
+                      (SETQ STR (SUBSTRING STR 3 NIL (CONSTANT (CONCAT]
+        (FOR
 I C (NUM _ 0) FROM
 1 WHILE
 (SETQ C (NTHCHARCODE STR I))
+           DO
 [SETQ C (IDIFFERENCE C (IF
 (AND (IGEQ C (CHARCODE 0))
+                                                      (ILEQ C (CHARCODE 9)))
+                                             THEN
 (CHARCODE 0)
+                                           ELSEIF
 (IF
 (AND (IGEQ C (CHARCODE a))
+                                                                   (ILEQ C (CHARCODE f)))
+                                                          THEN
 (IDIFFERENCE (CHARCODE a)
+                                                                          10)
+                                                        ELSEIF
 (AND (IGEQ C (CHARCODE A))
+                                                                        (ILEQ C (CHARCODE F)))
+                                                          THEN
 (IDIFFERENCE (CHARCODE A)
+                                                                          10))
+                                           ELSE
 (RETURN NIL]
+                 (SETQ NUM (IPLUS (LLSH NUM 4)
+                                  C)) FINALLY
 (RETURN NUM)))])
+
+(OCTALNUM?

+  [LAMBDA (STR)
                                         (* ; "Edited 24-Aug-2021 08:25 by rmk:")

+
+    (* ;; "Returns the number encoded as an octal representation in STR, NIL if it is not an unsigned octal string.")

+
+    (* ;; "CL:PARSE-INTEGER with JUNK-ALLOWED would also return NIL, but it would trim commonlisp seprs...and also depends on CHARTABLE which is not available at the right place in the loadup.")

+
+    (FOR
 I C (NUM _ 0) FROM
 1 WHILE
 (SETQ C (NTHCHARCODE STR I))
+       DO
 (IF
 (AND (IGEQ C (CHARCODE 0))
+                           (ILEQ C (CHARCODE 7)))
+                  THEN
 [SETQ NUM (IPLUS (LLSH NUM 3)
+                                            (IDIFFERENCE C (CHARCODE 0]
+                ELSE
 (RETURN NIL)) FINALLY
 (RETURN NUM])
 )
 
 (RPAQQ CHARACTERNAMES

@@ -1912,20 +1946,20 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
 (PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
 1991 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3476 11705 (LASTC 3486 . 3792) (PEEKC 3794 . 4182) (PEEKCCODE 4184 . 4477) (RATOM 4479
- . 5560) (READ 5562 . 6122) (READC 6124 . 6765) (READCCODE 6767 . 7526) (READP 7528 . 8080) (
-SETREADMACROFLG 8082 . 8381) (SKIPSEPRCODES 8383 . 9366) (SKIPSEPRS 9368 . 9754) (SKREAD 9756 . 11703)
-) (11751 20360 (CL:READ 11761 . 12310) (CL:READ-PRESERVING-WHITESPACE 12312 . 13034) (
-CL:READ-DELIMITED-LIST 13036 . 13951) (CL:PARSE-INTEGER 13953 . 20358)) (20453 32930 (RSTRING 20463 . 
-21195) (READ-EXTENDED-TOKEN 21197 . 25069) (\RSTRING2 25071 . 32928)) (32966 64106 (\TOP-LEVEL-READ 
-32976 . 34959) (\SUBREAD 34961 . 60522) (\SUBREADCONCAT 60524 . 61147) (\ORIG-READ.SYMBOL 61149 . 
-62217) (\ORIG-INVALID.SYMBOL 62219 . 63118) (\APPLYREADMACRO 63120 . 63536) (INREADMACROP 63538 . 
-64104)) (64265 64440 (READQUOTE 64275 . 64438)) (64465 76369 (READVBAR 64475 . 65806) (READHASHMACRO 
-65808 . 71618) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71620 . 71840) (DIGITBASEP 71842 . 72576) (
-READNUMBERINBASE 72578 . 74464) (ESTIMATE-DIMENSIONALITY 74466 . 74791) (SKIP.HASH.COMMENT 74793 . 
-75761) (CMLREAD.FEATURE.PARSER 75763 . 76367)) (76413 83888 (CHARACTER.READ 76423 . 77677) (
-CHARCODE.DECODE 77679 . 83886)) (88360 100854 (\OUTCHAR 88370 . 89506) (\INCCODE 89508 . 90694) (
-\BACKCCODE 90696 . 91590) (\BACKCCODE.EOLC 91592 . 94355) (\PEEKCCODE 94357 . 94673) (
-\PEEKCCODE.NOEOLC 94675 . 94937) (\INCCODE.EOLC 94939 . 96798) (\FORMATBYTESTREAM 96800 . 98286) (
-\CHECKEOLC.CRLF 98288 . 100852)))))
+  (FILEMAP (NIL (3516 11745 (LASTC 3526 . 3832) (PEEKC 3834 . 4222) (PEEKCCODE 4224 . 4517) (RATOM 4519
+ . 5600) (READ 5602 . 6162) (READC 6164 . 6805) (READCCODE 6807 . 7566) (READP 7568 . 8120) (
+SETREADMACROFLG 8122 . 8421) (SKIPSEPRCODES 8423 . 9406) (SKIPSEPRS 9408 . 9794) (SKREAD 9796 . 11743)
+) (11791 20400 (CL:READ 11801 . 12350) (CL:READ-PRESERVING-WHITESPACE 12352 . 13074) (
+CL:READ-DELIMITED-LIST 13076 . 13991) (CL:PARSE-INTEGER 13993 . 20398)) (20493 32970 (RSTRING 20503 . 
+21235) (READ-EXTENDED-TOKEN 21237 . 25109) (\RSTRING2 25111 . 32968)) (33006 64146 (\TOP-LEVEL-READ 
+33016 . 34999) (\SUBREAD 35001 . 60562) (\SUBREADCONCAT 60564 . 61187) (\ORIG-READ.SYMBOL 61189 . 
+62257) (\ORIG-INVALID.SYMBOL 62259 . 63158) (\APPLYREADMACRO 63160 . 63576) (INREADMACROP 63578 . 
+64144)) (64305 64480 (READQUOTE 64315 . 64478)) (64505 76409 (READVBAR 64515 . 65846) (READHASHMACRO 
+65848 . 71658) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71660 . 71880) (DIGITBASEP 71882 . 72616) (
+READNUMBERINBASE 72618 . 74504) (ESTIMATE-DIMENSIONALITY 74506 . 74831) (SKIP.HASH.COMMENT 74833 . 
+75801) (CMLREAD.FEATURE.PARSER 75803 . 76407)) (76453 82797 (CHARACTER.READ 76463 . 77717) (
+CHARCODE.DECODE 77719 . 82795)) (82798 85968 (HEXNUM? 82808 . 85151) (OCTALNUM? 85153 . 85966)) (90440
+ 102934 (\OUTCHAR 90450 . 91586) (\INCCODE 91588 . 92774) (\BACKCCODE 92776 . 93670) (\BACKCCODE.EOLC 
+93672 . 96435) (\PEEKCCODE 96437 . 96753) (\PEEKCCODE.NOEOLC 96755 . 97017) (\INCCODE.EOLC 97019 . 
+98878) (\FORMATBYTESTREAM 98880 . 100366) (\CHECKEOLC.CRLF 100368 . 102932)))))
 STOP

sources/LLSUBRS

@@ -1,17 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "17-Mar-2021 11:10:55" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;6
 27745  
+
(FILECREATED "13-Sep-2021 17:12:03" {DSK}<Users>briggs>Projects>medley>sources>LLSUBRS.;8
 27017  
 
       changes to%:  (VARS \INITSUBRS)
-                    (FNS MISCN-NUMBER \MISCN.UFN \UNDEFINED-MISCN-UFN MISCN-COLLECT \GET-MY-BF 
-                         \INIT-MISCN-TABLE \USER-SUBR-UFN \INIT-USER-SUBR-TABLE 
-                         \UNDEFINED-USER-SUBR-UFN USER-SUBR-NUMBER EQ-TO-CAR EQ-TO-CADR SUBRNUMBER 
-                         WRITECALLSUBRS FIX-SUBR-NAME \MOREVMEMFILE \WRITEMAP \COPYSYS0SUBR 
-                         \PUPLEVEL1STATE SHOWDISPLAY SETSCREENCOLOR \WRITERAWPBI \READRAWPBI RAID 
-                         \LISPFINISH \GETPACKETBUFFER \GATHERSTATS \DSPRATE DSPBOUT DISKPARTITION 
-                         \CHECKBCPLPASSWORD SUSPEND-LISP UNIX-USERNAME UNIX-FULLNAME UNIX-GETENV 
-                         UNIX-GETPARM)
+                    (FNS WRITECALLSUBRS)
 
-      previous date%: "16-Mar-2021 23:00:15" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;3)
+      previous date%: "13-Sep-2021 16:07:08" {DSK}<VAR>TMP>LLSUBRS.;1)
 
 
 (* ; "
@@ -316,8 +309,7 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
 
 (* "FOLLOWING DEFINITIONS EXPORTED")
 (RPAQQ \INITSUBRS

-       ((YIELD 210)
-        (BACKGROUNDSUBR 6)
+       ((BACKGROUNDSUBR 6)
         (CHECKBCPLPASSWORD 7)
         (DISKPARTITION 8)
         (DSPBOUT 9)
@@ -442,7 +434,8 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
         (CHAR-READP 206)
         (CHAR-BINS 207)
         (CHAR-BOUTS 208)
-        (CHAR-FILLBUFFER 209)))
+        (CHAR-FILLBUFFER 209)
+        (YIELD 210)))
 
 (* "END EXPORTED DEFINITIONS")
 
@@ -485,25 +478,25 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (WRITECALLSUBRS

-  [LAMBDA NIL
                                          (* ; "Edited 17-Mar-2021 11:05 by larry")

+  [LAMBDA NIL
                                         (* ; "Edited 13-Sep-2021 15:19 by briggs")

     (CL:WITH-OPEN-FILE (*STANDARD-OUTPUT* "subrs.h" :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION)
-           (CL:FORMAT T "/* This file written from LLSUBRS on ~A                      */~&" (DATE))
-           (CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
-           (CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to  */~&")
-           (CL:FORMAT T "/* generate a new version.                                   */~&")
            (CL:FORMAT T "#ifndef SUBRS_H~&#define SUBRS_H 1~&")
-           (for
 X in
 \INITSUBRS do
 (CL:FORMAT T "#define sb_~A	0~O~&" (FIX-SUBR-NAME

-                                                                                   (CAR X))
+           (CL:FORMAT T "/* This file written from LLSUBRS on ~22A */~&" (DATE))
+           (CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
+           (CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */~&")
+           (CL:FORMAT T "/* generate a new version.                                  */~&")
+           (for
 X in
 \INITSUBRS do
 (CL:FORMAT T "#define sb_~42A 0~O~&"
+                                                      (FIX-SUBR-NAME
 (CAR X))
                                                       (CADR X)))
            (CL:FORMAT T "~&~&/* MISCN opcodes */~&")
-           (for
 X in
 \MISCN-TABLE-LIST do
 (CL:FORMAT T "#define miscn_~A	0~O~&"
+           (for
 X in
 \MISCN-TABLE-LIST do
 (CL:FORMAT T "#define miscn_~39A 0~O~&"
                                                              (FIX-SUBR-NAME
 (CAR X))
                                                              (CADR X)))
            (CL:FORMAT T "~&~&/* Assigned USER SUBR numbers */~&")
-           (for
 X in
 \USER-SUBR-LIST do
 (CL:FORMAT T "#define user_subr_~A	0~O~&"
+           (for
 X in
 \USER-SUBR-LIST do
 (CL:FORMAT T "#define user_subr_~35A 0~O~&"
                                                            (FIX-SUBR-NAME
 (CAR X))
                                                            (CADR X)))
-           (CL:FORMAT T "#endif ~&"])
+           (CL:FORMAT T "#endif~&"])
 
 (FIX-SUBR-NAME

   [LAMBDA (NAME)
                                         (* ; "Edited 13-Feb-89 16:17 by jds")

@@ -695,16 +688,16 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
 (PUTPROPS LLSUBRS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1988 1989 1990 1991 1992 
 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4322 9066 (MISCN-NUMBER 4332 . 4548) (\MISCN.UFN 4550 . 6807) (\UNDEFINED-MISCN-UFN 
-6809 . 7125) (MISCN-COLLECT 7127 . 7344) (\GET-MY-BF 7346 . 7558) (\INIT-MISCN-TABLE 7560 . 9064)) (
-10450 11739 (ADD-USER-SUBR 10450 . 11739)) (11740 13491 (\USER-SUBR-UFN 11750 . 12325) (
-\INIT-USER-SUBR-TABLE 12327 . 12792) (\UNDEFINED-USER-SUBR-UFN 12794 . 13137) (USER-SUBR-NUMBER 13139
- . 13361) (EQ-TO-CAR 13363 . 13424) (EQ-TO-CADR 13426 . 13489)) (17774 18423 (SUBRNUMBER 17784 . 18421
-)) (18484 20832 (WRITECALLSUBRS 18494 . 20075) (FIX-SUBR-NAME 20077 . 20830)) (21041 26945 (
-\MOREVMEMFILE 21051 . 21216) (\WRITEMAP 21218 . 21378) (\COPYSYS0SUBR 21380 . 21540) (\PUPLEVEL1STATE 
-21542 . 21706) (SHOWDISPLAY 21708 . 21997) (SETSCREENCOLOR 21999 . 22162) (\WRITERAWPBI 22164 . 22322)
- (\READRAWPBI 22324 . 22476) (RAID 22478 . 22633) (\LISPFINISH 22635 . 22793) (\GETPACKETBUFFER 22795
- . 22957) (\GATHERSTATS 22959 . 23117) (\DSPRATE 23119 . 23386) (DSPBOUT 23388 . 23542) (DISKPARTITION
- 23544 . 23839) (\CHECKBCPLPASSWORD 23841 . 24020) (SUSPEND-LISP 24022 . 24280) (UNIX-USERNAME 24282
- . 24804) (UNIX-FULLNAME 24806 . 25332) (UNIX-GETENV 25334 . 25931) (UNIX-GETPARM 25933 . 26943)))))
+  (FILEMAP (NIL (3639 8383 (MISCN-NUMBER 3649 . 3865) (\MISCN.UFN 3867 . 6124) (\UNDEFINED-MISCN-UFN 
+6126 . 6442) (MISCN-COLLECT 6444 . 6661) (\GET-MY-BF 6663 . 6875) (\INIT-MISCN-TABLE 6877 . 8381)) (
+9767 11056 (ADD-USER-SUBR 9767 . 11056)) (11057 12808 (\USER-SUBR-UFN 11067 . 11642) (
+\INIT-USER-SUBR-TABLE 11644 . 12109) (\UNDEFINED-USER-SUBR-UFN 12111 . 12454) (USER-SUBR-NUMBER 12456
+ . 12678) (EQ-TO-CAR 12680 . 12741) (EQ-TO-CADR 12743 . 12806)) (17091 17740 (SUBRNUMBER 17101 . 17738
+)) (17801 20104 (WRITECALLSUBRS 17811 . 19347) (FIX-SUBR-NAME 19349 . 20102)) (20313 26217 (
+\MOREVMEMFILE 20323 . 20488) (\WRITEMAP 20490 . 20650) (\COPYSYS0SUBR 20652 . 20812) (\PUPLEVEL1STATE 
+20814 . 20978) (SHOWDISPLAY 20980 . 21269) (SETSCREENCOLOR 21271 . 21434) (\WRITERAWPBI 21436 . 21594)
+ (\READRAWPBI 21596 . 21748) (RAID 21750 . 21905) (\LISPFINISH 21907 . 22065) (\GETPACKETBUFFER 22067
+ . 22229) (\GATHERSTATS 22231 . 22389) (\DSPRATE 22391 . 22658) (DSPBOUT 22660 . 22814) (DISKPARTITION
+ 22816 . 23111) (\CHECKBCPLPASSWORD 23113 . 23292) (SUSPEND-LISP 23294 . 23552) (UNIX-USERNAME 23554
+ . 24076) (UNIX-FULLNAME 24078 . 24604) (UNIX-GETENV 24606 . 25203) (UNIX-GETPARM 25205 . 26215)))))
 STOP

sources/LOADUP-INIT.LISP

@@ -1,8 +1,16 @@
 (* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")
 
+(LOAD? (CONCAT (UNIX-GETENV "MEDLEYDIR") "/sources/MEDLEYDIR.LCOM"))
 (CNDIR (MEDLEYDIR "tmp"))
 (DRIBBLE "init.dribble")
-(MOVD 'NILL 'PAGEFULLFN)
+
+(UNADVISE)
+(ADVISE 'PAGEFULLFN '(RETURN))
+(ADVISE '(ERROR IN \DO-DEFINE-FILE-INFO) '(RETURN))
+(MOVD? 'NILL 'SETTEMPLATE)
+(DEFINEQ (RRE (LAMBDA (X Y) Y)))
+(MOVD? 'RRE 'READ-READER-ENVIRONMENT)
+
 (LOAD (MEDLEYDIR "sources" "MAKEINIT.LCOM"))
 (MAKEINITGREET)
 (DRIBBLE)