Merge branch 'add-bigbitmaps'

sources/FILESETS

@@ -1,14 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-May-2023 08:11:56" {DSK}<home>larry>il>medley>sources>FILESETS.;24
 6239   
-
+
(FILECREATED "23-May-2023 08:11:56" {DSK}<home>larry>il>medley>sources>FILESETS.;24

       :EDIT-BY "lmm"
 
-      :CHANGES-TO (VARS 2LISPSET)
-
       :PREVIOUS-DATE " 1-Mar-2023 07:49:03" {DSK}<home>larry>il>medley>sources>FILESETS.;23)
 
-
 (PRETTYCOMPRINT FILESETSCOMS)
 
 (RPAQQ FILESETSCOMS

@@ -69,7 +65,7 @@
               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 BIGBITMAPS))
 
 (RPAQQ MAKEINITFILES
 (MAKEINIT MEM I-NEW))
 

sources/LOADUP-LISP

@@ -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