github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-27 12:39:46 +00:00
Code Issues Projects Releases Wiki Activity

simplify DEFAULTFILETYPELIST initialization (#735)

Browse Source
This commit is contained in:
Larry Masinter
2022-03-08 09:41:50 -08:00
committed by GitHub
parent 5e6a035614
commit 6ec792510f
6 changed files with 142 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
sources/LOADUP-FULL
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4746
(FILECREATED " 7-Mar-2022 21:08:31" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4390
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE " 2-Mar-2022 13:58:38" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
:PREVIOUS-DATE " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +45,8 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA NIL (* ; "Edited 2-Mar-2022 13:58 by larry")
[LAMBDA NIL (* ; "Edited 7-Mar-2022 21:06 by larry")
(* ; "Edited 2-Mar-2022 13:58 by larry")
(* ; "Edited 15-Jan-2022 15:48 ")
(* ; "Edited 29-Apr-2021 22:27 by rmk:")
(* ;
@@ -67,26 +68,14 @@
" while connected to "
(DIRECTORYNAME T)
T T)
(SETQ DEFAULTFILETYPE 'BINARY) (* ;
 "These prevent bits from being lost due to lack of knowledge")
(DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
DEFAULTFILETYPELIST)
(push DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
'(SH . TEXT)
'(TTY . TEXT)
'(TXT . TEXT)
'(TEXT . TEXT)
'(TEX . TEXT)
'(HTML . TEXT)
'(HTM . TEXT))
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
(LOADFULLFONTS)
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE PRETTYFILEINDEX WHO-LINE UNIXCOMM
UNIXCHAT))
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
UNIXCOMM UNIXCHAT))
(COND
((WINDOWP *WHO-LINE*)
(CLOSEW *WHO-LINE*)))
@@ -102,5 +91,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (639 4708 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4458) (FIXMETA 4460 . 4706)))))
(FILEMAP (NIL (639 4352 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4102) (FIXMETA 4104 . 4350)))))
STOP