still not getting sync between loadup and after loadup

2026-01-13 15:37:38 +00:00 · 2020-12-05 20:46:06 -08:00 · 2020-12-05 20:46:06 -08:00 · 88464efcd8
commit 88464efcd8
parent 56ee6a8cba
5 changed files with 3 additions and 3 deletions
--- a/greetfiles/SIMPLE-INIT
+++ b/greetfiles/SIMPLE-INIT
@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 5-Dec-2020 14:04:33" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4 1102   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: "27-Nov-2020 13:01:11" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS
       (

(* ;;; " Previous content moved into SYNCLISPFILES")

        (VARS)
        [VARS [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                                (UNIX-GETENV "HOME"]
              (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                                (,LOGINHOST/DIR "INIT"]
        (P (MEDLEY-INIT-VARS))))



(* ;;; " Previous content moved into SYNCLISPFILES")


(RPAQ LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"))))

(RPAQ USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                           (,LOGINHOST/DIR "INIT")))

(MEDLEY-INIT-VARS)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 5-Dec-2020 20:01:16" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;5 1047   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: " 5-Dec-2020 14:04:33" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS
       (

(* ;;; " Previous content moved into SYNCLISPFILES")

        [VARS [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"]
              (USERGREETFILES `((,LOGINDIR "INIT" COM)
                                (,LOGINDIR "INIT"]
        (P (MEDLEY-INIT-VARS))))



(* ;;; " Previous content moved into SYNCLISPFILES")


(RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                      (UNIX-GETENV "HOME"))))

(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
                           (,LOGINDIR "INIT")))

(MEDLEY-INIT-VARS)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP
--- a/makesysout/MAKEFULLSYSOUT
+++ b/makesysout/MAKEFULLSYSOUT
--- a/makesysout/MAKEFULLSYSOUT.LCOM
+++ b/makesysout/MAKEFULLSYSOUT.LCOM
--- a/makesysout/SYNCLISPFILES
+++ b/makesysout/SYNCLISPFILES
--- a/makesysout/SYNCLISPFILES.LCOM
+++ b/makesysout/SYNCLISPFILES.LCOM