From cb5817ef3d510d23a372500bd07a859b35e737b9 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Thu, 9 Oct 2025 21:22:34 -0700
Subject: [PATCH] Debugging aligned with macros

---
 internal/FONT-DEBUG      |  25 +++++++++++++------------
 internal/FONT-DEBUG.LCOM | Bin 11748 -> 11660 bytes
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/internal/FONT-DEBUG b/internal/FONT-DEBUG
index 8bf7b959..b002a1ac 100644
--- a/internal/FONT-DEBUG
+++ b/internal/FONT-DEBUG
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 2-Sep-2025 13:47:42" {WMEDLEY}<internal>FONT-DEBUG.;66
 23502  
+
(FILECREATED " 7-Oct-2025 14:52:20" {WMEDLEY}<internal>FONT-DEBUG.;68
 23618  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TRUEFONTCREATE)
+      :CHANGES-TO (FNS LEGACYFONTCREATE)
 
-      :PREVIOUS-DATE "29-Aug-2025 22:39:54" {WMEDLEY}<internal>FONT-DEBUG.;65)
+      :PREVIOUS-DATE " 7-Oct-2025 08:58:03" {WMEDLEY}<internal>FONT-DEBUG.;67)
 
 
 (PRETTYCOMPRINT FONT-DEBUGCOMS)
@@ -16,7 +16,7 @@
         (* ;; "Little tools to help in debugging display fonts")

 
         (FNS DEBUGCHARSET IBM ICS SHOWCACHE SHOWCSBITMAP EQCSBM EQCHARBM CHARSETCHARS CHARBMDIFFS 
-             SHOWCSCHAR CSCOMPARE SHOWBMS SHOWCHARBITMAPS CANDS TRUEFONTCREATE)
+             SHOWCSCHAR CSCOMPARE SHOWBMS SHOWCHARBITMAPS CANDS LEGACYFONTCREATE)
         (FNS FONTSIZE CSSIZE CSBMSIZE)
         (FNS FONTCOMPARE)
         (MACROS TRUEFONT)))
@@ -277,8 +277,9 @@
          (SHOWCHARBITMAPS
 NIL CINFOS CHARSET INCLUDEMEDLEYFONT T)
          CINFOS])
 
-(TRUEFONTCREATE

+(LEGACYFONTCREATE

   [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG CHARSET)

+                                                             (* ; "Edited  7-Oct-2025 14:50 by rmk")


                                                              (* ; "Edited  2-Sep-2025 13:46 by rmk")


                                                              (* ; "Edited 29-Aug-2025 22:38 by rmk")


                                                              (* ; "Edited 17-Aug-2025 15:47 by rmk")


@@ -287,7 +288,7 @@
 
     (* ;; "New font, no coercions, no MEDLEYFORMAT")

 
-    (LEGACYFONT (FONTCREATE FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG CHARSET])
+    (LEGACYFONTS (FONTCREATE FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG CHARSET])
 )
 (DEFINEQ
 
@@ -420,10 +421,10 @@
                                      (RETURN FORM))))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (774 16422 (DEBUGCHARSET 784 . 3405) (IBM 3407 . 4405) (ICS 4407 . 5701) (SHOWCACHE 5703
- . 6050) (SHOWCSBITMAP 6052 . 7290) (EQCSBM 7292 . 8178) (EQCHARBM 8180 . 8941) (CHARSETCHARS 8943 . 
-9609) (CHARBMDIFFS 9611 . 10487) (SHOWCSCHAR 10489 . 10924) (CSCOMPARE 10926 . 13518) (SHOWBMS 13520
- . 13698) (SHOWCHARBITMAPS 13700 . 15291) (CANDS 15293 . 15649) (TRUEFONTCREATE 15651 . 16420)) (16423
- 20082 (FONTSIZE 16433 . 17295) (CSSIZE 17297 . 18706) (CSBMSIZE 18708 . 20080)) (20083 22490 (
-FONTCOMPARE 20093 . 22488)))))
+  (FILEMAP (NIL (778 16538 (DEBUGCHARSET 788 . 3409) (IBM 3411 . 4409) (ICS 4411 . 5705) (SHOWCACHE 5707
+ . 6054) (SHOWCSBITMAP 6056 . 7294) (EQCSBM 7296 . 8182) (EQCHARBM 8184 . 8945) (CHARSETCHARS 8947 . 
+9613) (CHARBMDIFFS 9615 . 10491) (SHOWCSCHAR 10493 . 10928) (CSCOMPARE 10930 . 13522) (SHOWBMS 13524
+ . 13702) (SHOWCHARBITMAPS 13704 . 15295) (CANDS 15297 . 15653) (LEGACYFONTCREATE 15655 . 16536)) (
+16539 20198 (FONTSIZE 16549 . 17411) (CSSIZE 17413 . 18822) (CSBMSIZE 18824 . 20196)) (20199 22606 (
+FONTCOMPARE 20209 . 22604)))))
 STOP
diff --git a/internal/FONT-DEBUG.LCOM b/internal/FONT-DEBUG.LCOM
index 985e79c72e9a3df32a6d11aa8639f03bbc83deba..1c59ea018dc3b9b34bccefabc5f27967f58d3d17 100644
GIT binary patch
delta 747
zcmZuuzi-n(6t<HpfrwucB?%!kPo_a}A(4Hy&z2Xk>~mttiBsDR2}Kl0Gax`jr2|rz
zvLius%#|3~kn#ucFEAk?F~Y#c&cZnnG%da1-mmX{@7;ahH(zhQ?O)XE!Em>ZB&30?
zni?{ZG<kwFLxh|Fi$!Frnu)Lgk9J1G=g-EEpN_U+^m4rOqH2OqnwCA7e7>~4(9&o$
z1lWGK%Wx-gDOeD5HP`cr9TF=h4jdi$cbh#SYXDNPY|t$p@O+dTbmDoN2xd1VJuldZ
z>JFnh$|4!2W|)#P*%Nqu`i1{iJb#RUK3Kg@f0W8}oL-K>wc4IP02dJ0Eh~%&OMwEB
zcb70nWpz7oGzf#(ioKx20t^nDKg;XT2}l?Qq3btA;68AtIG*lTi%Z?okUPOSsFvrY
zgKEBWnqw!IT%Qv7dK7Q;?wkwHW|Pzft|ns)hwo-`>A?1jgKp3AS%jcX9G?svF9aE3
zx>YM(QK9({p&JWujOn{twSv$>PL>YQOc_~0^!`dQEh8zhDOsZXnajLEUu6m@9noJm
z^C>LNjH=RcIiF$;<8pz=6e`PX^u1(R()Xe`x>dI=yG0l)$cj!smJ8QpNrRf>MP1(-
zBtTKj9aDx-K5NpYtL^+u1D|30Eyl(^b|uYoS^8$}_J3-AU8_ucmG@^dbF%608$bC!
D)_c5m

delta 1025
zcmbu7&2G~`5XWr`DI(&lq9jphs*xp-Q%Gd5zhZO2iq~M_*kSDi()Q3oqPF6rQ2+_4
zhr9p>Dn9{2;stW$&>Qc7IC9|$IKr+|AZc=A54-=Jot>He?Y!IizV-g`RaA=y!y1y2
z4vK1PrmdmlXJ~9xAuq!Gp={WSD#DY|;OXIu;lcAk9|muSqgOX<NJs~JQJ6Fdb`lH+
zFG2J=K>)K6>h-z^{oU8}+Op6{6{~s4^8-wSlxY+f&K5AO?nulTfK**Z=`Ii2eCjIL
zZGyXg)QM{@D@8<B&3UsoeIY`&YT3GWd?fPv<SYNJbdFt5KbIejJ*VXdJ@7z**x$rd
zAn=?f6Dl<CJ0!*l)f$i}aS}fY=|%^a=E{5w2qR2LM7-c$6}U|<$MO3`j*kAqe8|k1
zHB;x=cAV|^nA~AgA)E6|W+&~3B<XbHi#cYw!buGiW`G+O5ZsEo7&H}H*bQ*c^$F!^
zYT){DJ8*iZPw>JRj3vgKpf{Gd>VLwqWS}+DleLnds_ErQQ9x>Xw^9%kGaXinypo<s
ztE)O}Gtbx$n-RgZ08kt0uiJ$?fEpm3mcl%$)%^U=f$cW(QX6E7-?ldhro6p~wBn6a
zT5s=ArX!x?a{maG|6lHxr(=cZ(hs@oV?{Qz>{;?o_{a}kP-Fz#t#07Q30UTtPIqKk
zR_H4&v~bU)&9Ok<l$RL)en<LcZAH+njIo|E=C$-vr6g!5Bdwa#MWMh80y3tHOu=8{
cb%wuU&EcobI{O=wpX;A4WDP(0c<TrM8yJD;u>b%7