1
0
mirror of synced 2026-05-10 01:19:10 +00:00
Files
Interlisp.medley/internal/loadups/LOADUP-FULL.LCOM
rmkaplan c16e3b4a55 Move UNIXY commands to UNIXUTILS, delete UNIXYCD (#2587)
* Move  UNIXY commands to UNIXUTILS, delete UNIXYCD

* Delete UNIXYCD
2026-04-30 23:04:26 -07:00

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 "28-Apr-2026 10:01:06" ("compiled on " {WMEDLEY}<internal>loadups>LOADUP-FULL.;47)
"28-Apr-2026 00:01:36" brecompiled exprs%: LOADUP-FULL in "FULL 28-Apr-2026 ..." dated
"28-Apr-2026 00:01:44")
(FILECREATED "28-Apr-2026 10:01:06" {WMEDLEY}<internal>loadups>LOADUP-FULL.;47 5896 :EDIT-BY rmk
:CHANGES-TO (FNS LOADUP-FULL) :PREVIOUS-DATE "16-Apr-2026 09:37:27"
{WMEDLEY}<internal>loadups>LOADUP-FULL.;46)
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)
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