1
0
mirror of synced 2026-05-09 17:16:58 +00:00
Files
Interlisp.medley/internal/loadups/LOADUP-FULL.LCOM

46 lines
3.0 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 "16-Apr-2026 09:37:27" ("compiled on " {WMEDLEY}<internal>loadups>LOADUP-FULL.;46)
"15-Apr-2026 23:27:49" brecompiled exprs%: LOADFULLFONTS in "FULL 15-Apr-2026 ..." dated
"15-Apr-2026 23:27:58")
(FILECREATED "16-Apr-2026 09:37:27" {WMEDLEY}<internal>loadups>LOADUP-FULL.;46 5817 :EDIT-BY rmk
:CHANGES-TO (FNS LOADFULLFONTS) :PREVIOUS-DATE "14-Feb-2026 00:42:39"
{WMEDLEY}<internal>loadups>LOADUP-FULL.;38)
LOADFULLFONTSA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FAMILY F 3 SIZE F 4 SI::NLSETQ-VALUE F 5 FACE F 6 CSET) !i@RSUjghV
hcg(21 FONTCREATE)
(30 :NORMAL 13 DISPLAY)
()
LOADFULLFONTS :D8
(P 8 F P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 CSET P 2 FACE P 1 SIZE P 0 FAMILY F 9 *POSTSCRIPT-FILE-TYPE* F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS* F 12 POSTSCRIPTFONTDIRECTORIES)  i ¿oi
¿i gco±¦doi
¿Hi
¿oi
¿o°ndIi
¿oi
¿o°HdHIJjghj
¿o°$d`WioWM µÝhµ¹hµ“i µ±ÿYoi
¿i Wo
<00>dO µñoi
i (280 TERPRI 274 PRIN1 258 PSCFONT.READFONT 245 FILDIR 240 CONCAT 227 TERPRI 220 PRIN1 200 TERPRI 176 LOADFULLFONTSA0001 137 FONTCREATE 107 PRIN1 95 PRIN1 75 PRIN1 63 PRIN1 55 PRIN1 24 TERPRI 17 PRIN1 5 TERPRI)
(155 SI::NLSETQ-PROCEED-CASE 129 DISPLAY 29 TEXT)
( 268 "FULL fonts loaded" 235 ">c0>*.PSCFONT" 214 " Loading postscript fonts" 164 (CL:ERROR . SI::NLSETQHANDLER)
143 ("41" "42" "43" "356" "357" "361") 113 (MRR BRR MIR) 101 " " 81 (8 10 12) 69 " " 49 " Loading " 36
(CLASSIC MODERN TERMINAL) 11 "Loading FULL fonts...")
LOADUP-FULL :D8
(I 0 DRIBBLEFILE F 0 IDLE.PROFILE F 1 *DEFAULT-CLEANUP-COMPILER*) ´h¿ @ o i ¿oi
¿i
¿oi
¿i i
¿i ¿i o Pgj gco ` š` ¿(177 DRIBBLE 171 CLOSEW 160 WINDOWP 150 LOADFULLFONTS 145 LOADUP 128 LISTPUT 116 LOADUP 106 TERPRI 99 TERPRI 92 PRIN1 86 DIRECTORYNAME 79 PRIN1 67 PRIN1 61 DATE 55 PRIN1 43 TERPRI 37 BKSYSBUF 27 DRIBBLE 21 MEDLEY-INIT-VARS 16 CNDIR 11 MEDLEYDIR)
(166 *WHO-LINE* 155 *WHO-LINE* 133 BCOMPL 122 TIMEOUT 5 MEDLEYDIR)
( 140 (CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT UNIXYCD)
111 (POSTSCRIPTSTREAM) 73 " while connected to " 49 "Full loadup started at " 32 " ")
FIXMETA :D8
(F 0 \CURRENTKEYACTION) !goP go
(30 KEYACTION 15 KEYACTION)
(20 BLANK-TOP 4 BLANK-TOP)
( 25 (METADOWN . METAUP) 9 (METADOWN . METAUP))
(PRETTYCOMPRINT LOADUP-FULLCOMS)
(RPAQQ LOADUP-FULLCOMS ((FNS LOADFULLFONTS LOADUP-FULL FIXMETA) (P (FIXMETA))))
(FIXMETA)
NIL