1
0
mirror of synced 2026-03-03 02:17:57 +00:00

Revert changes in \DRAWLINE.DISPLAY and add BIGBITMAPS to loadup & exports

This commit is contained in:
Larry Masinter
2023-02-28 05:48:41 -08:00
parent 12b5e90727
commit 9ada6de6b9
5 changed files with 15 additions and 4507 deletions

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Sep-2022 20:08:31" {DSK}<home>larry>medley>sources>FILESETS.;2 6394
(FILECREATED "26-Feb-2023 11:25:24" {DSK}<home>larry>il>medley>sources>FILESETS.;2 6410
:CHANGES-TO (VARS EXPORTFILES)
:PREVIOUS-DATE "17-Oct-2021 16:06:59" {DSK}<home>larry>medley>sources>FILESETS.;1)
:PREVIOUS-DATE "11-Sep-2022 20:08:31" {DSK}<home>larry>il>medley>sources>FILESETS.;1)
(* ; "
@@ -71,7 +71,7 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
LLCHAR LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY
ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER
IMAGEIO PROC XCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS
DTDECLARE))
DTDECLARE BIGBITMAP))
(RPAQQ MAKEINITFILES (MAKEINIT MEM I-NEW))

View File

@@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "12-Aug-2022 12:29:57" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5250
(FILECREATED "27-Feb-2023 17:15:53" |{DSK}<home>larry>il>medley>sources>LOADUP-LISP.;2| 5263
:CHANGES-TO (VARS LOADUP-LISPCOMS)
:EDIT-BY "lmm"
:PREVIOUS-DATE "13-Jul-2022 14:10:00" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE "12-Aug-2022 12:29:57" |{DSK}<home>larry>il>medley>sources>LOADUP-LISP.;1|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,10 +19,9 @@
(DEFINEQ
(LOADUP-LISP
(LAMBDA NIL (* \; "Edited 13-Jul-2022 14:09 by rmk")
(LAMBDA NIL (* \; "Edited 26-Feb-2023 12:17 by lmm")
(* \; "Edited 13-Jul-2022 14:09 by rmk")
(* \; "Edited 4-Mar-2022 19:13 by larry")
(* \; "Edited 2-Mar-2022 16:31 by larry")
(* \; "Edited 28-Feb-2022 15:02 by larry")
(* \; "Edited 29-Apr-2021 22:30 by rmk:")
(SETQQ COMPILE.EXT LCOM)
(MEDLEY-INIT-VARS) (* \; "should be set earlier")
@@ -99,6 +100,10 @@
(LOADUP '(CMLSMARTARGS))
(LOADUP '(IMPLICIT-KEY-HASH CLOSURE-CACHE))
(* |;;| " not sure what this depends on, so putting it here")
(LOADUP '(BIGBITMAPS))
(* |;;| "Already enabled, but this time fixes tables that weren't defined in the init")
(PACKAGE-ENABLE)
@@ -119,5 +124,5 @@
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (631 5044 (LOADUP-LISP 641 . 5042)))))
(FILEMAP (NIL (654 5057 (LOADUP-LISP 664 . 5055)))))
STOP

Binary file not shown.