minor compatibility changes for new architecture

sources/INTERPRESS

@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Dec-2025 19:34:04" {WMEDLEY}<sources>INTERPRESS.;103
 215348 
+
(FILECREATED "24-Dec-2025 11:24:31" {WMEDLEY}<sources>INTERPRESS.;104
 215489 
 
       :EDIT-BY rmk
 
-      :PREVIOUS-DATE "12-Dec-2025 19:22:53" {WMEDLEY}<sources>INTERPRESS.;102)
+      :CHANGES-TO (ALISTS (PRINTFILETYPES INTERPRESS))
+
+      :PREVIOUS-DATE "12-Dec-2025 19:34:04" {WMEDLEY}<sources>INTERPRESS.;103)
 
 
 (PRETTYCOMPRINT INTERPRESSCOMS)
@@ -3509,12 +3511,12 @@
            (PROPERTIES NSPRINTER.PROPERTIES)
            (SEND NSPRINT)))
 
-(ADDTOVAR PRINTFILETYPES

-          (INTERPRESS (TEST INTERPRESSFILEP)
-                 (EXTENSION (IP IPR INTERPRESS))
-                 (CONVERSION (TEXT TEXTTOIMAGEFILE TEDIT TEDIT.IMAGEFILE))
-                 (BITMAPSCALE INTERPRESS.BITMAPSCALE)
-                 (BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
+(ADDTOVAR PRINTFILETYPES
 (INTERPRESS (TEST INTERPRESSFILEP)
+                                (EXTENSION (IP IPR INTERPRESS))
+                                (CONVERSION (TEXT TEXTTOIMAGEFILE))
+                                (BITMAPSCALE INTERPRESS.BITMAPSCALE)
+                                (BITMAPFILE (INTERPRESSBITMAP IMAGEFILE BITMAP SCALEFACTOR REGION 
+                                                   ROTATION TITLE))))
 
 (ADDTOVAR IMAGESTREAMTYPES
 (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE)
                                   (CREATECHARSET \CREATECHARSET.HCPYMODE)))
@@ -3828,44 +3830,44 @@
 (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (16593 22245 (APPENDBYTE.IP 16603 . 16739) (APPENDIDENTIFIER.IP 16741 . 17263) (
-APPENDINT.IP 17265 . 17716) (APPENDINTEGER.IP 17718 . 18290) (APPENDLARGEVECTOR.IP 18292 . 19257) (
-APPENDNUMBER.IP 19259 . 19728) (APPENDOP.IP 19730 . 20376) (APPENDRATIONAL.IP 20378 . 20871) (
-APPENDSEQUENCEDESCRIPTOR.IP 20873 . 22068) (BYTESININT.IP 22070 . 22243)) (22281 62088 (ARCTO.IP 22291
- . 23572) (BEGINMASTER.IP 23574 . 23847) (BEGINPAGE.IP 23849 . 24205) (BEGINPREAMBLE.IP 24207 . 24578)
- (CLIPRECTANGLE.IP 24580 . 25070) (CONCAT.IP 25072 . 25337) (CONCATT.IP 25339 . 25606) (ENDMASTER.IP 
-25608 . 26052) (ENDPAGE.IP 26054 . 26431) (ENDPREAMBLE.IP 26433 . 27232) (FGET.IP 27234 . 27537) (
-FILLRECTANGLE.IP 27539 . 29867) (FILLTRAJECTORY.IP 29869 . 30504) (FILLNGON.IP 30506 . 32783) (FSET.IP
- 32785 . 33088) (GETFRAMEVAR.IP 33090 . 33408) (INITIALIZEMASTER.IP 33410 . 34011) (INITIALIZECOLOR.IP
- 34013 . 35334) (ISET.IP 35336 . 35707) (GETCP.IP 35709 . 36018) (LINETO.IP 36020 . 36625) (
-MASKSTROKE.IP 36627 . 36900) (MOVETO.IP 36902 . 37239) (ROTATE.IP 37241 . 37543) (SCALE.IP 37545 . 
-37848) (SCALE2.IP 37850 . 38187) (SETCOLOR.IP 38189 . 40418) (SETRGB.IP 40420 . 41476) (SETCOLORLV.IP 
-41478 . 46091) (SETCOLOR16.IP 46093 . 49199) (SETFONT.IP 49201 . 50022) (SETSPACE.IP 50024 . 50336) (
-SETXREL.IP 50338 . 51522) (SETX.IP 51524 . 53041) (SETXY.IP 53043 . 54215) (SETXYREL.IP 54217 . 55523)
- (SETY.IP 55525 . 56834) (SETYREL.IP 56836 . 57736) (SHOW.IP 57738 . 60998) (TRAJECTORY.IP 61000 . 
-61398) (TRANS.IP 61400 . 61739) (TRANSLATE.IP 61741 . 62086)) (62119 68209 (\CHANGE-VISIBLE-REGION.IP 
-62129 . 65790) (\PAPERSIZE.IP 65792 . 66613) (HEADINGOP.IP 66615 . 68207)) (68210 172730 (
-DEFINEFONT.IP 68220 . 69194) (FONTNAME.IP 69196 . 70126) (INTERPRESS.BITMAPSCALE 70128 . 70921) (
-INTERPRESS.OUTCHARFN 70923 . 77430) (NEWLINE.IP 77432 . 78164) (NEWPAGE.IP 78166 . 83141) (NEWPAGE?.IP
- 83143 . 83622) (OPENIPSTREAM 83624 . 91975) (SETUPFONTS.IP 91977 . 92969) (SHOWBITMAP.IP 92971 . 
-97512) (\BITMAPSIZE.IP 97514 . 98291) (SHOWBITMAP1.IP 98293 . 102665) (SHOWSHADE.IP 102667 . 103620) (
-\BITBLT.IP 103622 . 107826) (\SCALEDBITBLT.IP 107828 . 111473) (\BLTSHADE.IP 111475 . 112933) (
-\CHARWIDTH.IP 112935 . 113385) (\CLOSEIPSTREAM 113387 . 113714) (\DRAWARC.IP 113716 . 114163) (
-\DRAWCURVE.IP 114165 . 116602) (\DRAWPOINT.IP 116604 . 117641) (\DSPCOLOR.IP 117643 . 118594) (
-ENSURE.RGB 118596 . 119260) (\IPCURVE2 119262 . 132516) (\CLIPCURVELINE.IP 132518 . 137216) (
-\DRAWLINE.IP 137218 . 140950) (\CLIPLINE 140952 . 145652) (\DSPBOTTOMMARGIN.IP 145654 . 146070) (
-\DSPFONT.IP 146072 . 150832) (\DSPLEFTMARGIN.IP 150834 . 151294) (\DSPLINEFEED.IP 151296 . 151963) (
-\DSPRIGHTMARGIN.IP 151965 . 152762) (\DSPSPACEFACTOR.IP 152764 . 153893) (\DSPTOPMARGIN.IP 153895 . 
-154331) (\DSPXPOSITION.IP 154333 . 155320) (\DSPROTATE.IP 155322 . 155500) (\PUSHSTATE.IP 155502 . 
-156394) (\POPSTATE.IP 156396 . 157031) (\DEFAULTSTATE.IP 157033 . 157385) (\DSPTRANSLATE.IP 157387 . 
-157568) (\DSPSCALE2.IP 157570 . 157745) (\DSPYPOSITION.IP 157747 . 158048) (FILLCIRCLE.IP 158050 . 
-159133) (\FILLPOLYGON.IP 159135 . 160466) (\DRAWPOLYGON.IP 160468 . 166598) (\FIXLINELENGTH.IP 166600
- . 167814) (\MOVETO.IP 167816 . 168180) (\SETBRUSH.IP 168182 . 170348) (\STRINGWIDTH.IP 170350 . 
-170753) (\DSPCLIPPINGREGION.IP 170755 . 171931) (\DSPOPERATION.IP 171933 . 172728)) (172731 174630 (
-INTERPRESSFILEP 172741 . 174174) (INTERPRESS.TEDIT 174176 . 174628)) (174821 175576 (IP-TOS 174831 . 
-175091) (POP-IP-STACK 175093 . 175388) (PUSH-IP-STACK 175390 . 175574)) (175637 176561 (
-\CHANGECHARSET.IP 175647 . 176559)) (176562 180178 (\INTERPRESSINIT 176572 . 180176)) (193262 195686 (
-INTERPRESSBITMAP 193272 . 195684)) (197966 200587 (\CREATEINTERPRESSFONT 197976 . 199704) (
-\CREATECHARSET.IP 199706 . 200585)) (200588 212761 (IPFONT.FILEP 200598 . 200782) (IPFONT.GETCHARSET 
-200784 . 210882) (\FACECODE 210884 . 211474) (\FAMILYCODE 211476 . 212759)))))
+  (FILEMAP (NIL (16649 22301 (APPENDBYTE.IP 16659 . 16795) (APPENDIDENTIFIER.IP 16797 . 17319) (
+APPENDINT.IP 17321 . 17772) (APPENDINTEGER.IP 17774 . 18346) (APPENDLARGEVECTOR.IP 18348 . 19313) (
+APPENDNUMBER.IP 19315 . 19784) (APPENDOP.IP 19786 . 20432) (APPENDRATIONAL.IP 20434 . 20927) (
+APPENDSEQUENCEDESCRIPTOR.IP 20929 . 22124) (BYTESININT.IP 22126 . 22299)) (22337 62144 (ARCTO.IP 22347
+ . 23628) (BEGINMASTER.IP 23630 . 23903) (BEGINPAGE.IP 23905 . 24261) (BEGINPREAMBLE.IP 24263 . 24634)
+ (CLIPRECTANGLE.IP 24636 . 25126) (CONCAT.IP 25128 . 25393) (CONCATT.IP 25395 . 25662) (ENDMASTER.IP 
+25664 . 26108) (ENDPAGE.IP 26110 . 26487) (ENDPREAMBLE.IP 26489 . 27288) (FGET.IP 27290 . 27593) (
+FILLRECTANGLE.IP 27595 . 29923) (FILLTRAJECTORY.IP 29925 . 30560) (FILLNGON.IP 30562 . 32839) (FSET.IP
+ 32841 . 33144) (GETFRAMEVAR.IP 33146 . 33464) (INITIALIZEMASTER.IP 33466 . 34067) (INITIALIZECOLOR.IP
+ 34069 . 35390) (ISET.IP 35392 . 35763) (GETCP.IP 35765 . 36074) (LINETO.IP 36076 . 36681) (
+MASKSTROKE.IP 36683 . 36956) (MOVETO.IP 36958 . 37295) (ROTATE.IP 37297 . 37599) (SCALE.IP 37601 . 
+37904) (SCALE2.IP 37906 . 38243) (SETCOLOR.IP 38245 . 40474) (SETRGB.IP 40476 . 41532) (SETCOLORLV.IP 
+41534 . 46147) (SETCOLOR16.IP 46149 . 49255) (SETFONT.IP 49257 . 50078) (SETSPACE.IP 50080 . 50392) (
+SETXREL.IP 50394 . 51578) (SETX.IP 51580 . 53097) (SETXY.IP 53099 . 54271) (SETXYREL.IP 54273 . 55579)
+ (SETY.IP 55581 . 56890) (SETYREL.IP 56892 . 57792) (SHOW.IP 57794 . 61054) (TRAJECTORY.IP 61056 . 
+61454) (TRANS.IP 61456 . 61795) (TRANSLATE.IP 61797 . 62142)) (62175 68265 (\CHANGE-VISIBLE-REGION.IP 
+62185 . 65846) (\PAPERSIZE.IP 65848 . 66669) (HEADINGOP.IP 66671 . 68263)) (68266 172786 (
+DEFINEFONT.IP 68276 . 69250) (FONTNAME.IP 69252 . 70182) (INTERPRESS.BITMAPSCALE 70184 . 70977) (
+INTERPRESS.OUTCHARFN 70979 . 77486) (NEWLINE.IP 77488 . 78220) (NEWPAGE.IP 78222 . 83197) (NEWPAGE?.IP
+ 83199 . 83678) (OPENIPSTREAM 83680 . 92031) (SETUPFONTS.IP 92033 . 93025) (SHOWBITMAP.IP 93027 . 
+97568) (\BITMAPSIZE.IP 97570 . 98347) (SHOWBITMAP1.IP 98349 . 102721) (SHOWSHADE.IP 102723 . 103676) (
+\BITBLT.IP 103678 . 107882) (\SCALEDBITBLT.IP 107884 . 111529) (\BLTSHADE.IP 111531 . 112989) (
+\CHARWIDTH.IP 112991 . 113441) (\CLOSEIPSTREAM 113443 . 113770) (\DRAWARC.IP 113772 . 114219) (
+\DRAWCURVE.IP 114221 . 116658) (\DRAWPOINT.IP 116660 . 117697) (\DSPCOLOR.IP 117699 . 118650) (
+ENSURE.RGB 118652 . 119316) (\IPCURVE2 119318 . 132572) (\CLIPCURVELINE.IP 132574 . 137272) (
+\DRAWLINE.IP 137274 . 141006) (\CLIPLINE 141008 . 145708) (\DSPBOTTOMMARGIN.IP 145710 . 146126) (
+\DSPFONT.IP 146128 . 150888) (\DSPLEFTMARGIN.IP 150890 . 151350) (\DSPLINEFEED.IP 151352 . 152019) (
+\DSPRIGHTMARGIN.IP 152021 . 152818) (\DSPSPACEFACTOR.IP 152820 . 153949) (\DSPTOPMARGIN.IP 153951 . 
+154387) (\DSPXPOSITION.IP 154389 . 155376) (\DSPROTATE.IP 155378 . 155556) (\PUSHSTATE.IP 155558 . 
+156450) (\POPSTATE.IP 156452 . 157087) (\DEFAULTSTATE.IP 157089 . 157441) (\DSPTRANSLATE.IP 157443 . 
+157624) (\DSPSCALE2.IP 157626 . 157801) (\DSPYPOSITION.IP 157803 . 158104) (FILLCIRCLE.IP 158106 . 
+159189) (\FILLPOLYGON.IP 159191 . 160522) (\DRAWPOLYGON.IP 160524 . 166654) (\FIXLINELENGTH.IP 166656
+ . 167870) (\MOVETO.IP 167872 . 168236) (\SETBRUSH.IP 168238 . 170404) (\STRINGWIDTH.IP 170406 . 
+170809) (\DSPCLIPPINGREGION.IP 170811 . 171987) (\DSPOPERATION.IP 171989 . 172784)) (172787 174686 (
+INTERPRESSFILEP 172797 . 174230) (INTERPRESS.TEDIT 174232 . 174684)) (174877 175632 (IP-TOS 174887 . 
+175147) (POP-IP-STACK 175149 . 175444) (PUSH-IP-STACK 175446 . 175630)) (175693 176617 (
+\CHANGECHARSET.IP 175703 . 176615)) (176618 180234 (\INTERPRESSINIT 176628 . 180232)) (193318 195742 (
+INTERPRESSBITMAP 193328 . 195740)) (198107 200728 (\CREATEINTERPRESSFONT 198117 . 199845) (
+\CREATECHARSET.IP 199847 . 200726)) (200729 212902 (IPFONT.FILEP 200739 . 200923) (IPFONT.GETCHARSET 
+200925 . 211023) (\FACECODE 211025 . 211615) (\FAMILYCODE 211617 . 212900)))))
 STOP