Made EXPORTS.ALL, drop system.hash

2026-01-13 15:37:38 +00:00 · 2021-01-16 23:16:20 -08:00 · 2021-01-16 23:16:20 -08:00 · 88fac61a47
commit 88fac61a47
parent 6b5817a279
6 changed files with 3 additions and 3 deletions
--- a/library/EXPORTS.ALL
+++ b/library/EXPORTS.ALL
--- a/lispusers/MEDLEY-FIX-DIRS
+++ b/lispusers/MEDLEY-FIX-DIRS
@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "16-Jan-2021 22:07:03" |{DSK}<home>larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;8| 3195   

      |changes| |to:|  (FNS MEDLEY-FIX-DIRS MAKE-WHEREIS-HASH FIX-MEDLEY-LINKS)
                       (VARS MEDLEY-FIX-DIRSCOMS)

      |previous| |date:| "16-Jan-2021 00:39:09" 
|{DSK}<home>larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;5|)


(PRETTYCOMPRINT MEDLEY-FIX-DIRSCOMS)

(RPAQQ MEDLEY-FIX-DIRSCOMS ((FNS FIX-MEDLEY-LINKS MEDLEY-FIX-DIRS)
                                (VARS MEDLEY-FIX-DIRS)
                                (FILES COMPAREDIRECTORIES WHERE-IS)
                                (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)))
(DEFINEQ

(FIX-MEDLEY-LINKS
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 21:27 by larry")
    (|ShellCommand| "scripts/fixlinks")
    (|ShellCommand| "/bin/sh /tmp/doit")))

(MEDLEY-FIX-DIRS
  (LAMBDA NIL                                         (* \; "Edited  4-Jan-2021 15:42 by larry")
    (|for| X |in| MEDLEY-FIX-DIRS |join| (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T))))))
)

(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" 
                                  "docs>Documentation Tools" "cltl2" "clos" "makesysout"))

(FILESLOAD COMPAREDIRECTORIES WHERE-IS)
(DEFINEQ

(MAKE-EXPORTS-ALL
  (LAMBDA NIL                                         (* \; "Edited 15-Jan-2021 13:57 by larry")
                                                             (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")
                                                             (* 
        "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
                                                             (* 
                      "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")
                                                             (* 
                                                           "Edited September 29, 1986 by van Melle")
    (CNDIR (MEDLEYDIR "sources"))
    (LOAD 'FILESETS)
    (RENAMEFILE (GATHEREXPORTS EXPORTFILES '{CORE}EXPORTS.ALL)
           (MEDLEYDIR "libary" "EXPORTS.ALL" T))))

(MAKE-WHEREIS-HASH
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:04 by larry")
    (LET ((FILING.ENUMERATION.DEPTH 1)
          HASHFILE)
         (DRIBBLE (MEDLEYDIR "loadups" "WHEREIS.HASH.DRIBBLE" T))
         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "loadups" "XWHEREIS.HASH" T)
                               :FILES
                               (|for| X |in| MEDLEY-FIX-DIRS |collect|
                                                                     (CONCAT (MEDLEYDIR X)
                                                                            "*.;"))
                               :NEW T))
         (RENAMEFILE HASHFILE (MEDLEYDIR "loadups" "WHEREIS.HASH" T))
         (DRIBBLE))))
)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (720 1170 (FIX-MEDLEY-LINKS 730 . 939) (MEDLEY-FIX-DIRS 941 . 1168)) (1397 3172 (
MAKE-EXPORTS-ALL 1407 . 2402) (MAKE-WHEREIS-HASH 2404 . 3170)))))
STOP
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "16-Jan-2021 23:12:42" |{DSK}<home>larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;9| 3213   

      |changes| |to:|  (FNS MAKE-EXPORTS-ALL MEDLEY-FIX-DIRS MAKE-WHEREIS-HASH FIX-MEDLEY-LINKS)
                       (VARS MEDLEY-FIX-DIRSCOMS)

      |previous| |date:| "16-Jan-2021 00:39:09" 
|{DSK}<home>larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;5|)


(PRETTYCOMPRINT MEDLEY-FIX-DIRSCOMS)

(RPAQQ MEDLEY-FIX-DIRSCOMS ((FNS FIX-MEDLEY-LINKS MEDLEY-FIX-DIRS)
                                (VARS MEDLEY-FIX-DIRS)
                                (FILES COMPAREDIRECTORIES WHERE-IS)
                                (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)))
(DEFINEQ

(FIX-MEDLEY-LINKS
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 21:27 by larry")
    (|ShellCommand| "scripts/fixlinks")
    (|ShellCommand| "/bin/sh /tmp/doit")))

(MEDLEY-FIX-DIRS
  (LAMBDA NIL                                         (* \; "Edited  4-Jan-2021 15:42 by larry")
    (|for| X |in| MEDLEY-FIX-DIRS |join| (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T))))))
)

(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" 
                                  "docs>Documentation Tools" "cltl2" "clos" "makesysout"))

(FILESLOAD COMPAREDIRECTORIES WHERE-IS)
(DEFINEQ

(MAKE-EXPORTS-ALL
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:49 by larry")
                                                             (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")
                                                             (* 
        "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
                                                             (* 
                      "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")
                                                             (* 
                                                           "Edited September 29, 1986 by van Melle")
    (CNDIR (MEDLEYDIR "sources"))
    (LOAD 'FILESETS)
    (RENAMEFILE (GATHEREXPORTS EXPORTFILES '{CORE}EXPORTS.ALL)
           (MEDLEYDIR "library" "EXPORTS.ALL" T))))

(MAKE-WHEREIS-HASH
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:04 by larry")
    (LET ((FILING.ENUMERATION.DEPTH 1)
          HASHFILE)
         (DRIBBLE (MEDLEYDIR "loadups" "WHEREIS.HASH.DRIBBLE" T))
         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "loadups" "XWHEREIS.HASH" T)
                               :FILES
                               (|for| X |in| MEDLEY-FIX-DIRS |collect|
                                                                     (CONCAT (MEDLEYDIR X)
                                                                            "*.;"))
                               :NEW T))
         (RENAMEFILE HASHFILE (MEDLEYDIR "loadups" "WHEREIS.HASH" T))
         (DRIBBLE))))
)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (737 1187 (FIX-MEDLEY-LINKS 747 . 956) (MEDLEY-FIX-DIRS 958 . 1185)) (1414 3190 (
MAKE-EXPORTS-ALL 1424 . 2420) (MAKE-WHEREIS-HASH 2422 . 3188)))))
STOP
--- a/lispusers/MEDLEY-FIX-DIRS.LCOM
+++ b/lispusers/MEDLEY-FIX-DIRS.LCOM
--- a/loadups/system.hash
+++ b/loadups/system.hash
--- a/makesysout/SYNCLISPFILES
+++ b/makesysout/SYNCLISPFILES
--- a/makesysout/SYNCLISPFILES.LCOM
+++ b/makesysout/SYNCLISPFILES.LCOM