github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 23:47:27 +00:00
Code Issues Projects Releases Wiki Activity

Changed *DEFAULT-MAKEFILE-ENVIRONMENT* to use Interlisp rdtbl

Browse Source
This commit is contained in:
rmkaplan 2021-08-01 21:03:24 -07:00
parent 925adc1deb
commit ff134ecd23
2 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
sources/PACKAGE-STARTUP
View File

@ -1,9 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
(FILECREATED "29-Jul-2021 20:33:07" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;7| 36616
(FILECREATED " 1-Aug-2021 18:08:23" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;9| 36725
|previous| |date:| "20-Jul-2021 22:53:28"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;6|)
|changes| |to:| (FUNCTIONS PACKAGE-ENABLE)
|previous| |date:| "29-Jul-2021 20:33:07"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;8|)
; Copyright (c) 1986-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
@ -592,7 +594,8 @@
(T (PROMPTPRINT "Invalid package, reset to LISP")
(SETQ *PACKAGE* (CL:FIND-PACKAGE "LISP")))))
*PER-EXEC-VARIABLES* :TEST 'CL:EQUAL)
(CL:SETF *DEFAULT-MAKEFILE-ENVIRONMENT* '(:READTABLE "XCL" :PACKAGE "INTERLISP" :FORMAT :XCCS))
(CL:SETF *DEFAULT-MAKEFILE-ENVIRONMENT* '(:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :FORMAT
:XCCS))
(MOVD '\\NEW.READ.SYMBOL '\\READ.SYMBOL)
(MOVD '\\NEW.MKATOM '\\MKATOM)
(CL:SETF *PACKAGE* PACKAGE)
@ -642,14 +645,14 @@
)
(PUTPROPS PACKAGE-STARTUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2021))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3072 3167 (RETURN-FIRST-OF-THREE 3072 . 3167)) (3169 3307 (
ERROR-MISSING-EXTERNAL-SYMBOL 3169 . 3307)) (3912 4880 (CHECK-SYMBOL-NAMESTRING 3912 . 4880)) (4882
8043 (\\NEW.READ.SYMBOL 4882 . 8043)) (8045 9751 (\\NEW.MKATOM 8045 . 9751)) (23549 23631 (
LITATOM.EXISTS 23549 . 23631)) (24311 25277 (NAMESTRING-CONVERSION-CLAUSE 24311 . 25277)) (25279 26528
(CONVERT-LITATOM 25279 . 26528)) (26530 28599 (CONCOCT-SYMBOL 26530 . 28599)) (28601 28895 (
TRANSFER-SYMBOL 28601 . 28895)) (28897 29605 (INTERN-LITATOM 28897 . 29605)) (29607 30234 (
\\LITATOM.EATCHARS 29607 . 30234)) (30236 30513 (PACKAGE-INIT 30236 . 30513)) (30515 31092 (
PACKAGE-CLEAR 30515 . 31092)) (31094 32489 (PACKAGE-MAKE 31094 . 32489)) (32491 33812 (
PACKAGE-HIERARCHY-INIT 32491 . 33812)) (33814 35369 (PACKAGE-ENABLE 33814 . 35369)) (35371 36014 (
PACKAGE-DISABLE 35371 . 36014)) (36061 36087 (ID 36061 . 36087)))))
(FILEMAP (NIL (3123 3218 (RETURN-FIRST-OF-THREE 3123 . 3218)) (3220 3358 (
ERROR-MISSING-EXTERNAL-SYMBOL 3220 . 3358)) (3963 4931 (CHECK-SYMBOL-NAMESTRING 3963 . 4931)) (4933
8094 (\\NEW.READ.SYMBOL 4933 . 8094)) (8096 9802 (\\NEW.MKATOM 8096 . 9802)) (23600 23682 (
LITATOM.EXISTS 23600 . 23682)) (24362 25328 (NAMESTRING-CONVERSION-CLAUSE 24362 . 25328)) (25330 26579
(CONVERT-LITATOM 25330 . 26579)) (26581 28650 (CONCOCT-SYMBOL 26581 . 28650)) (28652 28946 (
TRANSFER-SYMBOL 28652 . 28946)) (28948 29656 (INTERN-LITATOM 28948 . 29656)) (29658 30285 (
\\LITATOM.EATCHARS 29658 . 30285)) (30287 30564 (PACKAGE-INIT 30287 . 30564)) (30566 31143 (
PACKAGE-CLEAR 30566 . 31143)) (31145 32540 (PACKAGE-MAKE 31145 . 32540)) (32542 33863 (
PACKAGE-HIERARCHY-INIT 32542 . 33863)) (33865 35478 (PACKAGE-ENABLE 33865 . 35478)) (35480 36123 (
PACKAGE-DISABLE 35480 . 36123)) (36170 36196 (ID 36170 . 36196)))))
STOP

BIN
sources/PACKAGE-STARTUP.LCOM
View File

Binary file not shown.