Use field names instead of CAR/CADR

library/POSTSCRIPTSTREAM

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Oct-2025 17:39:50" {WMEDLEY}<library>POSTSCRIPTSTREAM.;54
 260212 
+
(FILECREATED "13-Oct-2025 18:05:08" {WMEDLEY}<library>POSTSCRIPTSTREAM.;55
 260304 
 
       :EDIT-BY rmk
 
@@ -889,7 +889,7 @@
          FONTID])
 
 (POSTSCRIPT.FONTCREATE

-  [LAMBDA (FONTSPEC)
                                         (* ; "Edited 13-Oct-2025 17:39 by rmk")


+  [LAMBDA (FONTSPEC)
                                         (* ; "Edited 13-Oct-2025 18:04 by rmk")


                                                              (* ; "Edited  7-Sep-2025 23:44 by rmk")


                                                              (* ; "Edited 30-Aug-2025 23:24 by rmk")


                                                              (* ; "Edited 21-Aug-2025 18:21 by rmk")


@@ -899,9 +899,9 @@
     (LET (UNITFONT FULLNAME SCALEFONTP PSCFD ASCENT DESCENT FIXPWIDTHS PSCWIDTHSBLOCK WIDTHSBLOCK FD
                 FACECHANGED FAMILY SIZE FACE ROTATION DEVICE WEIGHT SLOPE EXPANSION)
          (SPREADFONTSPEC FONTSPEC)
-         (SETQ WEIGHT (CAR FACE))
-         (SETQ SLOPE (CADR FACE))
-         (SETQ EXPANSION (CADDR FACE))
+         (SETQ WEIGHT (fetch
 (FONTFACE WEIGHT) of
 FACE))
+         (SETQ SLOPE (fetch
 (FONTFACE SLOPE) of
 FACE))
+         (SETQ EXPANSION (fetch
 (FONTFACE EXPANSION) of
 FACE))
 
          (* ;; 
 
    "Ignore rotations, it is **MUCH** easier to rotate the Postscript stream user space coordinates.")

@@ -4425,38 +4425,38 @@
 )
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (23388 33596 (POSTSCRIPT.INIT 23398 . 30202) (POSTSCRIPT.PUTRGBCOLOR 30204 . 31226) (
-\PSC.COLOR.TO.RGB 31228 . 33594)) (34582 69808 (PSCFONT.READFONT 34592 . 36500) (PSCFONT.SPELLFILE 
+\PSC.COLOR.TO.RGB 31228 . 33594)) (34582 69900 (PSCFONT.READFONT 34592 . 36500) (PSCFONT.SPELLFILE 
 36502 . 37315) (PSCFONT.COERCEFILE 37317 . 38889) (PSCFONTFROMCACHE.SPELLFILE 38891 . 39876) (
 PSCFONTFROMCACHE.COERCEFILE 39878 . 41530) (PSCFONT.WRITEFONT 41532 . 42547) (READ-AFM-FILE 42549 . 
 48420) (CONVERT-AFM-FILES 48422 . 49634) (POSTSCRIPT.GETFONTID 49636 . 51031) (POSTSCRIPT.FONTCREATE 
-51033 . 63835) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63837 . 66234) (POSTSCRIPT.FONTSAVAILABLE 66236
- . 68419) (POSTSCRIPT.FONTEXISTS? 68421 . 69806)) (69809 79532 (OPENPOSTSCRIPTSTREAM 69819 . 79198) (
-CLOSEPOSTSCRIPTSTREAM 79200 . 79530)) (79577 86399 (POSTSCRIPT.HARDCOPYW 79587 . 82694) (
-POSTSCRIPT.TEDIT 82696 . 83148) (POSTSCRIPT.TEXT 83150 . 83737) (POSTSCRIPTFILEP 83739 . 85227) (
-MAKEEPSFILE 85229 . 86397)) (86400 129974 (POSTSCRIPT.BITMAPSCALE 86410 . 88866) (
-POSTSCRIPT.CLOSESTRING 88868 . 89421) (POSTSCRIPT.ENDPAGE 89423 . 90314) (POSTSCRIPT.OUTSTR 90316 . 
-91533) (POSTSCRIPT.PUTBITMAPBYTES 91535 . 100006) (POSTSCRIPT.PUTCOMMAND 100008 . 100997) (
-POSTSCRIPT.SET-FAKE-LANDSCAPE 100999 . 105519) (POSTSCRIPT.SHOWACCUM 105521 . 107676) (
-POSTSCRIPT.STARTPAGE 107678 . 110210) (\POSTSCRIPTTAB 110212 . 111009) (\PS.BOUTFIXP 111011 . 112291) 
-(\PS.SCALEHACK 112293 . 114936) (\PS.SCALEREGION 114938 . 115498) (\SCALEDBITBLT.PSC 115500 . 119810) 
-(\SETPOS.PSC 119812 . 120293) (\SETXFORM.PSC 120295 . 122879) (\STRINGWIDTH.PSC 122881 . 123354) (
-\SWITCHFONTS.PSC 123356 . 128848) (\TERPRI.PSC 128850 . 129972)) (130009 183865 (\BITBLT.PSC 130019 . 
-130571) (\BLTSHADE.PSC 130573 . 135234) (\CHARWIDTH.PSC 135236 . 135743) (\CREATECHARSET.PSC 135745 . 
-137101) (\DRAWARC.PSC 137103 . 139481) (\DRAWCIRCLE.PSC 139483 . 141734) (\DRAWCURVE.PSC 141736 . 
-145580) (\DRAWELLIPSE.PSC 145582 . 147946) (\DRAWLINE.PSC 147948 . 150688) (\DRAWPOINT.PSC 150690 . 
-151266) (\DRAWPOLYGON.PSC 151268 . 154397) (\DSPBOTTOMMARGIN.PSC 154399 . 155086) (
-\DSPCLIPPINGREGION.PSC 155088 . 156463) (\DSPCOLOR.PSC 156465 . 157396) (\DSPFONT.PSC 157398 . 161035)
- (\DSPLEFTMARGIN.PSC 161037 . 161723) (\DSPLINEFEED.PSC 161725 . 162315) (\DSPPUSHSTATE.PSC 162317 . 
-163777) (\DSPPOPSTATE.PSC 163779 . 167264) (\DSPRESET.PSC 167266 . 167931) (\DSPRIGHTMARGIN.PSC 167933
- . 168622) (\DSPROTATE.PSC 168624 . 169623) (\DSPSCALE.PSC 169625 . 170577) (\DSPSCALE2.PSC 170579 . 
-171419) (\DSPSPACEFACTOR.PSC 171421 . 172342) (\DSPTOPMARGIN.PSC 172344 . 172915) (\DSPTRANSLATE.PSC 
-172917 . 174948) (\DSPXPOSITION.PSC 174950 . 175514) (\DSPYPOSITION.PSC 175516 . 176107) (
-\FILLCIRCLE.PSC 176109 . 178334) (\FILLPOLYGON.PSC 178336 . 181573) (\FIXLINELENGTH.PSC 181575 . 
-182894) (\MOVETO.PSC 182896 . 183666) (\NEWPAGE.PSC 183668 . 183863)) (183921 206067 (
-\POSTSCRIPT.CHANGECHARSET 183931 . 184649) (\POSTSCRIPT.OUTCHARFN 184651 . 196921) (
-\POSTSCRIPT.PRINTSLUG 196923 . 198647) (\POSTSCRIPT.SPECIALOUTCHARFN 198649 . 201000) (\UPDATE.PSC 
-201002 . 202248) (\POSTSCRIPT.ACCENTFN 202250 . 203192) (\POSTSCRIPT.ACCENTPAIR 203194 . 206065)) (
-206165 207810 (\PSC.SPACEDISP 206175 . 206454) (\PSC.SPACEWID 206456 . 207075) (\PSC.SYMBOLS 207077 . 
-207808)) (207919 210910 (\POSTSCRIPT.NSHASH 207929 . 210908)) (256320 257026 (POSTSCRIPTSEND 256330 . 
-257024)))))
+51033 . 63927) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63929 . 66326) (POSTSCRIPT.FONTSAVAILABLE 66328
+ . 68511) (POSTSCRIPT.FONTEXISTS? 68513 . 69898)) (69901 79624 (OPENPOSTSCRIPTSTREAM 69911 . 79290) (
+CLOSEPOSTSCRIPTSTREAM 79292 . 79622)) (79669 86491 (POSTSCRIPT.HARDCOPYW 79679 . 82786) (
+POSTSCRIPT.TEDIT 82788 . 83240) (POSTSCRIPT.TEXT 83242 . 83829) (POSTSCRIPTFILEP 83831 . 85319) (
+MAKEEPSFILE 85321 . 86489)) (86492 130066 (POSTSCRIPT.BITMAPSCALE 86502 . 88958) (
+POSTSCRIPT.CLOSESTRING 88960 . 89513) (POSTSCRIPT.ENDPAGE 89515 . 90406) (POSTSCRIPT.OUTSTR 90408 . 
+91625) (POSTSCRIPT.PUTBITMAPBYTES 91627 . 100098) (POSTSCRIPT.PUTCOMMAND 100100 . 101089) (
+POSTSCRIPT.SET-FAKE-LANDSCAPE 101091 . 105611) (POSTSCRIPT.SHOWACCUM 105613 . 107768) (
+POSTSCRIPT.STARTPAGE 107770 . 110302) (\POSTSCRIPTTAB 110304 . 111101) (\PS.BOUTFIXP 111103 . 112383) 
+(\PS.SCALEHACK 112385 . 115028) (\PS.SCALEREGION 115030 . 115590) (\SCALEDBITBLT.PSC 115592 . 119902) 
+(\SETPOS.PSC 119904 . 120385) (\SETXFORM.PSC 120387 . 122971) (\STRINGWIDTH.PSC 122973 . 123446) (
+\SWITCHFONTS.PSC 123448 . 128940) (\TERPRI.PSC 128942 . 130064)) (130101 183957 (\BITBLT.PSC 130111 . 
+130663) (\BLTSHADE.PSC 130665 . 135326) (\CHARWIDTH.PSC 135328 . 135835) (\CREATECHARSET.PSC 135837 . 
+137193) (\DRAWARC.PSC 137195 . 139573) (\DRAWCIRCLE.PSC 139575 . 141826) (\DRAWCURVE.PSC 141828 . 
+145672) (\DRAWELLIPSE.PSC 145674 . 148038) (\DRAWLINE.PSC 148040 . 150780) (\DRAWPOINT.PSC 150782 . 
+151358) (\DRAWPOLYGON.PSC 151360 . 154489) (\DSPBOTTOMMARGIN.PSC 154491 . 155178) (
+\DSPCLIPPINGREGION.PSC 155180 . 156555) (\DSPCOLOR.PSC 156557 . 157488) (\DSPFONT.PSC 157490 . 161127)
+ (\DSPLEFTMARGIN.PSC 161129 . 161815) (\DSPLINEFEED.PSC 161817 . 162407) (\DSPPUSHSTATE.PSC 162409 . 
+163869) (\DSPPOPSTATE.PSC 163871 . 167356) (\DSPRESET.PSC 167358 . 168023) (\DSPRIGHTMARGIN.PSC 168025
+ . 168714) (\DSPROTATE.PSC 168716 . 169715) (\DSPSCALE.PSC 169717 . 170669) (\DSPSCALE2.PSC 170671 . 
+171511) (\DSPSPACEFACTOR.PSC 171513 . 172434) (\DSPTOPMARGIN.PSC 172436 . 173007) (\DSPTRANSLATE.PSC 
+173009 . 175040) (\DSPXPOSITION.PSC 175042 . 175606) (\DSPYPOSITION.PSC 175608 . 176199) (
+\FILLCIRCLE.PSC 176201 . 178426) (\FILLPOLYGON.PSC 178428 . 181665) (\FIXLINELENGTH.PSC 181667 . 
+182986) (\MOVETO.PSC 182988 . 183758) (\NEWPAGE.PSC 183760 . 183955)) (184013 206159 (
+\POSTSCRIPT.CHANGECHARSET 184023 . 184741) (\POSTSCRIPT.OUTCHARFN 184743 . 197013) (
+\POSTSCRIPT.PRINTSLUG 197015 . 198739) (\POSTSCRIPT.SPECIALOUTCHARFN 198741 . 201092) (\UPDATE.PSC 
+201094 . 202340) (\POSTSCRIPT.ACCENTFN 202342 . 203284) (\POSTSCRIPT.ACCENTPAIR 203286 . 206157)) (
+206257 207902 (\PSC.SPACEDISP 206267 . 206546) (\PSC.SPACEWID 206548 . 207167) (\PSC.SYMBOLS 207169 . 
+207900)) (208011 211002 (\POSTSCRIPT.NSHASH 208021 . 211000)) (256412 257118 (POSTSCRIPTSEND 256422 . 
+257116)))))
 STOP