Added IBM-EGA fixed pitch font files

internal/CONDITIONGRAPH.TXT

@@ -0,0 +1,10 @@
+                     CONDITIONGRAPH
+
+
+Currently in internal rather than lispusers, this package shows a graph of "conditions" (Common Lisp error system).
+
+(FILESLOAD CONDITIONGRAPH) to load it.
+
+(GRAPH-CONDITIONS) will display a graph of conditions and their inheritance.
+
+Other possible operations might be determinable by reading the source.

internal/MEDLEY-UTILS

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;9|
 15959  
+
(FILECREATED "29-Jul-2022 13:45:19" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;9|
 16006  
 
-      :CHANGES-TO (FNS HCFILES)
+      :CHANGES-TO (VARS OKLISPUSERS OKINTERNAL)
 
-      :PREVIOUS-DATE "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;8|)
+      :PREVIOUS-DATE "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;8|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -160,12 +160,12 @@
               MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH 
               SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR))
 
-(RPAQQ OKLISPUSERS
 (THINFILES ISO8859IO DINFO HELPSYS MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
-                          BACKGROUND-YIELD OBJECTWINDOW REGIONMANAGER COMPARETEXT EXAMINEDEFS 
-                          COMPARESOURCES COMPAREDIRECTORIES PSEUDOHOSTS DATEFORMAT-EDITOR DOC-OBJECTS
-                          EQUATIONS BICLOCK FILEWATCH LIFE IDLEHAX GITFNS TMAX IMTOOLS))
+(RPAQQ OKLISPUSERS
 (BUTTONS THINFILES ISO8859IO DINFO HELPSYS MODERNIZE WHEELSCROLL PRETTYFILEINDEX 
+                          WHO-LINE BACKGROUND-YIELD OBJECTWINDOW REGIONMANAGER COMPARETEXT 
+                          EXAMINEDEFS COMPARESOURCES COMPAREDIRECTORIES PSEUDOHOSTS DATEFORMAT-EDITOR
+                          DOC-OBJECTS EQUATIONS BICLOCK FILEWATCH LIFE IDLEHAX GITFNS TMAX IMTOOLS))
 
-(RPAQQ OKINTERNAL
 (MEDLEY-UTILS))
+(RPAQQ OKINTERNAL
 (CONDITIONGRAPH MEDLEY-UTILS))
 (DEFINEQ
 
 (MAKE-EXPORTS-ALL

@@ -290,9 +290,10 @@
 
 (RPAQ? BADFILES
 )
 
-(DEFCOMMAND "pick" (FIRST
 . REST) (PICK
 FIRST REST))
+(DEFCOMMAND "pick"
 (FIRST
 . REST)
+   (PICK
 FIRST REST))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (727 8702 (GATHER-INFO 737 . 6147) (MAKE-FULLER-DB 6149 . 6839) (MEDLEY-FIX-LINKS 6841
- . 7238) (MEDLEY-FIX-DATES 7240 . 7482) (PICK 7484 . 8700)) (9741 11534 (MAKE-EXPORTS-ALL 9751 . 10710
-) (MAKE-WHEREIS-HASH 10712 . 11532)) (11569 15829 (HCFILES 11579 . 15514) (BADFILE 15516 . 15827)))))
+  (FILEMAP (NIL (743 8718 (GATHER-INFO 753 . 6163) (MAKE-FULLER-DB 6165 . 6855) (MEDLEY-FIX-LINKS 6857
+ . 7254) (MEDLEY-FIX-DATES 7256 . 7498) (PICK 7500 . 8716)) (9781 11574 (MAKE-EXPORTS-ALL 9791 . 10750
+) (MAKE-WHEREIS-HASH 10752 . 11572)) (11609 15869 (HCFILES 11619 . 15554) (BADFILE 15556 . 15867)))))
 STOP

library/tedit/TEDIT-PCTREE

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Jul-2022 17:00:01" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>tedit>TEDIT-PCTREE.;1
 27141  
+
(FILECREATED "26-Jul-2022 10:35:13" {DSK}<home>larry>medley>library>tedit>TEDIT-PCTREE.;2
 26909  
 
-      :PREVIOUS-DATE "14-Jul-2022 11:08:10" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>newtedit>TEDIT-PCTREE.;2)
+      :CHANGES-TO (FNS \INSERTTREE)
+
+      :PREVIOUS-DATE "14-Jul-2022 17:00:01" {DSK}<home>larry>medley>library>tedit>TEDIT-PCTREE.;1)
 
 
 (PRETTYCOMPRINT TEDIT-PCTREECOMS)
@@ -168,8 +168,7 @@
               1))])
 
 (\INSERTTREE

-  [LAMBDA (NEW OLD PCNODE NEW-PREVLEN NEW-OLDLEN PREV)
     (* ; "Edited 21-Jun-2022 23:39 by larry")

-                                                             (* ; 
+  [LAMBDA (NEW OLD PCNODE NEW-PREVLEN NEW-OLDLEN PREV)       (* ; 
 
                                                        "Edited 21-Mar-95 15:29 by sybalsky:mv:envos")

 
     (* ;; "inserts NEW in front of OLD in PCNODE.  NEW/OLD are either pieces or tree nodes.")

@@ -231,8 +230,6 @@
                  (T (\ILLEGAL.ARG NEW)))
               (SETQ NEWLEN (for
 I from
 0 to
 NODE-COUNT as
 ITEM# from
 2 by
 4
                               sum
 (\GETBASEFIXP PCNODE ITEM#)))
-              (IF
 (TYPE?
 BIGNUM NEWLEN)
-                  THEN
 (HELP NEWLEN " is bignum"))
               (replace
 (BTREENODE TOTLEN) of
 PCNODE with
 NEWLEN)
 
               (* ;; " If adding this piece overflows the tree node, split it.")

@@ -542,9 +539,9 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2938 22352 (UPDATEPCNODES 2948 . 3917) (FINDPCNODE 3919 . 4155) (\FIRSTNODE 4157 . 4518
-) (\DELETETREE 4520 . 6985) (\INSERTTREE 6987 . 11551) (\LASTNODE 11553 . 12090) (\MATCHPCS 12092 . 
-12816) (\SPLITTREE 12818 . 19698) (\TEDIT.UPDATETREE 19700 . 21207) (\TEDIT.PIECE-CHNO 21209 . 21791) 
-(\TEDIT.SET-TOTLEN 21793 . 22350)) (22353 24789 (DISPTREE 22363 . 22819) (TREEGRAPHNODE 22821 . 24787)
+  (FILEMAP (NIL (2918 22120 (UPDATEPCNODES 2928 . 3897) (FINDPCNODE 3899 . 4135) (\FIRSTNODE 4137 . 4498
+) (\DELETETREE 4500 . 6965) (\INSERTTREE 6967 . 11319) (\LASTNODE 11321 . 11858) (\MATCHPCS 11860 . 
+12584) (\SPLITTREE 12586 . 19466) (\TEDIT.UPDATETREE 19468 . 20975) (\TEDIT.PIECE-CHNO 20977 . 21559) 
+(\TEDIT.SET-TOTLEN 21561 . 22118)) (22121 24557 (DISPTREE 22131 . 22587) (TREEGRAPHNODE 22589 . 24555)
 ))))
 STOP