github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 52 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
library/SYSEDIT
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1238
(FILECREATED "29-Apr-2023 16:15:10" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1377
:EDIT-BY "lmm"
:CHANGES-TO (VARS SYSEDITCOMS)
:PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
:PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
(PRETTYCOMPRINT SYSEDITCOMS)
@ -20,8 +20,10 @@
(CLISPIFTRANFLG T)
(CROSSCOMPILING 'ASK)
(*REPLACE-OLD-EDIT-DATES* NIL)
(COPYRIGHTFLG 'NEVER))
(P (RESETVARS ((CROSSCOMPILING T))
(COPYRIGHTFLG 'NEVER)
(MSRECORDTRANFLG T))
(P (MOVD? 'APPLY* 'SPREADAPPLY*X)
(RESETVARS ((CROSSCOMPILING T))
(FILESLOAD (SOURCE)
EXPORTS.ALL])
@ -43,6 +45,10 @@
(RPAQQ COPYRIGHTFLG NEVER)
(RPAQQ MSRECORDTRANFLG T)
(MOVD? 'APPLY* 'SPREADAPPLY*X)
(RESETVARS ((CROSSCOMPILING T))
(FILESLOAD (SOURCE)
EXPORTS.ALL))

0
internal/ABC → obsolete/internal/ABC
View File

0
internal/ABC.LCOM → obsolete/internal/ABC.LCOM
View File

19
sources/FASL-SUPPORT
View File

@ -1,21 +1,21 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL")
(IL:FILECREATED "16-May-90 17:37:00" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;2| 1408
(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10)
IL:|changes| IL:|to:| (IL:VARS IL:FASL-SUPPORTCOMS)
(IL:FILECREATED "29-Apr-2023 17:09:01" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2| 1257
IL:|previous| IL:|date:| "15-Dec-86 16:23:56"
IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
:EDIT-BY "lmm"
:CHANGES-TO (IL:VARS IL:FASL-SUPPORTCOMS)
:PREVIOUS-DATE "16-May-90 17:37:00" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;1|)
; Copyright (c) 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
(IL:PRETTYCOMPRINT IL:FASL-SUPPORTCOMS)
(IL:RPAQQ IL:FASL-SUPPORTCOMS
(
(IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
(IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
(IL:P (OR (GET 'IL:ABC 'IL:FILEDATES)
(IL:P (OR (GET 'IL:SYSEDIT 'IL:FILEDATES)
(IL:FILESLOAD (IMPORT)
IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC)))
(IL:DEFINE-TYPES FASL-OPS)
@ -27,7 +27,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
(IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
(OR (GET 'IL:ABC 'IL:FILEDATES)
(OR (GET 'IL:SYSEDIT 'IL:FILEDATES)
(IL:FILESLOAD (IMPORT)
IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC))
@ -36,7 +36,6 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
(IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
(IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
(IL:PUTPROPS IL:FASL-SUPPORT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL)))
IL:STOP

34
sources/FASL-SUPPORT.LCOM
View File

@ -1 +1,33 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL") (IL:FILECREATED "25-Jan-98 13:21:54" ("compiled on " IL:|{DSK}<lispcore>sources>FASL-SUPPORT.;1|) "30-Mar-95 20:33:04" IL:|bcompl'd| IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "16-May-90 17:37:00" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;2| 1408 IL:|changes| IL:|to:| (IL:VARS IL:FASL-SUPPORTCOMS) IL:|previous| IL:|date:| "15-Dec-86 16:23:56" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|) (IL:PRETTYCOMPRINT IL:FASL-SUPPORTCOMS) (IL:RPAQQ IL:FASL-SUPPORTCOMS ((IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP") (IL:P (OR ( GET (QUOTE IL:ABC) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC))) (IL:DEFINE-TYPES FASL-OPS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:FASL-SUPPORT))) (OR (GET (QUOTE IL:ABC) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC)) (XCL:DEF-DEFINE-TYPE FASL-OPS "FASL file opcodes") (IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL")) (IL:PUTPROPS IL:FASL-SUPPORT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1990)) NIL
(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10)
(IL:FILECREATED "29-Apr-2023 17:09:08" ("compiled on "
IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2|) "27-Apr-2023 05:47:56" "COMPILE-FILEd" IL:|in|
"Welcome to Fuller sysout 27-Apr-2023 ..." IL:|dated| "27-Apr-2023 05:53:17")
(IL:FILECREATED "29-Apr-2023 17:09:01" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2| 1257
:EDIT-BY "lmm" :CHANGES-TO (IL:VARS IL:FASL-SUPPORTCOMS) :PREVIOUS-DATE "16-May-90 17:37:00"
IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;1|)
(IL:RPAQQ IL:FASL-SUPPORTCOMS ((IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP") (IL:P (OR (
GET (QUOTE IL:SYSEDIT) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY
IL:MODARITH IL:LLGC))) (IL:DEFINE-TYPES FASL-OPS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT)
IL:FASL-SUPPORT)))
(OR (GET (QUOTE IL:SYSEDIT) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR
IL:ADISPLAY IL:MODARITH IL:LLGC))
(IL:SET-DOCUMENTATION (QUOTE FASL-OPS) (QUOTE IL:DEFINE-TYPES) (QUOTE "FASL file opcodes"))
(IL:SETQ IL:PRETTYDEFMACROS (ADJOIN (QUOTE (FASL-OPS XCL::X (IL:P IL:* (
XCL::%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE FASL-OPS) (QUOTE XCL::X))))) IL:PRETTYDEFMACROS :TEST (QUOTE
EQUAL)))
(IL:SETQ IL:PRETTYTYPELST (ADJOIN (QUOTE (CHANGEDFASL-OPSLST FASL-OPS "FASL file opcodes"))
IL:PRETTYTYPELST :TEST (QUOTE EQUAL)))
(PROCLAIM (QUOTE (XCL:GLOBAL CHANGEDFASL-OPSLST)))
(OR (BOUNDP (QUOTE CHANGEDFASL-OPSLST)) (SETQ CHANGEDFASL-OPSLST NIL))
(COND ((NOT (GETHASH (QUOTE FASL-OPS) XCL:*DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE FASL-OPS)
XCL:*DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50))))
(IL:SETQ IL:FILEPKGTYPES (ADJOIN (QUOTE FASL-OPS) IL:FILEPKGTYPES))
(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:GETDEF) (QUOTE XCL::%DEFINE-TYPE-GETDEF))
(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:DELDEF) (QUOTE XCL::%DEFINE-TYPE-DELDEF))
(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:PUTDEF) (QUOTE XCL::%DEFINE-TYPE-PUTDEF))
(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:FILEGETDEF) (QUOTE XCL::%DEFINE-TYPE-FILEGETDEF))
(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:FILEPKGCONTENTS) (QUOTE IL:NILL))
(IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
(IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
NIL