github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 15:37:38 +00:00
Code Issues Projects Releases Wiki Activity

set MAKESYSNAME to MEDLEY: (e.g., as used by LOOPS)

Browse Source
This commit is contained in:
Larry Masinter 2022-01-15 15:59:36 -08:00
parent 5445a12b7e
commit 479de87011
4 changed files with 45 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
sources/LOADUP-FULL
View File

@ -1,23 +1,26 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "29-Apr-2021 22:31:24" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;2 4691
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS LOADUP-FULLCOMS)
(FNS LOADUP-FULL)
(FILECREATED "15-Jan-2022 15:49:06" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4784
previous date%: "26-Mar-2021 10:47:11" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;1)
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE "29-Apr-2021 22:31:24" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
(RPAQQ LOADUP-FULLCOMS ((COMMANDS "cd" "pwd" "ls")
(FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
(P (FIXMETA))))
(FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
(P (FIXMETA))))
(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
(DEFCOMMAND "cd" (DIR)
(/CNDIR DIR))
(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
(DEFCOMMAND "pwd" ()
(DIRECTORYNAME T))
(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
(DEFCOMMAND "ls" (FIRST . REST)
(DODIR (CONS FIRST REST)))
(DEFINEQ
(LOADFULLFONTS
@ -47,16 +50,18 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA (DOIT) (* ; "Edited 29-Apr-2021 22:27 by rmk:")
(* ; "Edited 14-May-2018 15:01 by kaplan")
(* ; "Edited 28-Sep-2020 12:35 by rmk:")
(* ; "Edited 21-Apr-2018 07:27 by rmk:")
[LAMBDA (DOIT) (* ; "Edited 15-Jan-2022 15:48 by larry")
(* ; "Edited 29-Apr-2021 22:27 by rmk:")
(* ;
 "Edited 14-May-2018 15:01 by kaplan")
(* ; "Edited 28-Sep-2020 12:35 by rmk:")
(* ; "Edited 21-Apr-2018 07:27 by rmk:")
(* ; "Edited 23-Feb-94 15:04 by bvm")
(PROGN (SETQ MEDLEYDIR)
(CNDIR (MEDLEYDIR)))
(MEDLEY-INIT-VARS)
(SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
(SETQ MAKESYSNAME (CONCAT "Medley from Interlisp.org of " (DATE)))
(SETQ MAKESYSNAME :MEDLEY)
(DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))
(* ;; "BKSYSBUF stops page holding ")
@ -67,16 +72,16 @@
(DIRECTORYNAME T)
T T)
(SETQ DEFAULTFILETYPE 'BINARY) (* ;
 "These prevent bits from being lost due to lack of knowledge")
 "These prevent bits from being lost due to lack of knowledge")
(DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
DEFAULTFILETYPELIST)
(push DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
'(SH . TEXT)
'(TXT . TEXT)
'(TEXT . TEXT)
'(TEX . TEXT)
'(HTML . TEXT)
'(HTM . TEXT))
'(SH . TEXT)
'(TXT . TEXT)
'(TEXT . TEXT)
'(TEX . TEXT)
'(HTML . TEXT)
'(HTM . TEXT))
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
(LOADFULLFONTS)
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
@ -100,6 +105,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (685 4653 (LOADFULLFONTS 695 . 2283) (LOADUP-FULL 2285 . 4407) (FIXMETA 4409 . 4651))))
)
(FILEMAP (NIL (659 4746 (LOADFULLFONTS 669 . 2257) (LOADUP-FULL 2259 . 4500) (FIXMETA 4502 . 4744)))))
STOP

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

31
sources/LOADUP-LISP
View File

@ -1,27 +1,30 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 4983
|changes| |to:| (VARS LOADUP-LISPCOMS)
(FILECREATED "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5105
|previous| |date:| " 1-Aug-2021 13:16:06" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
(RPAQQ LOADUP-LISPCOMS ((FNS LOADUP-LISP)
(INITVARS (FILING.ENUMERATION.DEPTH 1))
(FILES MEDLEYDIR)
(GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR
SYSTEMINITVARS USERRECLST)))
(INITVARS (FILING.ENUMERATION.DEPTH 1))
(FILES MEDLEYDIR)
(GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR
SYSTEMINITVARS USERRECLST)))
(DEFINEQ
(LOADUP-LISP
(LAMBDA NIL (* \; "Edited 29-Apr-2021 22:30 by rmk:")
(LAMBDA NIL (* \;
 "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))
(DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
(FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
(PRINTOUT T X " bootloaded" T)
(SETQ SYSFILES (CONS X SYSFILES))))
(PRINTOUT T X " bootloaded" T)
(SETQ SYSFILES (CONS X SYSFILES))))
(SETQ BOOTLOADEDFILES NIL)
(IF (NOT (BOUNDP 'DIRECTORIES))
THEN (SETQ DIRECTORIES LOADUPDIRECTORIES))
@ -87,7 +90,7 @@
(LOADUP '(TIME))
(LOADUP '(BRKDWN))
(LOADUP '(XCL-EXTRAS)) (*
 "CMLPACKAGE pushes onto INSPECTMACROS")
 "CMLPACKAGE pushes onto INSPECTMACROS")
(LOADUP '(CMLPACKAGE))
(* |;;| "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
@ -101,7 +104,7 @@
(LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP
NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
(DRIBBLE)
(SETQ MAKESYSNAME ':LISP)))
(SETQ MAKESYSNAME :MEDLEY)))
)
(RPAQ? FILING.ENUMERATION.DEPTH 1)
@ -112,5 +115,5 @@
(GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (671 4761 (LOADUP-LISP 681 . 4759)))))
(FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
STOP

BIN
sources/LOADUP-LISP.LCOM
View File

Binary file not shown.