1
0
mirror of synced 2026-05-13 18:44:00 +00:00
Files
Interlisp.medley/sources/MEDLEYFONTFORMAT.LCOM
2026-05-05 11:19:42 -07:00

249 lines
22 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 5-May-2026 11:06:05" ("compiled on " {MEDLEY}<sources>MEDLEYFONTFORMAT.;317)
" 4-May-2026 14:59:40" brecompiled exprs%: MEDLEYFONT.READ.FONT MEDLEYFONT.FILENAME in
"FULL 4-May-2026 ..." dated " 4-May-2026 14:59:50")
(FILECREATED " 5-May-2026 11:06:05" {MEDLEY}<sources>MEDLEYFONTFORMAT.;317 67145 :EDIT-BY rmk
:CHANGES-TO (FNS MEDLEYFONT.READ.FONT MEDLEYFONT.FILENAME) :PREVIOUS-DATE " 4-May-2026 14:58:55"
{MEDLEY}<sources>MEDLEYFONTFORMAT.;316)
MEDLEYFONT.WRITE.FONTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 14 A0153 P 13 A0152 P 12 A0151 P 11 A0149 P 10 A0150 P 9 A0148 P 8 CSINFO P 7 CSNO P 5 SINGLECS P 4 CSLOC P 3 CSVECTORPTRLOC P 2 *READTABLE* P 1 FONTCHARENCODING P 0 CHARSETLOCS I 0 SI::*CLEANUP-FORMS* F 15 STREAM F 16 FONT F 17 NOINDIRECTS F 18 OTHERFONTPROPS F 19 A0147) WW$W ¿WgW È
djð¿lÿ ¿W È
djð¿lÿkØgj W g
o 3W g
kñhð´ W g
jðµW g
jð½W »Wj
¿WW
¿oW
¿W ¿W ¼WK
¿WM“jLÙ€L
¿WL
¿M¢±<00>W È
djð¿lÿjONó³*W ÉOàÐÉ_µ
OkÔ_°èÊjð²îOµi€h]²6WM
¿WW g
k<E28098>l
¿W MWW" ¿±WW g
mÿ<6D>
¿±åW È
djð¿lÿjONó³Wj
¿OkÔ_°íW È
djð¿lÿjONó³eW ÉOàÐÉ_µ°MÊjð³H! O_¿mÿ_OO·°,H
O_¿W OOO·W OWW" ¿OkÔ_°›WL
¿W È
djð¿lÿjONó³WHO
¿OkÔ_°êW  hc&¿$(630 \MVLIST 624 FULLNAME 607 \FIXPOUT 569 SETFILEPTR 551 MEDLEYFONT.WRITE.CHARSET 526 GETFILEPTR 425 \FIXPOUT 387 \FIXPOUT 374 FONTPROP 356 MEDLEYFONT.WRITE.CHARSET 343 \BOUT 331 FONTPROP 316 \FIXPOUT 231 SETFILEPTR 222 \FIXPOUT 207 SETFILEPTR 198 GETFILEPTR 190 TERPRI 182 PRIN1 169 MEDLEYFONT.WRITE.FONTPROPS 159 \FIXPOUT 150 GETFILEPTR 140 FONTPROP 124 FONTPROP 106 FONTPROP 91 FIND-READTABLE 81 FONTPROP 69 CL:MAKE-ARRAY 39 MEDLEYFONT.WRITE.ITEM 10 MEDLEYFONT.WRITE.HEADER)
(577 FONTDESCRIPTOR 482 CHARSETINFO 442 FONTDESCRIPTOR 398 FONTDESCRIPTOR 369 NUNINSTANTIATEDCHARSETS 326 NUNINSTANTIATEDCHARSETS 290 CHARSETINFO 244 FONTDESCRIPTOR 135 NUNINSTANTIATEDCHARSETS 119 NEMPTYCHARSETS 101 NINSTANTIATEDCHARSETS 76 CHARENCODING 63 :INITIAL-ELEMENT 47 FONTDESCRIPTOR 25 FONTDESCRIPTOR 18 MAXCHARSET)
( 175 "CHARSET LOCATIONS" 86 "INTERLISP")
MEDLEYFONT.WRITE.FONTA0002 :D8
(F 0 STREAM F 1 A0147) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
MEDLEYFONT.WRITE.FONT :D8
(P 1 A0147 P 0 STREAM I 3 NOINDIRECTS I 2 OTHERFONTPROPS I 1 FILE I 0 FONT) M@ bA gggg
ig HgI ¿$(70 CL:CLOSE 58 \MVLIST 53 MEDLEYFONT.WRITE.FONTA0001 39 OPEN 13 MEDLEYFONT.FILENAME 5 FONTCREATE)
(64 :ABORT 48 MEDLEYFONT.WRITE.FONTA0002 33 :NEW-VERSION 28 :IF-EXISTS 23 :OUTPUT 18 :DIRECTION)
()
MEDLEYFONT.GETCHARSETA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 SI::*RESETFORMS* F 2 CHARSET F 3 FONT) JPgi ³oPg
chQc¿Pk
Pg
PRSP (71 MEDLEYFONT.GETCHARSET.INTERNAL 66 \FIXPIN 57 MEDLEYFONT.READ.ITEM 46 MEDLEYFONT.FILEVERSION 29 OPENSTREAM 11 \GETSTREAM)
(52 MAXCHARSET 24 INPUT 5 INPUT)
( 18 (PROGN (CLOSEF? OLDVALUE)))
MEDLEYFONT.GETCHARSET :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FONT I 1 CHARSET I 0 STREAM F 3 LISPXHIST) &A bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 MEDLEYFONT.GETCHARSETA0001 5 CHARSET.DECODE)
(16 SI::RESETUNWIND)
()
MEDLEYFONT.GETCHARSET.INTERNAL :D8
(P 5 ALLOTHERS P 4 FILECHARSET P 3 CSINFO I 3 CSLOC I 2 FONT I 1 CHARSET I 0 STREAM) ABÈ
ñ²SBdÈ
djð“¿nÿÿkØIàÐɵ‚±vBÉBÈ
djð“¿nÿÿkØàB HIÐJJ`jCñ¢±Ø@jCÙ
@ \@ ]Ldmÿð²P¿BdÈ
djð“¿nÿÿkؾÉNàÐɵ‚±BÉBÈ
djð“¿nÿÿkØàB HIÐJJmþðhALÙjð—@A
Mkð´‚±»BdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵ‚±—BÉBÈ
djð“¿nÿÿkØàB HIÐJJ@CAààØ
@ bdjð³<C3B0>mÿð²NBdÈ
djð“¿nÿÿkØ_¿ÉOàÐɵ-BÉBÈ
djð“¿nÿÿkØàB HIÐJJ@C
@AB (435 MEDLEYFONT.READ.CHARSET 427 SETFILEPTR 409 \BUILDSLUGCSINFO 332 \FIXPIN 326 SETFILEPTR 304 \BUILDSLUGCSINFO 225 MEDLEYFONT.READ.CHARSET 195 \BUILDSLUGCSINFO 117 \FIXPIN 111 SETFILEPTR 81 \BUILDSLUGCSINFO)
(390 FONTDESCRIPTOR 382 FONTDESCRIPTOR 351 FONTDESCRIPTOR 285 FONTDESCRIPTOR 277 FONTDESCRIPTOR 242 FONTDESCRIPTOR 176 FONTDESCRIPTOR 168 FONTDESCRIPTOR 136 FONTDESCRIPTOR 62 FONTDESCRIPTOR 54 FONTDESCRIPTOR 18 FONTDESCRIPTOR 6 FONTDESCRIPTOR)
()
MEDLEYFONT.CHARSET? :D8
(I 1 CHARSET I 0 FILE) $A b@g
HH
(32 MEMB 18 MEDLEYFONT.GETFILEPROP 5 CHARSET.DECODE)
(13 CHARSETS)
()
MEDLEYFONT.GETFILEPROPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 5 CS P 3 MAXCHARSET P 2 SINGLECS P 1 CSLOC P 0 HEADERPROPS I 0 SI::*CLEANUP-FORMS* F 9 STREAM F 10 PROP F 11 A0236)  @W oW
¿Wg
»W ¹Wdgð¿H±¿dgð¿H±°dgð”¿K±£dgðš¿W ±<00>dgð²e¿jIñ²!WjIÙ
¿W ºjJñ¤Jh°dh°aWI
¿Kj2MLó³)W jñžM_¿OµOh_¾MkÔ]°ßO&_¿°ôN°#gðŸgW ‰o  hc¿$(262 \MVLIST 256 ERROR 242 MEDLEYFONT.READ.FONTPROPS 187 \FIXPIN 169 SETFILEPTR 148 \FIXPIN 140 SETFILEPTR 112 MEDLEYFONT.READ.FONTPROPS 50 \FIXPIN 42 MEDLEYFONT.READ.ITEM 29 ERROR 24 FULLNAME 9 MEDLEYFONT.FILEP)
(235 ICS 228 INDIRECTS 121 CHARSETS 102 FONTPROPS 89 MAXCHARSET 74 DATE 59 OTHERPROPS 37 MAXCHARSET)
( 251 "Unknown MEDLEYFONT property" 17 "Not a MEDLEYFONT file")
MEDLEYFONT.GETFILEPROPA0002 :D8
(F 0 STREAM F 1 A0236) PgQ (11 CL:CLOSE)
(5 :ABORT)
()
MEDLEYFONT.GETFILEPROP :D8
(P 1 A0236 P 0 STREAM I 1 PROP I 0 FILE) R@ µ
o@
bd µ@gg ig HgI ¿$(75 CL:CLOSE 63 \MVLIST 58 MEDLEYFONT.GETFILEPROPA0001 44 OPEN 26 MEDLEYFONT.FILENAME 18 ERROR 5 MEDLEYFONT.FILENAME)
(69 :ABORT 53 MEDLEYFONT.GETFILEPROPA0002 39 :INPUT 34 :DIRECTION)
( 12 "FILE NOT FOUND")
MEDLEYFONT.FILEPA0001A0003 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 SI::NLSETQ-VALUE) Wi@gRg
hgR hgRg
hRg
hcg(72 MEDLEYFONT.READ.ITEM 58 MEDLEYFONT.READ.ITEM 39 FULLNAME 25 MKATOM 20 MEDLEYFONT.READ.ITEM)
(84 :NORMAL 67 OTHERFONTPROPS 53 DATE 47 DATE 33 FILE 15 VERSION 9 VERSION)
()
MEDLEYFONT.FILEPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 C P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 8 FILE F 9 SI::*RESETFORMS* F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*) œ Wgi ”WoWg
XhWc¿H Yjð³II §Hj
¿oJµ0i´+`WioWM gð´L[H ð¢h°ÈJZ°¿(144 READCCODE 123 MEDLEYFONT.FILEPA0001A0003 77 SETFILEPTR 69 \FZEROP 54 GETFILEPTR 38 OPENSTREAM 15 \GETSTREAM)
(129 :NORMAL 102 SI::NLSETQ-PROCEED-CASE 33 INPUT 9 INPUT)
( 111 (CL:ERROR . SI::NLSETQHANDLER) 83 (77 101 100 108 101 121 32 102 111 110 116) 26 (PROGN (CLOSEF? OLDVALUE)))
MEDLEYFONT.FILEP :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 MEDLEYFONT.FILEPA0001)
(8 SI::RESETUNWIND)
()
MEDLEYFONT.FILEVERSION :D8
(P 1 FILEVERSION P 0 PROPS I 1 REQUIRED I 0 FILE) L@ µ
o@
gHIIð³üoIoAo
@
¿°Ü(71 ERROR 65 CONCAT 18 ERROR 5 MEDLEYFONT.FILEP)
(26 VERSION)
( 59 " is required" 53 ", " 47 "Medley font version is " 12 "Not a Medley font")
MEDLEYFONT.READ.FONTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 6 CSNO P 4 MAXCHARSET P 3 CSLOC P 2 FONT P 1 STREAM P 0 FILENAME I 0 SI::*CLEANUP-FORMS* F 7 CHARSETS F 8 FILE F 9 SI::*RESETFORMS* F 10 DIRECTORY F 11 NOERROR) ¦WW
AH¢±…oHg
YhWcIk
Ig
\I [I ZLjNMó£WµJgð³NdWð²&¿WWc¿²JÉNàÐINJK ¿NkÔ^°ÀWhoW
(163 ERROR 137 MEDLEYFONT.GETCHARSET.INTERNAL 73 MEDLEYFONT.READ.VERIFIEDFONT 66 \FIXPIN 59 MEDLEYFONT.READ.ITEM 48 MEDLEYFONT.FILEVERSION 32 OPENSTREAM 8 MEDLEYFONT.FILENAME)
(123 FONTDESCRIPTOR 94 ALL 54 MAXCHARSET 27 INPUT)
( 156 "FONT FILE NOT FOUND" 21 (PROGN (CLOSEF? OLDVALUE)))
MEDLEYFONT.READ.FONT :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 DIRECTORY I 2 NOERROR I 1 CHARSETS I 0 FILE F 3 LISPXHIST) BAo
³Ad£dhB
b´S!g ¿$(59 SI::RESETUNWIND 54 \MVLIST 49 MEDLEYFONT.READ.FONTA0001 31 SORT 26 CHARSET.DECODE 10 MEMB)
(44 SI::RESETUNWIND)
( 5 (NIL ALL))
MEDLEYFONT.READ.CHARSET :D8
(P 4 ITEM P 3 LABEL P 2 PAIR P 1 CSINFO P 0 CSNO I 2 FONT I 1 CHARSET I 0 STREAM) ©A@g
Xð¯oAHh
¿@ gð²5@g
hdddBg
@
AB `dh¿dh¿dnÿÿÍ¿1@ Z»J¼Kdgð²)¿IɳIIÉ¿IIgðIL¿°±Kdgðœ¿IL¿°gðIL¿°ˆKdgð<>¿IL¿±ÿrgðœI
¿±ÿ^Kdgð<>¿I ¿±ÿGgðœIL ¿±ÿ3Kdgð<>¿IL¿±ÿgðœIL¿±ÿKgð²ILk€jÏ¿±þíoK
¿±þÞ(419 HELP 136 MEDLEYFONT.READ.ITEM 103 MEDLEYFONT.GETCHARSET 96 MEDLEYFONT.FILENAME 91 FULLNAME 85 MAKEFONTSPEC 79 FONTPROP 64 MEDLEYFONT.READ.ITEM 44 MEDLEYFONT.PEEK.ITEM 37 ERROR 19 MKATOM 14 MEDLEYFONT.READ.ITEM)
(396 CHARSETINFO 387 CSCOMPLETEP 374 CHARSETINFO 366 CSINFOPROPS 354 CHARSETINFO 345 BITMAP 331 CHARSETINFO 323 LEFTKERN 311 CHARSETINFO 302 DESCENT 288 CHARSETINFO 280 ASCENT 268 CHARSETINFO 259 YWIDTHS 246 CHARSETINFO 238 IMAGEWIDTHS 227 CHARSETINFO 218 OFFSETS 205 CHARSETINFO 197 WIDTHS 187 CHARSETINFO 176 CHARSETINFO 170 CHARSETINFO 160 CHARSETINFO 150 STOP 109 |CHARSETINFOTYPE#| 74 DEVICESPEC 59 ICS 50 ICS 9 CS)
( 413 "Unrecognized charsetinfo label" 27 "Charset mismatch")
MEDLEYFONT.READ.ITEM :D8
(P 29 BLOCK P 28 NWORDS P 27 ORIG P 26 NELTS P 25 ARRAY P 24 I P 22 ALLFIXED P 21 ORIG P 20 NELTS P 19 I P 17 ALLFIXED P 16 ARRAY P 15 ELT P 11 X P 9 X P 5 NELTS P 4 LABEL P 3 *PACKAGE* P 2 *READTABLE* P 0 ITEM I 1 LABEL? I 0 STREAM) Ä!@g
HŸ@gh ¿±ƒg g "@ ¼@ ¿L@ dkð™¿@ á@ رBdlð™¿@ ±3djð™¿@ ±%dlð²;¿@ @ _dgð•¿N±O_¿Oµ Oh_¾°ÕO&_¿°Ídl ð²*¿ @ _gð­OO
_¿°äO±¸dl
ð²G¿@@ _dgð²™OO
¿O±_¿Oµ
Oh__¿°ÉO&_¿°Ádlð™¿@ ±^dlð²a¿@ g@g
@ kð@ jO&O$ó³&O O&O"@ ‡@  ¿O&kÔ_&°ÙO ±ùdlð²`¿@ @ @ kðO*kðO(ƒO(kÙO*O(hdO* O0O.ó³&O2O0O,@ ‡@O0
¿O0kÔ_0°ÙO2±•dl ð²0¿@ @ O4@g
hO6 O6O4@ °`dlð²E¿@ O8kØâ @O:O8à O<É
É>¹O<O>jO@lIO:°lð–@ ‰o h¸@ HdHð³o
H
¿A²æH(698 ERROR 692 CONCAT 670 READCCODE 660 SHOULDNT 649 HREAD 592 \ALLOCBLOCK 579 \FIXPIN 563 AIN 553 ARRAY 545 MEDLEYFONT.READ.ITEM 527 \FIXPIN 498 SETA 493 MEDLEYFONT.READ.ITEM 484 \FIXPIN 461 ARRAY 427 \FIXPIN 398 CL::ROW-MAJOR-ASET 391 MEDLEYFONT.READ.ITEM 384 \FIXPIN 360 \FIXPIN 347 CL:MAKE-ARRAY 342 MEDLEYFONT.READ.ITEM 326 READ 310 \READBINARYBITMAP 263 \NCONC2 239 MEDLEYFONT.READ.ITEM 212 \NCONC2 193 MEDLEYFONT.READ.ITEM 130 MEDLEYFONT.READ.ITEM 111 READ 97 \FIXPIN 67 READCCODE 60 RATOM 51 CL:FIND-PACKAGE 41 FIND-READTABLE 27 PUTSTREAMPROP 10 GETSTREAMPROP)
(618 FDEV 611 STREAM 540 ARRAYTYP 337 ELEMENT-TYPE 331 :ELEMENT-TYPE 248 STOP 201 STOP 139 STOP 46 INTERLISP 36 INTERLISP 21 MEDLEYFONT.PEEKEDITEM 5 MEDLEYFONT.PEEKEDITEM)
( 687 " item not found" 655 "UNKNOWN MEDLEYFONT DATA TYPE")
MEDLEYFONT.PEEK.ITEM :D8
(P 0 PEEKEDITEM I 1 LABEL? I 0 STREAM) Q@g
@g@ X ¿AµHdHð³¿oHoA H
¿A²ÝH(71 ERROR 65 CONCAT 34 PUTSTREAMPROP 28 MEDLEYFONT.READ.ITEM 10 GETSTREAMPROP)
(22 MEDLEYFONT.PEEKEDITEM 5 MEDLEYFONT.PEEKEDITEM)
( 59 " instead of " 52 "Peeked ")
MEDLEYFONT.READ.FONTPROPS :D8
(P 3 PAIR I 0 STREAM) &@@ [dgðHºIµ JhY¸°åJ&¹°à(8 MEDLEYFONT.READ.ITEM)
(16 STOP)
()
MEDLEYFONT.READ.VERIFIEDFONT :D8
(P 4 VAL P 3 P P 1 FONT P 0 FONTPROPS I 1 FONT I 0 STREAM) <@ `dh¿dnÿÿÍ
¿H!JµAI@ IlIÈ
djð“¿nÿÿµnÿÿØi
I[¼Kdgðœ¿IL±¹dgð²¿ILk€jϱždgð²¿ILk€jϱƒdgðœ¿IL±ndgðœ¿IL±Ydgðœ¿IL±Ddgðœ¿I±/dgðœ¿ILÍ ±dgðœ¿I
±dgðœ¿I ±ðdgðœ¿I
±Ûdgðœ¿I ±Ædgðœ¿IL±±dgðœ¿IL±œdgðœ¿IL±‡dgð¿IL°rdgð¿I°^dgð¿IL°Jdgð²¿ILk€jϰ0dgð¿IL °dgð³gðªo ¿JZ±ýè(563 HELP 93 \ALLOCBLOCK 52 PSEUDOFILENAME 47 FULLNAME 5 MEDLEYFONT.READ.FONTPROPS)
(551 \SFFACECODE 543 INDIRECTS 532 FONTDESCRIPTOR 523 FONTEXTRAFIELD2 507 FONTDESCRIPTOR 497 FONTHASLEFTKERNS 486 FONTDESCRIPTOR 477 FONTCHARENCODING 466 FONTDESCRIPTOR 457 FONTAVGCHARWIDTH 446 FONTDESCRIPTOR 437 FONTSCALE 425 FONTDESCRIPTOR 416 OTHERDEVICEFONTPROPS 404 FONTDESCRIPTOR 395 FONTDEVICESPEC 383 FONTDESCRIPTOR 374 FONTTOMCCSFN 362 FONTDESCRIPTOR 353 FONTSLUGWIDTH 341 FONTDESCRIPTOR 332 MAXCHARSET 320 FONTDESCRIPTOR 311 ROTATION 299 FONTDESCRIPTOR 290 \SFHeight 278 FONTDESCRIPTOR 269 \SFDescent 257 FONTDESCRIPTOR 248 \SFAscent 236 FONTDESCRIPTOR 227 FONTFACE 215 FONTDESCRIPTOR 206 FONTSIZE 194 FONTDESCRIPTOR 185 FONTFAMILY 168 FONTDESCRIPTOR 158 FONTCOERCEDP 141 FONTDESCRIPTOR 131 FONTCOMPLETEP 119 FONTDESCRIPTOR 110 FONTDEVICE 71 FONTDESCRIPTOR 60 FONTDESCRIPTOR 41 FONTDESCRIPTOR 10 |FONTDESCRIPTORTYPE#|)
( 558 "UNKNOWN FONTDESCRIPTOR PROPERTY: P")
MEDLEYFONT.WRITE.CHARSET :D8
(P 10 IM P 9 W P 8 I P 6 SOURCE P 5 INDIRECT P 4 CSCHARENCODING P 3 CSINFO I 3 NOINDIRECTS I 2 STREAM I 1 CHARSET I 0 FONT) y A@È
djð“¿nÿÿñ²R@dÈ
djð“¿nÿÿkØIàÐɵX@É@È
djð“¿nÿÿkØà@ HIÐJ¿J°)@ÉAàÐɵ@ÉAàA@
HIÐJ¿J!BgA Kd¢±ÕÊ´‚±ÅC³\KÊ´gKÉNd²6@g
ô³'NNN NNN€h]€h²:BgMMM@g
Mð¥M€hhg
BgKÉhg
BgKÉ KÉKÉð³VlÿlØkÙjKÉKÉ
OOó³OOÐÈOOÐÈð¡hˆOkÔ_°ãi³BgKÉ ¿BgKÉ BgKÉ BgKÈ
BgKÈ BgKÉ BgKÉ BgKÊjðhð Bgi (630 MEDLEYFONT.WRITE.ITEM 618 MEDLEYFONT.WRITE.ITEM 594 MEDLEYFONT.WRITE.ITEM 575 MEDLEYFONT.WRITE.ITEM 556 MEDLEYFONT.WRITE.ITEM 537 MEDLEYFONT.WRITE.ITEM 518 MEDLEYFONT.WRITE.ITEM 499 MEDLEYFONT.WRITE.ITEM 479 MEDLEYFONT.WRITE.ITEM 377 MEDLEYFONT.WRITE.ITEM 358 MEDLEYFONT.WRITE.ITEM 331 MEDLEYFONT.WRITE.ITEM 302 FONTPROP 246 FONTFACETOATOM 229 FONTPROP 158 MEDLEYFONT.WRITE.ITEM 153 MKSTRING 126 \CREATECHARSET 85 \BUILDSLUGCSINFO)
(624 STOP 606 CHARSETINFO 600 CSCOMPLETEP 587 CHARSETINFO 581 BITMAP 568 CHARSETINFO 562 LEFTKERN 549 CHARSETINFO 543 DESCENT 530 CHARSETINFO 524 ASCENT 511 CHARSETINFO 505 YWIDTHS 492 CHARSETINFO 486 OFFSETS 472 CHARSETINFO 466 IMAGEWIDTHS 418 CHARSETINFO 410 CHARSETINFO 391 CHARSETINFO 383 CHARSETINFO 370 CHARSETINFO 364 WIDTHS 352 ALIST 344 CHARSETINFO 338 CSINFOPROPS 325 PRINT 297 ROTATION 282 ICS 224 DEVICESPEC 207 CHARSETINFO 201 SOURCE 189 CHARSETINFO 169 CHARSETINFO 147 CS 115 FONTDESCRIPTOR 66 FONTDESCRIPTOR 58 FONTDESCRIPTOR 26 FONTDESCRIPTOR 6 FONTDESCRIPTOR)
()
MEDLEYFONT.WRITE.ITEM :D8
(P 19 ELT P 18 ALLFIXED P 17 I P 15 KEY P 14 DTAIL P 12 KEY P 11 X P 9 TAIL P 8 I P 6 TAIL P 1 *PACKAGE* P 0 *READTABLE* I 5 BLOCKNELTS I 4 TYPE I 3 EVENIFNIL I 2 ITEM I 1 LABEL I 0 STREAM) cg g "B¦C´‚±DA@
o@
B dgð²!¿@k
¿@Bã
¿@Blÿå
±údgð²¿@l
¿@B
±Ýdgð³dgð¨dgð²¿@j
¿B@
±°dg𢱇¿BiL^µŒZ”J3´N°ñ½N”N3´M²@j
¿B@
±o@l
¿Bk O_¿O²'@OOi ¿Od³¿@gOi ¿±/_¿OkÔ_¿°Çdgð²V¿@l
¿B! Oµ@gi ±õ__d3@ð³O«oB
¿@OOC ¿O_°¾dgð²U¿@l
¿B!O_µ@gi ±_d3@ð³O«oB
¿@OOC ¿O°¿dgð²¿@l
¿B@
±Kdgð³dgðªdg𢱷¿@l
¿B @
¿@gB ¿B kÙj"B kÙjOOó³BO
3 ¡hˆOkÔ_°èi_$¿@O$k€j
¿@B
¿O"O ó³-BO"
_&¿O$˜@O&
Š@O"O&i ¿O"kÔ_"°Ò±|gð¢±B g𢱼@l
¿@B
¿@B
¿B B kÙØB B B kÙØB OOó³BO
3 ¡hˆOkÔ_°èi_$¿@O$k€j
¿O"O ó³/O$Ÿ@BO"
°@O"BO"
i ¿O"kÔ_"°Ð±©@l
¿@B
¿@B
¿@gB ¿Bd B @ °]B ²C@l
¿E§lÿlØb
¿@E
¿@BEàO(É
É@»O(O*jO,lK°@l
¿B@id ¿@ (1120 TERPRI 1113 HPRINT 1103 BOUT 1056 \FIXPOUT 1038 BOUT 1028 \BLOCKDATAP 1020 AOUT 1014 ARRAYSIZE 1008 ARRAYORIG 1000 MEDLEYFONT.WRITE.ITEM 995 ARRAYTYP 982 BOUT 977 ARRAYORIG 969 \FIXPOUT 964 ARRAYSIZE 956 BOUT 935 MEDLEYFONT.WRITE.ITEM 929 ELT 916 \FIXPOUT 911 ELT 891 BOUT 861 ELT 843 ARRAYORIG 834 ARRAYSIZE 828 ARRAYORIG 819 ARRAYORIG 810 ARRAYSIZE 804 ARRAYORIG 797 BOUT 792 ARRAYORIG 784 \FIXPOUT 779 ARRAYSIZE 771 BOUT 753 ARRAYTYP 724 MEDLEYFONT.WRITE.ITEM 712 \FIXPOUT 698 XCL:ROW-MAJOR-AREF 682 \FIXPOUT 675 CL:ARRAY-TOTAL-SIZE 667 BOUT 637 XCL:ROW-MAJOR-AREF 616 CL:ARRAY-TOTAL-SIZE 604 CL:ARRAY-TOTAL-SIZE 597 MEDLEYFONT.WRITE.ITEM 592 CL:ARRAY-ELEMENT-TYPE 579 PRIN2 573 CL:ARRAY-DIMENSIONS 566 BOUT 526 \PRINTBINARYBITMAP 518 BOUT 493 MEDLEYFONT.WRITE.ITEM 479 ERROR 451 MEDLEYFONT.WRITE.ITEM 426 BOUT 400 MEDLEYFONT.WRITE.ITEM 387 ERROR 356 MEDLEYFONT.WRITE.ITEM 333 BOUT 297 MEDLEYFONT.WRITE.ITEM 273 MEDLEYFONT.WRITE.ITEM 245 BOUT 234 PRIN2 226 BOUT 169 PRIN2 161 BOUT 124 \FIXPOUT 116 BOUT 95 \BOUT 84 \BOUT 75 BOUT 58 TYPENAME 49 PRIN1 38 PRIN2 19 CL:FIND-PACKAGE 9 FIND-READTABLE)
(1078 FDEV 1071 STREAM 989 ARRAYTYP 758 POINTER 742 ARRAYP 586 ELEMENT-TYPE 552 GENERAL-ARRAY 544 TWOD-ARRAY 535 ONED-ARRAY 506 BITMAP 445 STOP 414 PLIST 350 STOP 321 ALIST 288 STOP 178 LISTP 150 PRINT 142 STRINGP 133 LITATOM 104 FIXP 64 SMALLP 14 INTERLISP 4 INTERLISP)
( 473 "NOT A PLIST" 381 "NOT AN ALIST" 43 " ")
MEDLEYFONT.WRITE.FONTPROPS :D8
(P 5 INDIRECT P 4 CSINFO P 2 FSPEC P 1 CS I 1 FONT I 0 STREAM) ý@gAÉi @gAÊjðhði @gAÊjðhði @gAÉi @gAÉi @gAÉi @gAÈi @gAÈ i @gAÈ
i @gAÈ i @gAÈ
i @gAÈ i @gAÉi @gAÉi @gAÉi @gAÉi @gAÈi @gAÉi @gAÊjðhði @gAÈ
djð“¿nÿÿjAg
3IHó³4AÉIàÐÉ\²#gLÉ]ŸJMô«MK
£MK»IkÔY°ÌKi @gi (506 MEDLEYFONT.WRITE.ITEM 494 MEDLEYFONT.WRITE.ITEM 475 MEMBER 428 FONTPROP 394 MEDLEYFONT.WRITE.ITEM 369 MEDLEYFONT.WRITE.ITEM 349 MEDLEYFONT.WRITE.ITEM 329 MEDLEYFONT.WRITE.ITEM 309 MEDLEYFONT.WRITE.ITEM 289 MEDLEYFONT.WRITE.ITEM 269 MEDLEYFONT.WRITE.ITEM 249 MEDLEYFONT.WRITE.ITEM 229 MEDLEYFONT.WRITE.ITEM 209 MEDLEYFONT.WRITE.ITEM 189 MEDLEYFONT.WRITE.ITEM 169 MEDLEYFONT.WRITE.ITEM 149 MEDLEYFONT.WRITE.ITEM 129 MEDLEYFONT.WRITE.ITEM 109 MEDLEYFONT.WRITE.ITEM 89 MEDLEYFONT.WRITE.ITEM 69 MEDLEYFONT.WRITE.ITEM 44 MEDLEYFONT.WRITE.ITEM 19 MEDLEYFONT.WRITE.ITEM)
(500 STOP 458 CHARSETINFO 452 SOURCE 423 DEVICESPEC 406 FONTDESCRIPTOR 400 INDIRECTS 381 FONTDESCRIPTOR 375 FONTHASLEFTKERNS 361 FONTDESCRIPTOR 355 FONTCHARENCODING 341 FONTDESCRIPTOR 335 FONTAVGCHARWIDTH 321 FONTDESCRIPTOR 315 FONTSCALE 301 FONTDESCRIPTOR 295 OTHERDEVICEFONTPROPS 281 FONTDESCRIPTOR 275 FONTDEVICESPEC 261 FONTDESCRIPTOR 255 FONTTOMCCSFN 241 FONTDESCRIPTOR 235 FONTSLUGWIDTH 221 FONTDESCRIPTOR 215 MAXCHARSET 201 FONTDESCRIPTOR 195 ROTATION 181 FONTDESCRIPTOR 175 \SFHeight 161 FONTDESCRIPTOR 155 \SFDescent 141 FONTDESCRIPTOR 135 \SFAscent 121 FONTDESCRIPTOR 115 FONTFACE 101 FONTDESCRIPTOR 95 FONTSIZE 81 FONTDESCRIPTOR 75 FONTFAMILY 56 FONTDESCRIPTOR 50 FONTCOERCEDP 31 FONTDESCRIPTOR 25 FONTCOMPLETEP 11 FONTDESCRIPTOR 5 FONTDEVICE)
()
MEDLEYFONT.WRITE.HEADER :D8
(I 2 FONT I 1 OTHERFONTPROPS I 0 STREAM) Ao@
¿@ @go @g @gAi (62 MEDLEYFONT.WRITE.ITEM 49 MEDLEYFONT.WRITE.ITEM 44 DATE 33 MEDLEYFONT.WRITE.ITEM 17 TERPRI 10 PRIN1)
(55 OTHERFONTPROPS 39 DATE 23 VERSION)
( 28 "1" 4 "Medley font")
MEDLEYFONT.FILENAME :D8
(I 1 DIRECTORY I 0 FILE) ·@gi ˜@ b¿A²#ghghghgA
b¿@d²ed²ad3@ð²Y@d—¿k@ñš@gð²@@hdddi
bdg
d£dhb¿gAg@ @´g@gA (180 PACKFILENAME 159 PACKFILENAME 154 \FONTFILENAME 126 FONTDEVICEPROP 110 \FONT.CHECKARGS 54 PACKFILENAME 18 FULLNAME 11 \GETSTREAM)
(174 DIRECTORY 168 BODY 148 BODY 142 DIRECTORY 121 FONTDIRECTORIES 95 * 47 BODY 41 VERSION 35 EXTENSION 29 NAME 5 INPUT)
()
(PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
(RPAQQ MEDLEYFONTFORMATCOMS ((* ;; "Eventually, MEDLEYFONT should be a package") (* ;;
"Main public entries") (FNS MEDLEYFONT.WRITE.FONT MEDLEYFONT.GETCHARSET MEDLEYFONT.GETCHARSET.INTERNAL
MEDLEYFONT.CHARSET? MEDLEYFONT.GETFILEPROP MEDLEYFONT.FILEP MEDLEYFONT.FILEVERSION) (* ;; "Reading")
(FNS MEDLEYFONT.READ.FONT MEDLEYFONT.READ.CHARSET MEDLEYFONT.READ.ITEM MEDLEYFONT.PEEK.ITEM
MEDLEYFONT.READ.FONTPROPS MEDLEYFONT.READ.VERIFIEDFONT) (* ;; "Writing") (FNS MEDLEYFONT.WRITE.CHARSET
MEDLEYFONT.WRITE.ITEM MEDLEYFONT.WRITE.FONTPROPS MEDLEYFONT.WRITE.HEADER) (FNS MEDLEYFONT.FILENAME) (
ADDVARS (DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT) (DISPLAYCHARSETFNS (MEDLEYFONT MEDLEYFONT.FILEP
MEDLEYFONT.GETCHARSET)) (INTERPRESSFONTEXTENSIONS MEDLEYINTERPRESSFONT)) (DECLARE%: EVAL@COMPILE
DONTCOPY (CONSTANTS (PRINTDATA 0) (SMALLPDATA 1) (BITMAPDATA 2) (WORDBLOCKDATA 3) (CLARRAYDATA 4) (
FIXPDATA 5) (ILPOINTERARRAY 6) (ILNUMBERARRAY 11) (HPRINTDATA 7) (ALISTDATA 8) (PLISTDATA 9) (LISTDATA
10)))))
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
(ADDTOVAR DISPLAYCHARSETFNS (MEDLEYFONT MEDLEYFONT.FILEP MEDLEYFONT.GETCHARSET))
(ADDTOVAR INTERPRESSFONTEXTENSIONS MEDLEYINTERPRESSFONT)
NIL