From 01de5a23248f875e0fc00950d7c74bd5d406294b Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Mon, 25 Oct 2021 18:59:43 -0700
Subject: [PATCH] Add TMAX to image-object set (#535)

---
 internal/library/MAKE-PS      |  15 ++++++++-------
 internal/library/MAKE-PS.LCOM | Bin 3528 -> 3535 bytes
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/internal/library/MAKE-PS b/internal/library/MAKE-PS
index 9a231df5..687f3f06 100644
--- a/internal/library/MAKE-PS
+++ b/internal/library/MAKE-PS
@@ -1,10 +1,11 @@
 (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)
+
(FILECREATED "17-Oct-2021 16:06:41" {DSK}<home>larry>medley>internal>library>MAKE-PS.;2
 5515   
 
-      previous date%: "31-Aug-2021 22:30:13" {DSK}<home>larry>medley>internal>library>MAKE-PS.;4)
+      changes to%:  (FILES DOC-OBJECTS)
+                    (VARS MAKE-PSCOMS)
+
+      previous date%: " 1-Sep-2021 21:13:57" {DSK}<home>larry>medley>internal>library>MAKE-PS.;1)
 
 
 (PRETTYCOMPRINT MAKE-PSCOMS)
@@ -14,7 +15,7 @@
         
         (* ;; " Load known used image object types")

 
-        (FILES DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
+        (FILES DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH TMAX)
         (ADVISE TEDIT.PROMPTPRINT)
         (INITVARS (BADFILESFILE)
                (BADFS)
@@ -113,7 +114,7 @@
 (* ;; " Load known used image object types")

 
 
-(FILESLOAD DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
+(FILESLOAD DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH TMAX)
 
 [XCL:REINSTALL-ADVICE 'TEDIT.PROMPTPRINT :BEFORE '((:LAST (PRIN1 MSG T]
 
@@ -129,5 +130,5 @@
 (MAKE-PS-INIT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (786 5110 (MAKE-PS 796 . 4293) (MAKE-PS-INIT 4295 . 4731) (BADFILE 4733 . 5108)))))
+  (FILEMAP (NIL (793 5117 (MAKE-PS 803 . 4300) (MAKE-PS-INIT 4302 . 4738) (BADFILE 4740 . 5115)))))
 STOP
diff --git a/internal/library/MAKE-PS.LCOM b/internal/library/MAKE-PS.LCOM
index 8f14d57a9f166bd3a200448d7248cf8b6b7acc15..83cb39e75387af6ebc7a418a68fe7ad8dcc933a4 100644
GIT binary patch
delta 311
zcmX>heO`KkhccIjo2QSfbC9cJh^vc&lA*b-e{zYgk%5t+f}xp}fti(w;lwQ0dLvDs
zoGC)i$k58r(#pVGNg=5yH90@GATuX5MIkvOF)ux}Sk+2_D=)t!BQq~uAu~@w$t~2!
zM*&&4o}QkPLP}x@Pz$Q52396UR)!WznrO}v!{#m}g~|6Ajl7K%Oic|<VRkEUmE;5M
z2m2~m!NuQM*Wby@)j1?sQ$ZulF(_EU*U{TmHz3&A-xnxUP?TDhnO|BAc8sdkWJ5-Y
f$#)rz84WiJGAVGeDunntMoc#3xdCNy^6m!!L4s27

delta 304
zcmX>veL{MIhmwYyr;n?1kgH>etBZn?f}w73YJskifsvttk)f5LiIsuT#BA4kGff30
zV?$lX(sa0-iG`K1fs#T}QEGC2Zb4>FYKlT~Mq*xiYO$)70++9&x2tYIu&$?{XNW>(
zo`RBFsE>~VvJrZEdP)i@i6uaN*o-z-(&U1>O&Y7?jIB(~l@un{8CjYsn3@_G!|Ye!
zD#-`BK_kpDC|CjN5NChiU`+)LH$S)t*lCkDG75_zyUNH2=qoEj<B8R#j3%4;m=w4s
M8}r<lEWo=T0Qy``EC2ui