github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 20:06:44 +00:00
Code Issues Projects Releases Wiki Activity

Add a few inits to SYSEDIT, obsoleting ABC (#1184)

Browse Source
This commit is contained in:
Larry Masinter
2023-07-07 11:30:42 -07:00
committed by GitHub
parent 08852f7b55
commit 871bbb735f
5 changed files with 52 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
internal/ABC
View File

@@ -1,62 +0,0 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "18-Mar-88 16:09:05" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;4 2101
changes to%: (VARS ABCCOMS)
previous date%: "29-Jul-87 12:04:16" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;3)
(* "
Copyright (c) 1986, 1987, 1988 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT ABCCOMS)
(RPAQQ ABCCOMS ((VARS (MSRECORDTRANFLG T)
(DWIMIFYCOMPFLG)
(MSMACROPROPS COMPILERMACROPROPS)
(CLEANUPOPTIONS '(RC F))
(CROSSCOMPILING T)
(ASKEDITHIST T)
(RECOMPILEDEFAULT 'CHANGES)
(CROSSCOMPILING 'ASK))
(FILES (SOURCE)
FILESETS)
(P (MOVD? 'APPLY* 'SPREADAPPLY*)
[RESETVARS ((CROSSCOMPILING T))
(FILESLOAD EXPORTS.ALL)
(AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T)
'Y)
(ERSETQ (CHECKIMPORTS EXPORTFILES T]
(PRIN1
"**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED"
T))))
(RPAQQ MSRECORDTRANFLG T)
(RPAQQ DWIMIFYCOMPFLG NIL)
(RPAQ MSMACROPROPS COMPILERMACROPROPS)
(RPAQQ CLEANUPOPTIONS (RC F))
(RPAQQ CROSSCOMPILING T)
(RPAQQ ASKEDITHIST T)
(RPAQQ RECOMPILEDEFAULT CHANGES)
(RPAQQ CROSSCOMPILING ASK)
(FILESLOAD (SOURCE)
FILESETS)
(MOVD? 'APPLY* 'SPREADAPPLY*)
[RESETVARS ((CROSSCOMPILING T))
(FILESLOAD EXPORTS.ALL)
(AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T)
'Y)
(ERSETQ (CHECKIMPORTS EXPORTFILES T]
(PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T)
(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1986 1987 1988))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP

1
internal/ABC.LCOM
View File

@@ -1 +0,0 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 1-Feb-98 09:30:41" ("compiled on " {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>internal>library>ABC.;1) "31-Jan-98 19:10:48" bcompl'd in "Medley 31-Jan-98 ..." dated "31-Jan-98 19:12:50") (FILECREATED "18-Mar-88 16:09:05" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;4 2101 changes to%: (VARS ABCCOMS) previous date%: "29-Jul-87 12:04:16" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;3) (PRETTYCOMPRINT ABCCOMS) (RPAQQ ABCCOMS ((VARS (MSRECORDTRANFLG T) (DWIMIFYCOMPFLG) (MSMACROPROPS COMPILERMACROPROPS) ( CLEANUPOPTIONS (QUOTE (RC F))) (CROSSCOMPILING T) (ASKEDITHIST T) (RECOMPILEDEFAULT (QUOTE CHANGES)) ( CROSSCOMPILING (QUOTE ASK))) (FILES (SOURCE) FILESETS) (P (MOVD? (QUOTE APPLY*) (QUOTE SPREADAPPLY*)) (RESETVARS ((CROSSCOMPILING T)) (FILESLOAD EXPORTS.ALL) (AND (EQ (ASKUSER DWIMWAIT (QUOTE N) "Check imports? " NIL T) (QUOTE Y)) (ERSETQ (CHECKIMPORTS EXPORTFILES T)))) (PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T)))) (RPAQQ MSRECORDTRANFLG T) (RPAQQ DWIMIFYCOMPFLG NIL) (RPAQ MSMACROPROPS COMPILERMACROPROPS) (RPAQQ CLEANUPOPTIONS (RC F)) (RPAQQ CROSSCOMPILING T) (RPAQQ ASKEDITHIST T) (RPAQQ RECOMPILEDEFAULT CHANGES) (RPAQQ CROSSCOMPILING ASK) (FILESLOAD (SOURCE) FILESETS) (MOVD? (QUOTE APPLY*) (QUOTE SPREADAPPLY*)) (RESETVARS ((CROSSCOMPILING T)) (FILESLOAD EXPORTS.ALL) (AND (EQ (ASKUSER DWIMWAIT (QUOTE N) "Check imports? " NIL T) (QUOTE Y)) (ERSETQ (CHECKIMPORTS EXPORTFILES T)))) (PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T) (PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1986 1987 1988)) NIL