LOGOW now Medley / based on KOTOLOGOW

sources/LOADUP-LISP

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 5105   
+
(FILECREATED "28-Feb-2022 20:34:55" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 5060   
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,9 +17,9 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA NIL                                                (* \; 
-
                                                             "Edited 15-Jan-2022 15:47 by larry")

-                                                             (* \; "Edited 29-Apr-2021 22:30 by rmk:")

+  (LAMBDA NIL
                                             (* \; "Edited 28-Feb-2022 15:02 by larry")


+                                                          (* \; "Edited 15-Jan-2022 15:47 by larry")


+                                                           (* \; "Edited 29-Apr-2021 22:30 by rmk:")

     (SETQQ COMPILE.EXT LCOM)                                 (* \; "should be set earlier")

     (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
     (FOR
 X IN
 BOOTLOADEDFILES DO
 (CL:UNLESS (MEMB X SYSFILES)
@@ -82,10 +82,6 @@
 
     (LOADUP '(DLAP BYTECOMPILER COMPILE))
     (LOADUP '(HARDCOPY LOGOW IDLER ICONW FREEMENU SEDIT))    (* \; "don't want LOGOW ")

-    (COND
-       ((WINDOWP (LOGOW))
-        (CLOSEW (LOGOW))
-        (MOVD 'NILL 'LOGOW)))
     (LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
     (LOADUP '(TIME))
     (LOADUP '(BRKDWN))
@@ -115,5 +111,5 @@
 (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
+  (FILEMAP (NIL (642 4838 (LOADUP-LISP 652 . 4836)))))
 STOP