github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-07 00:57:39 +00:00
Code Issues Projects Releases Wiki Activity

Move PSEUDOHOSTS and UNIXUTILS to Lisp.sysout

Browse Source 
Use in creating the {LPT} printer device in HARDCOPY
This commit is contained in:
rmkaplan
2025-12-28 21:21:38 -08:00
parent 9403e42acb
commit 1fc6e5115c
4 changed files with 13 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
internal/loadups/LOADUP-FULL
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "20-Sep-2025 14:18:19" {WMEDLEY}<internal>loadups>LOADUP-FULL.;34 5662
(FILECREATED "28-Dec-2025 12:06:12" {WMEDLEY}<internal>loadups>LOADUP-FULL.;35 5759
:EDIT-BY rmk
:CHANGES-TO (FNS LOADFULLFONTS)
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE " 2-Sep-2025 20:07:20" {WMEDLEY}<internal>loadups>LOADUP-FULL.;33)
:PREVIOUS-DATE "20-Sep-2025 14:18:19" {WMEDLEY}<internal>loadups>LOADUP-FULL.;34)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -47,7 +47,8 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA (DRIBBLEFILE) (* ; "Edited 1-Sep-2025 11:59 by rmk")
[LAMBDA (DRIBBLEFILE) (* ; "Edited 28-Dec-2025 12:06 by rmk")
(* ; "Edited 1-Sep-2025 11:59 by rmk")
(* ; "Edited 18-Aug-2025 12:09 by rmk")
(* ; "Edited 21-Jun-2025 23:33 by rmk")
(* ; "Edited 18-Jan-2023 16:22 by FGH")
@@ -85,7 +86,7 @@
(LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO
HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM
UNIXCHAT UNIXYCD UNIXUTILS))
UNIXCHAT UNIXYCD))
(COND
((WINDOWP *WHO-LINE*)
(CLOSEW *WHO-LINE*)))
@@ -100,5 +101,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (458 5624 (LOADFULLFONTS 468 . 2603) (LOADUP-FULL 2605 . 5374) (FIXMETA 5376 . 5622)))))
(FILEMAP (NIL (456 5721 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5471) (FIXMETA 5473 . 5719)))))
STOP

BIN
internal/loadups/LOADUP-FULL.LCOM
View File

Binary file not shown.

16
internal/loadups/LOADUP-LISP
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 5-Nov-2025 09:04:36" |{DSK}<Users>larry>il>MEDLEY>INTERNAL>loadups>LOADUP-LISP.;2| 7333
(FILECREATED "27-Dec-2025 15:02:04" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;24| 7235
:EDIT-BY "lmm"
:EDIT-BY |rmk|
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE "16-Oct-2025 16:55:27"
|{DSK}<Users>larry>il>MEDLEY>INTERNAL>loadups>LOADUP-LISP.;1|)
:PREVIOUS-DATE "16-Oct-2025 16:55:27" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;22|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -20,7 +19,7 @@
(DEFINEQ
(LOADUP-LISP
(LAMBDA (DRIBBLEFILE) (* \; "Edited 5-Nov-2025 09:01 by lmm")
(LAMBDA (DRIBBLEFILE) (* \; "Edited 27-Dec-2025 15:02 by rmk")
(* \; "Edited 16-Oct-2025 16:55 by rmk")
(* \; "Edited 18-Aug-2025 12:08 by rmk")
(* \; "Edited 15-Jun-2025 14:39 by rmk")
@@ -106,7 +105,7 @@
(LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
(LOADUP '(TIME))
(LOADUP '(BRKDWN))
(LOADUP '(LOGOW IDLER HARDCOPY ICONW FREEMENU SEDIT))
(LOADUP '(LOGOW IDLER UNIXUTILS PSEUDOHOSTS HARDCOPY ICONW FREEMENU SEDIT))
(LOADUP '(XCL-EXTRAS))
(* |;;| "CMLPACKAGE pushes onto INSPECTMACROS")
@@ -128,10 +127,7 @@
(* |;;| " Added late, LOAD late to avoid any dependencies")
(* |;;| "prevent medley from pinning CPU")
(LOADUP '(XCL-LOOP XCL-HASH-LOOP))
(LOADUP '(BACKGROUND-YIELD))
(* |;;| " networking code -- should make it optional but too many cross dependencies")
@@ -149,5 +145,5 @@
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (675 7127 (LOADUP-LISP 685 . 7125)))))
(FILEMAP (NIL (640 7029 (LOADUP-LISP 650 . 7027)))))
STOP

BIN
internal/loadups/LOADUP-LISP.LCOM
View File

Binary file not shown.