250 lines
21 KiB
Plaintext
250 lines
21 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 2-Mar-2026 22:52:59" ("compiled on " {WMEDLEY}<sources>MEDLEYFONTFORMAT.;252)
|
||
"26-Feb-2026 12:11:15" brecompiled exprs%: MEDLEYFONT.FILENAME in "FULL 26-Feb-2026 ..." dated
|
||
"26-Feb-2026 12:11:24")
|
||
(FILECREATED " 2-Mar-2026 22:52:59" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;252 61298 :EDIT-BY rmk
|
||
:CHANGES-TO (FNS MEDLEYFONT.FILENAME MEDLEYFONT.READ.FONT MEDLEYFONT.READ.VERIFIEDFONT) :PREVIOUS-DATE
|
||
"14-Feb-2026 00:39:34" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;250)
|
||
MEDLEYFONT.WRITE.FONTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 16 A0205 P 15 A0204 P 14 A0203 P 13 I P 11 CSINFO P 7 CSNO P 5 FILECHARSETS P 4 CSVECTORLOC P 3 CSVECTORPTRLOC P 2 *READTABLE* P 1 FONTCHARENCODING P 0 CHARSETLOCS I 0 SI::*CLEANUP-FORMS* F 17 STREAM F 18 FONT F 19 CHARSETNOS F 20 NOINDIRECTS F 21 OTHERFONTPROPS F 22 A0202) ° W"W*
|
||
¿n g j W$g
|
||
o 3lÿjB ONó²lO]¬o W$
|
||
¿W" »W"j
|
||
¿W"W$
|
||
¿M¢± ùo W"
|
||
¿W" ¿W" ¼lÿj
|
||
OOó²^W" ¿M± “W&œOdW&
|
||
²3¿W$É OàÐÉ _²"O Ê jð²O_¿OµOh__¿OkÔ_±ÿNO&_¿°ñW"j
|
||
¿OkÔ_°<>dHO_ ¿W" O O O ·W$OW"W( µÏW"L
|
||
¿lÿjONó³W"HO¶
|
||
¿OkÔ_°ê°$jW" Ù¼W"M
|
||
¿W$MW"W( ¿W"K
|
||
¿W"L
|
||
¿W" hc,¿$ (422 \MVLIST 416 FULLNAME 408 \FIXPOUT 399 SETFILEPTR 390 MEDLEYFONT.WRITE.CHARSET 376 BOUT 365 GETFILEPTR 345 \FIXPOUT 321 SETFILEPTR 308 MEDLEYFONT.WRITE.CHARSET 283 GETFILEPTR 253 \FIXPOUT 179 MEMB 161 TERPRI 139 GETFILEPTR 131 TERPRI 123 PRIN1 104 MEDLEYFONT.WRITE.FONTPROPS 94 \FIXPOUT 85 GETFILEPTR 77 ERROR 45 FIND-READTABLE 35 FONTPROP 23 CL:MAKE-ARRAY 8 MEDLEYFONT.WRITE.HEADER)
|
||
(203 CHARSETINFO 30 CHARENCODING 17 :INITIAL-ELEMENT)
|
||
( 116 "CHARSET LOCATIONS" 70 "No character sets to write" 40 "INTERLISP")
|
||
MEDLEYFONT.WRITE.FONTA0002 :D8
|
||
(F 0 STREAM F 1 A0202) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
MEDLEYFONT.WRITE.FONT :D8
|
||
(P 1 A0202 P 0 STREAM I 4 NOINDIRECTS I 3 OTHERFONTPROPS I 2 CHARSETNOS I 1 FILE I 0 FONT) a @ b A@B bBd£d‘h bAg g g g
|
||
ig Hg I ¿$ (90 CL:CLOSE 78 \MVLIST 73 MEDLEYFONT.WRITE.FONTA0001 59 OPEN 30 SORT 15 MEDLEYFONT.FILENAME 5 FONTCREATE)
|
||
(84 :ABORT 68 MEDLEYFONT.WRITE.FONTA0002 53 :NEW-VERSION 48 :IF-EXISTS 43 :OUTPUT 38 :DIRECTION)
|
||
()
|
||
MEDLEYFONT.GETCHARSETA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 8 VAL P 7 P P 5 CS P 1 CSLOC P 0 CSVECTORLOC I 0 SI::*CLEANUP-FORMS* F 9 STREAM F 10 FONT F 11 CHARSET F 12 SI::*RESETFORMS*) S Wg i ³9o Wg
|
||
chWc¿W ³o W
|
||
¿W 1lÿjMLó³WÉ MàÐÉ ”Mµ i†MkÔ]°éh²|W !Nµ°u__dg ð² ¿W OW ȺdJñ¡¿JÍ°6dg ð² ¿W OW È »dKñ¡¿KÍ <09>g ð—W ¿N^°“WW
|
||
¿W jÏ ¿jdðhðjHñ²WjHÙ
|
||
¿WW ð°%WHWààØ
|
||
¿W Yjð¨WI
|
||
€h´
|
||
WWW (336 MEDLEYFONT.READ.CHARSET 321 SETFILEPTR 309 \FIXPIN 301 SETFILEPTR 279 SETFILEPTR 246 MEDLEYFONT.READ.VERIFIEDFONT 122 MEDLEYFONT.READ.FONTPROPS 76 \FIXPIN 68 ERROR 63 FULLNAME 49 MEDLEYFONT.FILEP 31 OPENSTREAM 12 \GETSTREAM)
|
||
(254 FONTDESCRIPTOR 231 FONTDESCRIPTOR 222 \SFHeight 205 FONTDESCRIPTOR 196 FONTDESCRIPTOR 185 \SFDescent 166 FONTDESCRIPTOR 157 FONTDESCRIPTOR 146 \SFAscent 26 INPUT 6 INPUT)
|
||
( 56 "NOT A MEDLEYFONT FILE" 19 (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) . jAó¤Alÿó–A ¿S!g ¿$ (39 SI::RESETUNWIND 34 \MVLIST 29 MEDLEYFONT.GETCHARSETA0001 14 \ILLEGAL.ARG)
|
||
(24 SI::RESETUNWIND)
|
||
()
|
||
MEDLEYFONT.CHARSET?A0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 0 CSVECTORLOC I 0 SI::*CLEANUP-FORMS* F 1 STREAM F 2 CHARSET F 3 FILE F 4 A0475) X Q «o S
|
||
¿Q jHñŸQjHÙ
|
||
¿RQ ð°QHRààØ
|
||
¿Q jðhð´R hc¿$ (78 \MVLIST 65 \FIXPIN 58 SETFILEPTR 40 SETFILEPTR 24 \FIXPIN 17 ERROR 5 MEDLEYFONT.FILEP)
|
||
NIL
|
||
( 11 "Not a MEDLEYFONT file")
|
||
MEDLEYFONT.CHARSET?A0002 :D8
|
||
(F 0 STREAM F 1 A0475) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
MEDLEYFONT.CHARSET? :D8
|
||
(P 1 A0475 P 0 STREAM I 1 CHARSET I 0 FILE) 5 @g g ig Hg I ¿$ (46 CL:CLOSE 34 \MVLIST 29 MEDLEYFONT.CHARSET?A0001 15 OPEN)
|
||
(40 :ABORT 24 MEDLEYFONT.CHARSET?A0002 10 :INPUT 5 :DIRECTION)
|
||
()
|
||
MEDLEYFONT.GETFILEPROPA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 3 CS P 1 CSVECTORLOC P 0 HEADERPROPS I 0 SI::*CLEANUP-FORMS* F 7 STREAM F 8 PROP F 9 A2680) Æ W X³o W
|
||
¿W ¹Wdg ð–¿H± ‚dg ð•¿H°sdg ð™¿W °ag ð²OjIñ²WjIÙ
|
||
¿W h°BWI
|
||
¿lÿj2KJó³!W jð©K¾Mµ
|
||
Nh]¼KkÔ[°äN&½°÷L‰o hc¿$ (188 \MVLIST 182 ERROR 145 \FIXPIN 126 SETFILEPTR 110 SETFILEPTR 85 MEDLEYFONT.READ.FONTPROPS 37 \FIXPIN 29 ERROR 24 FULLNAME 9 MEDLEYFONT.FILEP)
|
||
(92 CHARSETS 75 FONTPROPS 61 DATE 46 OTHERPROPS)
|
||
( 177 "Unknown MEDLEYFONT property" 17 "Not a MEDLEYFONT file")
|
||
MEDLEYFONT.GETFILEPROPA0002 :D8
|
||
(F 0 STREAM F 1 A2680) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
MEDLEYFONT.GETFILEPROP :D8
|
||
(P 1 A2680 P 0 STREAM I 1 PROP I 0 FILE) ] @d3@ð³#@ ³@ g
|
||
b €@g g ig Hg I ¿$ (86 CL:CLOSE 74 \MVLIST 69 MEDLEYFONT.GETFILEPROPA0001 55 OPEN 35 FONTFILES 30 FONTPROP 20 FONTCREATE 12 STRINGP)
|
||
(80 :ABORT 64 MEDLEYFONT.GETFILEPROPA0002 50 :INPUT 45 :DIRECTION 25 SPEC)
|
||
()
|
||
MEDLEYFONT.FILEPA0001A0003 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 VERSION F 4 SI::NLSETQ-VALUE) > i@Rg
|
||
c¿R Rg
|
||
SRg
|
||
hcg (47 MEDLEYFONT.READ.ITEM 35 MEDLEYFONT.READ.ITEM 24 FULLNAME 15 MEDLEYFONT.READ.ITEM)
|
||
(59 :NORMAL 42 OTHERFONTPROPS 30 DATE 10 VERSION)
|
||
()
|
||
MEDLEYFONT.FILEPA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 C P 2 DATE P 1 VERSION P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 10 FILE F 11 SI::*RESETFORMS* F 12 *PROCEED-CASES* F 13 *CONDITION-HANDLER-BINDINGS*) <00>
|
||
@Wg i ”WX° o Wg
|
||
XhWc¿H [jð³K–K §Hj
|
||
¿o Lµ1i´,` Wio W O g ð´N]H ð¢h°ÇL\°¾ (145 READCCODE 124 MEDLEYFONT.FILEPA0001A0003 77 SETFILEPTR 69 \FZEROP 54 GETFILEPTR 38 OPENSTREAM 15 \GETSTREAM)
|
||
(130 :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.READ.FONTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 14 CS P 13 X P 11 CSLOC P 10 CSNO P 5 I P 3 SINGLECSNO P 2 NOTFOUND P 1 CSVECTORLOC P 0 *READTABLE* I 0 SI::*CLEANUP-FORMS* F 15 STREAM F 16 CHARSETNOS F 17 FONT F 18 FILE F 19 A1124) © W ³o W
|
||
¿o 1W ¹W W"
|
||
c"¿Ijð’± ¢jIñ²SW jIÙ
|
||
¿W »W ²'KW ð”W ² W$o KW
|
||
¿W" É KàÐW K
|
||
¿°KW µlÿj2MdLó²K¿NQ Nµ]W ² J²W$o J
|
||
|
||
¿O!Oµ‚± ˜W" hc&¿$_¿OµOh_¾MkÔ]° O&_¿°ô_¿W IOààØ
|
||
¿W _jð«Odœ ”OJºOjð³ Oµ%OO_¿OµOh__¿N^±ÿOO&_¿°ô ²Ø°ë__¿W O
|
||
¿W" É OàÐW O
|
||
¿O_±ÿ4 (412 MEDLEYFONT.READ.CHARSET 389 SETFILEPTR 368 \FZEROP 310 \FZEROP 294 \FIXPIN 286 SETFILEPTR 233 \MVLIST 208 ERROR 203 CONCAT 198 DREVERSE 147 MEDLEYFONT.READ.CHARSET 126 ERROR 121 CONCAT 116 REMOVE 81 SETFILEPTR 56 MEDLEYFONT.READ.VERIFIEDFONT 46 \FIXPIN 36 FIND-READTABLE 25 ERROR 20 FULLNAME 6 MEDLEYFONT.FILEP)
|
||
(397 FONTDESCRIPTOR 134 FONTDESCRIPTOR)
|
||
( 192 " does not contain information for charsets " 108 " does not contain information for charsets " 31
|
||
"INTERLISP" 13 "NOT A MEDLEYFONT FILE")
|
||
MEDLEYFONT.READ.FONTA0002 :D8
|
||
(F 0 STREAM F 1 A1124) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
MEDLEYFONT.READ.FONT :D8
|
||
(P 1 A1124 P 0 STREAM I 2 FONT I 1 CHARSETNOS I 0 FILE) X B˜B b¿@B
|
||
b Ad£d‘h b@g g ig Hg I ¿$ (81 CL:CLOSE 69 \MVLIST 64 MEDLEYFONT.READ.FONTA0001 50 OPEN 32 SORT 17 MEDLEYFONT.FILENAME 7 FONTCREATE)
|
||
(75 :ABORT 59 MEDLEYFONT.READ.FONTA0002 45 :INPUT 40 :DIRECTION)
|
||
()
|
||
MEDLEYFONT.READ.CHARSET :D8
|
||
(P 5 ITEM P 4 LABEL P 3 PAIR P 2 CSINFO P 1 INDIRECT P 0 CSNO I 2 FONT I 1 CHARSET I 0 STREAM) ‘ @g
|
||
A@g
|
||
Xð¯o AHh
|
||
¿@ g ð²@g
|
||
YdAB ` dh ¿dh¿dnÿÿÍ¿1@ [¼K½Ldg ð²)¿J ɳJ J É ¿J AÍJg ð›J M ¿°±Ldg ðœ¿J M¿°›g ð›J M¿°ˆLdg ð<>¿J M¿±ÿrg ðœJ MÍ
|
||
¿±ÿ^Ldg ð<>¿J MÍ ¿±ÿGg ðœJ M ¿±ÿ3Ldg ð<>¿J M¿±ÿ g ðœJ M¿±ÿLg ð²J M‘k€jÏ ¿±þío L
|
||
¿±þÞ (395 HELP 112 MEDLEYFONT.READ.ITEM 79 \READCHARSET 70 MEDLEYFONT.READ.ITEM 50 MEDLEYFONT.PEEK.ITEM 43 ERROR 25 MEDLEYFONT.READ.ITEM 10 MEDLEYFONT.READ.ITEM)
|
||
(372 CHARSETINFO 363 CSCOMPLETEP 350 CHARSETINFO 342 CSINFOPROPS 330 CHARSETINFO 321 BITMAP 307 CHARSETINFO 299 LEFTKERN 287 CHARSETINFO 278 DESCENT 264 CHARSETINFO 256 ASCENT 244 CHARSETINFO 235 YWIDTHS 222 CHARSETINFO 214 IMAGEWIDTHS 203 CHARSETINFO 194 OFFSETS 181 CHARSETINFO 173 WIDTHS 163 CHARSETINFO 152 CHARSETINFO 146 CHARSETINFO 136 CHARSETINFO 126 STOP 85 |CHARSETINFOTYPE#| 65 INDIRECTCHARSET 56 INDIRECTCHARSET 20 CHARSET 5 CHARSETSTRING)
|
||
( 389 "Unrecognized charsetinfo label" 33 "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Ÿ@g h ¿±ƒg g "@ ¼@ ¿L@ dkð™¿@ á@ رBdlð™¿@ ±3djð™¿@ ±%dlð²;¿@ @ _dg ð•¿N±O_¿Oµ Oh_¾°ÕO&_¿°Ídl ð²*¿ @ _g ðOO
|
||
_¿°äO±¸dl
|
||
ð²G¿@@ _ dg ð²™OO
|
||
¿O±‰_ ¿Oµ
|
||
O h__¿°É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¸@ Aµ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
|
||
H³@g @ X ¿AµHdHð³ ¿o Ho A 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 5 VAL P 4 P P 2 FONTPROPS I 1 FONT I 0 STREAM) õ A³ ` llÿØi
|
||
HdI ¿b¿@ J!KµA\½Ldg ðœ¿A M ± dg ð²¿A M‘k€jÏ ±…dg ðœ¿A M±pdg ðœ¿A M±[dg ðœ¿A M±Fdg ðœ¿A Mͱ1dg ðœ¿A MÍ ± dg ðœ¿A MÍ
|
||
±dg ðœ¿A MÍ ± òdg ðœ¿A MÍ ± Ýdg ðœ¿A M± Èdg ðœ¿A M± ³dg ðœ¿A M± ždg ðœ¿A M± ‰dg ðœ¿A MÏ°sdg ð›¿A MÍ°_dg ð›¿A M °Kdg ð›¿A M °7dg ð²¿A M‘k€jÏ ° g ð™A M ‰o ¿K[±þ> (492 HELP 38 MEDLEYFONT.READ.FONTPROPS 19 \ALLOCBLOCK)
|
||
(478 FONTDESCRIPTOR 470 FONTEXTRAFIELD2 455 FONTDESCRIPTOR 445 FONTHASLEFTKERNS 434 FONTDESCRIPTOR 425 FONTCHARSETVECTOR 414 FONTDESCRIPTOR 405 FONTCHARENCODING 394 FONTDESCRIPTOR 385 FONTAVGCHARWIDTH 373 FONTDESCRIPTOR 364 \SFFACECODE 352 FONTDESCRIPTOR 343 FONTSCALE 331 FONTDESCRIPTOR 322 OTHERDEVICEFONTPROPS 310 FONTDESCRIPTOR 301 FONTDEVICESPEC 289 FONTDESCRIPTOR 280 FONTTOMCCSFN 268 FONTDESCRIPTOR 259 FONTSLUGWIDTH 247 FONTDESCRIPTOR 238 ROTATION 226 FONTDESCRIPTOR 217 \SFHeight 205 FONTDESCRIPTOR 196 \SFDescent 184 FONTDESCRIPTOR 175 \SFAscent 163 FONTDESCRIPTOR 154 FONTFACE 142 FONTDESCRIPTOR 133 FONTSIZE 121 FONTDESCRIPTOR 112 FONTFAMILY 95 FONTDESCRIPTOR 85 FONTCOMPLETEP 73 FONTDESCRIPTOR 64 FONTDEVICE 7 |FONTDESCRIPTORTYPE#|)
|
||
( 487 "UNKNOWN FONTDESCRIPTOR PROPERTY: P")
|
||
MEDLEYFONT.WRITE.CHARSET :D8
|
||
(P 11 IM P 10 W P 9 I P 7 SOURCE P 4 CSCHARENCODING P 3 CSINFO I 3 NOINDIRECTS I 2 STREAM I 1 CHARSET I 0 FONT) ð @É AàÐÉ µ @ É AàA@
|
||
HIÐJ ¿J1Bg A Bg A Kd¢±¤ Ê jð´‚±”C³;K Ê jð´K ɽg M
|
||
Od<>@g
|
||
ôhð€h²*Bg K ɾg N
|
||
hg
|
||
Bg K Éhg
|
||
Bg K É K ÉK É ð³VlÿlØkÙjK É K É OOó³ OOÐÈ OOÐÈ ð¡hˆOkÔ_°ãi³Bg K É ¿Bg K É Bg K É Bg K È
|
||
Bg K È Bg K É Bg K É Bg K Ê jðhð Bg i (493 MEDLEYFONT.WRITE.ITEM 481 MEDLEYFONT.WRITE.ITEM 457 MEDLEYFONT.WRITE.ITEM 438 MEDLEYFONT.WRITE.ITEM 419 MEDLEYFONT.WRITE.ITEM 400 MEDLEYFONT.WRITE.ITEM 381 MEDLEYFONT.WRITE.ITEM 362 MEDLEYFONT.WRITE.ITEM 342 MEDLEYFONT.WRITE.ITEM 240 MEDLEYFONT.WRITE.ITEM 221 MEDLEYFONT.WRITE.ITEM 194 MEDLEYFONT.WRITE.ITEM 181 SASSOC 147 FONTPROP 128 SASSOC 70 MEDLEYFONT.WRITE.ITEM 58 MEDLEYFONT.WRITE.ITEM 53 MKSTRING 26 \CREATECHARSET)
|
||
(487 STOP 469 CHARSETINFO 463 CSCOMPLETEP 450 CHARSETINFO 444 BITMAP 431 CHARSETINFO 425 LEFTKERN 412 CHARSETINFO 406 DESCENT 393 CHARSETINFO 387 ASCENT 374 CHARSETINFO 368 YWIDTHS 355 CHARSETINFO 349 OFFSETS 335 CHARSETINFO 329 IMAGEWIDTHS 281 CHARSETINFO 273 CHARSETINFO 254 CHARSETINFO 246 CHARSETINFO 233 CHARSETINFO 227 WIDTHS 215 ALIST 207 CHARSETINFO 201 CSINFOPROPS 188 PRINT 175 SOURCE 167 CHARSETINFO 161 INDIRECTCHARSET 142 DEVICESPEC 122 SOURCE 114 CHARSETINFO 101 CHARSETINFO 81 CHARSETINFO 64 CHARSET 47 CHARSETSTRING 15 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) c g g "B¦C´‚±DA@
|
||
o @
|
||
Dµ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³¿@g Oi ¿±/_¿OkÔ_¿°Çdg ð²V¿@l
|
||
¿B! Oµ@g i ±õ__d3@ð³O«o B
|
||
¿@OOC ¿O_°¾dg ð²U¿@l
|
||
¿B!O_ µ@g i ±–_ d3@ð³O «o B
|
||
¿@O O C ¿O °¿dg ð²¿@l
|
||
¿B@
|
||
±Kdg ð³dg ðªdg 𢱠·¿@l
|
||
¿B @
|
||
¿@g B ¿B kÙj"B kÙjOOó³BO
|
||
3 ¡hˆOkÔ_°èi_$¿@O$‘k€j
|
||
¿@B kÙ
|
||
¿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
|
||
¿@g B ¿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
|
||
(I 1 FONT I 0 STREAM) € @g A É i @g A Ê jðhði @g A Éi @g A Éi @g A Éi @g A Èi @g A È i @g A È
|
||
i @g A È i @g A È i @g A Éi @g A Éi @g A Éi @g A Éi @g A Èi @g A É i @g A Ê jðhði @g A É i @g i (381 MEDLEYFONT.WRITE.ITEM 369 MEDLEYFONT.WRITE.ITEM 349 MEDLEYFONT.WRITE.ITEM 324 MEDLEYFONT.WRITE.ITEM 304 MEDLEYFONT.WRITE.ITEM 284 MEDLEYFONT.WRITE.ITEM 264 MEDLEYFONT.WRITE.ITEM 244 MEDLEYFONT.WRITE.ITEM 224 MEDLEYFONT.WRITE.ITEM 204 MEDLEYFONT.WRITE.ITEM 184 MEDLEYFONT.WRITE.ITEM 164 MEDLEYFONT.WRITE.ITEM 144 MEDLEYFONT.WRITE.ITEM 124 MEDLEYFONT.WRITE.ITEM 104 MEDLEYFONT.WRITE.ITEM 84 MEDLEYFONT.WRITE.ITEM 64 MEDLEYFONT.WRITE.ITEM 44 MEDLEYFONT.WRITE.ITEM 19 MEDLEYFONT.WRITE.ITEM)
|
||
(375 STOP 361 FONTDESCRIPTOR 355 FONTEXTRAFIELD2 336 FONTDESCRIPTOR 330 FONTHASLEFTKERNS 316 FONTDESCRIPTOR 310 FONTCHARENCODING 296 FONTDESCRIPTOR 290 FONTAVGCHARWIDTH 276 FONTDESCRIPTOR 270 FONTSCALE 256 FONTDESCRIPTOR 250 OTHERDEVICEFONTPROPS 236 FONTDESCRIPTOR 230 FONTDEVICESPEC 216 FONTDESCRIPTOR 210 FONTTOMCCSFN 196 FONTDESCRIPTOR 190 FONTSLUGWIDTH 176 FONTDESCRIPTOR 170 ROTATION 156 FONTDESCRIPTOR 150 \SFHeight 136 FONTDESCRIPTOR 130 \SFDescent 116 FONTDESCRIPTOR 110 \SFAscent 96 FONTDESCRIPTOR 90 FONTFACE 76 FONTDESCRIPTOR 70 FONTSIZE 56 FONTDESCRIPTOR 50 FONTFAMILY 31 FONTDESCRIPTOR 25 FONTCOMPLETEP 11 FONTDESCRIPTOR 5 FONTDEVICE)
|
||
()
|
||
MEDLEYFONT.WRITE.HEADER :D8
|
||
(I 1 OTHERFONTPROPS I 0 STREAM) = o @
|
||
¿@ @g j @g @g Ai (58 MEDLEYFONT.WRITE.ITEM 45 MEDLEYFONT.WRITE.ITEM 40 DATE 29 MEDLEYFONT.WRITE.ITEM 17 TERPRI 10 PRIN1)
|
||
(51 OTHERFONTPROPS 35 DATE 23 VERSION)
|
||
( 4 "Medley font")
|
||
MEDLEYFONT.FILENAME :D8
|
||
(P 0 FONTSPEC I 4 DIRECTORY I 3 EXTENSION I 2 CHARSET I 1 FONT I 0 FILE) Á Ad²d3@ðœAd3 – ŠAg
|
||
C³5@g
|
||
µ%o H—Hµ o o b¿g @Hd™hddB
|
||
g Dµ.@g
|
||
µ! o C o g Ch
|
||
(190 PACKFILENAME.STRING 183 CL:APPEND 167 PSEUDOFILENAME 162 CONCAT 152 L-CASE 141 MEDLEYDIR 134 FILENAMEFIELD 115 UNPACKFILENAME.STRING 110 \FONTFILENAME 88 CONCAT 78 ERROR 51 FILENAMEFIELD 34 FONTPROP 22 \FONT.CHECKARGS)
|
||
(172 EXTENSION 129 DIRECTORY 120 DIRECTORY 96 BODY 46 EXTENSION 29 SPEC)
|
||
( 157 "s" 146 "fonts/" 83 "FONT" 73 "Font device not known" 58 "MEDLEY")
|
||
(PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
|
||
(RPAQQ MEDLEYFONTFORMATCOMS ((* ;; "Eventually, MEDLEYFONT should be a package") (* ;;
|
||
"Main public entries") (FNS MEDLEYFONT.WRITE.FONT MEDLEYFONT.GETCHARSET MEDLEYFONT.CHARSET?
|
||
MEDLEYFONT.GETFILEPROP MEDLEYFONT.FILEP) (* ;; "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
|