Add function (ShellWget URL OUTFILE) that calls the shell to execute 'wget URL -O OUTFILE'. No checking is done on the URL.

library/UNIXUTILS

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Nov-2025 10:11:10" {WMEDLEY}<library>UNIXUTILS.;34
 18037  
+
(FILECREATED " 2-Nov-2025 12:18:12" {DSK}<home>frank>il>medley>library>UNIXUTILS.;2
 18685  
 
-      :EDIT-BY rmk
+      :EDIT-BY "FGH"
 
-      :CHANGES-TO (FNS SLASHIT)
+      :CHANGES-TO (VARS UNIXUTILSCOMS)
+                  (FUNCTIONS ShellWget)
 
-      :PREVIOUS-DATE "22-Oct-2025 13:05:51" {WMEDLEY}<library>UNIXUTILS.;33)
+      :PREVIOUS-DATE "22-Oct-2025 13:05:51" {DSK}<home>frank>il>medley>library>UNIXUTILS.;1)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -18,7 +19,7 @@
         (GLOBALVARS ShellBrowser ShellOpener)
         (INITVARS (ShellBrowser)
                (ShellOpener))
-        (FUNCTIONS ShellCommand ShellWhich)
+        (FUNCTIONS ShellCommand ShellWget ShellWhich)
         (ADDVARS (MEDLEY-INIT-VARS (ShellBrowser)
                         (ShellOpener)))
         (FNS ShellBrowser ShellBrowse ShellOpener ShellOpen PROCESS-COMMAND SLASHIT UNIX-FILE-NAME)
@@ -46,6 +47,20 @@
                  OUT))
    NIL)
 
+(CL:DEFUN ShellWget
 (URL OUTFILENAME)
                        (* ; "Edited  1-Nov-2025 23:42 by FGH")

+   (LET* ((WGET (ShellWhich
 "wget"))
+          (OUTNAME (OUTFILEP OUTFILENAME))
+          (UNIXNAME (LET [(UN (UNIX-FILE-NAME
 OUTNAME 'OUTPUT]
+                         (if
 (STREQUAL (SUBSTRING UN (NCHARS UN))
+                                    ".")
+                             then
 (SUBSTRING UN 1 -2)
+                           else
 UN)))
+          (CMD (CONCAT WGET " " URL " -O " UNIXNAME)))
+         (if
 (NULL WGET)
+             then
 (ERROR "ShellWget - wget not available"))
+         (ShellCommand
 CMD)
+         OUTNAME))
+
 (CL:DEFUN ShellWhich
 (Cmd)
                                   (* ; "Edited 18-Jan-2023 13:19 by FGH")

    [CL:WITH-OPEN-STREAM (S (OPENSTREAM '{NODIRCORE} 'BOTH))
           (ShellCommand
 (CONCAT "command -v " Cmd)
@@ -240,8 +255,7 @@
                                                  0))) DO
 (BLOCK) FINALLY
 (RETURN CODE])
 
 (SLASHIT

-  [LAMBDA (X LCASEDIRS NOHOST)
                               (* ; "Edited  4-Nov-2025 10:10 by rmk")


+  [LAMBDA (X LCASEDIRS NOHOST)
                               (* ; "Edited 22-Oct-2025 13:05 by rmk")


-                                                             (* ; "Edited 22-Oct-2025 13:05 by rmk")


                                                              (* ; "Edited 25-Sep-2025 09:57 by rmk")


                                                              (* ; "Edited 23-Sep-2023 15:27 by rmk")

 
@@ -260,7 +274,7 @@
                                                       (CONS (CHARCODE /)))
                                                  (/ (SETQ LASTDIRPOS I)
                                                     (CONS C))
-                                                 (SPACE (APPEND (CHARCODE (\ SPACE))))
+                                                 (SPACE (CHARCODE (\ SPACE)))
                                                  (CONS C]
          (CL:WHEN (AND LCASEDIRS LASTDIRPOS)
              (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS)))
@@ -327,7 +341,8 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17959 
+  (FILEMAP (NIL (1201 1574 (ShellCommand 1201 . 1574)) (1576 2249 (ShellWget 1576 . 2249)) (2251 2648 (
-(ShellBrowser 1982 . 3754) (ShellBrowse 3756 . 4441) (ShellOpener 4443 . 6131) (ShellOpen 6133 . 11612
+ShellWhich 2251 . 2648)) (2738 18607 (ShellBrowser 2748 . 4520) (ShellBrowse 4522 . 5207) (ShellOpener
-) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14684) (UNIX-FILE-NAME 14686 . 17957)))))
+ 5209 . 6897) (ShellOpen 6899 . 12378) (PROCESS-COMMAND 12380 . 12993) (SLASHIT 12995 . 15332) (
+UNIX-FILE-NAME 15334 . 18605)))))
 STOP

lispusers/KINETIC

@@ -1,14 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 1-Nov-2025 20:26:43" {DSK}<home>frank>il>medley>lispusers>KINETIC.;5
 2264   
+
(FILECREATED "23-Sep-2022 08:19:41" {DSK}<home>larry>medley>lispusers>KINETIC.;2
 1928   
-
-      :EDIT-BY "FGH"
 
       :CHANGES-TO (FNS KINETIC)
 
-      :PREVIOUS-DATE "23-Sep-2022 08:19:41" {DSK}<home>frank>il>medley>lispusers>KINETIC.;1)
+      :PREVIOUS-DATE " 2-Apr-86 00:14:01" {DSK}<home>larry>medley>lispusers>KINETIC.;1)
 
 
+(* ; "
+Copyright (c) 1982, 1985-1986, 2022 by Xerox Corporation.
+")
+
 (PRETTYCOMPRINT KINETICCOMS)
 
 (RPAQQ KINETICCOMS
 ((FNS KINETIC)
@@ -18,31 +20,26 @@
 (DEFINEQ
 
 (KINETIC

-  [LAMBDA (WINDOW)
                                           (* ; "Edited  1-Nov-2025 20:23 by FGH")


+  [LAMBDA (WINDOW)
                                           (* ; "Edited 22-Sep-2022 22:07 by lmm")

-                                                             (* ; "Edited 22-Sep-2022 22:07 by lmm")

                                                              (* lmm " 3-Dec-85 14:16")

+                                                             (* test example (KINETICDEMO)
+
                                                             (SETQ CHECKSHADE (EDITSHADE CHECKSHADE)))

     [OR (WINDOWP WINDOW)
         (SETQ WINDOW (OR KINETICWINDOW (SETQ KINETICWINDOW (CREATEW NIL "Kinetic Window"]
-    [OR (WINDOWPROP WINDOW 'CLOSEFN)
-        (WINDOWPROP WINDOW 'CLOSEFN (FUNCTION (LAMBDA (W)
-                                                (WINDOWPROP W 'CLOSE T]
-    [WINDOWPROP WINDOW 'CLOSEFN (FUNCTION (LAMBDA (W)
-                                            (WINDOWPROP W 'CLOSE T]
     (PROG ((WD (WINDOWPROP WINDOW 'WIDTH))
            (HT (WINDOWPROP WINDOW 'HEIGHT))
            X Y)
-          (while
 (NEQ (WINDOWPROP WINDOW 'CLOSE)
+          (do
 (SETQ X (RAND 0 WD))
-                      T) do
 (SETQ X (RAND 0 WD))
+              (SETQ Y (RAND 0 HT))
-                            (SETQ Y (RAND 0 HT))
+              (BITBLT NIL NIL NIL WINDOW (RAND 0 (IDIFFERENCE WD X))
-                            (BITBLT NIL NIL NIL WINDOW (RAND 0 (IDIFFERENCE WD X))
+                     (RAND 0 (IDIFFERENCE HT Y))
-                                   (RAND 0 (IDIFFERENCE HT Y))
+                     X Y 'TEXTURE (SELECTQ (RAND 0 5)
-                                   X Y 'TEXTURE (SELECTQ (RAND 0 5)
+                                      (0 'PAINT)
-                                                    (0 'PAINT)
+                                      'INVERT)
-                                                    'INVERT)
+                     (SELECTQ (AND CHECKSHADE (RAND 0 12))
-                                   (SELECTQ (AND CHECKSHADE (RAND 0 12))
+                         (0 CHECKSHADE)
-                                       (0 CHECKSHADE)
+                         BLACKSHADE))
-                                       BLACKSHADE))
+              (BLOCK 100])
-                            (BLOCK 100) finally
 (WINDOWPROP WINDOW 'CLOSE NIL])
 )
 
 (RPAQQ CHECKSHADE
 63903)
@@ -50,6 +47,7 @@
 (RPAQQ KINETICWINDOW
 NIL)
 
 (ADDTOVAR IDLE.FUNCTIONS
 (Kinetic 'KINETIC))
+(PUTPROPS KINETIC COPYRIGHT ("Xerox Corporation" 1982 1985 1986 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (534 2130 (KINETIC 544 . 2128)))))
+  (FILEMAP (NIL (573 1723 (KINETIC 583 . 1721)))))
 STOP

sources/AOFD

@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Apr-2025 21:46:04" {WMEDLEY}<sources>AOFD.;10
 36381  
+
(FILECREATED "17-May-2023 08:29:55" {DSK}<home>larry>il>medley>sources>AOFD.;5
 36263  
 
-      :EDIT-BY rmk
+      :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS MAKE-STRING-FORMAT)
+      :PREVIOUS-DATE "17-May-2023 08:05:56" {DSK}<home>larry>il>medley>sources>AOFD.;4)
-
-      :PREVIOUS-DATE "17-May-2023 08:29:55" {WMEDLEY}<sources>AOFD.;9)
 
 
 (PRETTYCOMPRINT AOFDCOMS)
@@ -560,10 +558,9 @@
          STREAM])
 
 (MAKE-STRING-FORMAT

-  [LAMBDA NIL
                                                (* ; "Edited 24-Apr-2025 21:45 by rmk")


+  [LAMBDA NIL
                                               (* ; "Edited  8-Aug-2021 00:10 by rmk:")

-                                                            (* ; "Edited  8-Aug-2021 00:10 by rmk:")

 
-    (* ;; "We are looking at an in-core string, we know that EOL is CR, that the characters have the internal (MCCS) encoding, and that the string is fat. ")

+    (* ;; "We are looking at an in-core string, we know that EOL is CR, that the characters have the internal (XCCS) encoding, and that the string is fat. ")

 
     (MAKE-EXTERNALFORMAT :STRING [FUNCTION (LAMBDA (STRM COUNTP)
                                              (DECLARE
 (USEDFREE *BYTECOUNTER*))
@@ -764,15 +761,15 @@
 (ADDTOVAR LAMA
 WHENCLOSE)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2372 3491 (\ADD-OPEN-STREAM 2382 . 2663) (\GENERIC-UNREGISTER-STREAM 2665 . 3489)) (
+  (FILEMAP (NIL (2363 3482 (\ADD-OPEN-STREAM 2373 . 2654) (\GENERIC-UNREGISTER-STREAM 2656 . 3480)) (
-3532 10596 (CLOSEALL 3542 . 4020) (CLOSEF 4022 . 5236) (EOFCLOSEF 5238 . 5538) (INPUT 5540 . 6310) (
+3523 10587 (CLOSEALL 3533 . 4011) (CLOSEF 4013 . 5227) (EOFCLOSEF 5229 . 5529) (INPUT 5531 . 6301) (
-OPENP 6312 . 6715) (OUTPUT 6717 . 7489) (POSITION 7491 . 8299) (RANDACCESSP 8301 . 8691) (\IOMODEP 
+OPENP 6303 . 6706) (OUTPUT 6708 . 7480) (POSITION 7482 . 8290) (RANDACCESSP 8292 . 8682) (\IOMODEP 
-8693 . 9322) (WHENCLOSE 9324 . 10594)) (10597 10719 (STREAMADDPROP 10607 . 10717)) (11677 24530 (
+8684 . 9313) (WHENCLOSE 9315 . 10585)) (10588 10710 (STREAMADDPROP 10598 . 10708)) (11668 24521 (
-\BASEBYTES.IO.INIT 11687 . 14887) (\MAKEBASEBYTESTREAM 14889 . 17817) (\MBS.OUTCHARFN 17819 . 18219) (
+\BASEBYTES.IO.INIT 11678 . 14878) (\MAKEBASEBYTESTREAM 14880 . 17808) (\MBS.OUTCHARFN 17810 . 18210) (
-\BASEBYTES.NAME.FROM.STREAM 18221 . 18680) (\BASEBYTES.BOUT 18682 . 19436) (\BASEBYTES.SETFILEPTR 
+\BASEBYTES.NAME.FROM.STREAM 18212 . 18671) (\BASEBYTES.BOUT 18673 . 19427) (\BASEBYTES.SETFILEPTR 
-19438 . 20059) (\BASEBYTES.READP 20061 . 20705) (\BASEBYTES.BIN 20707 . 21214) (\BASEBYTES.PEEKBIN 
+19429 . 20050) (\BASEBYTES.READP 20052 . 20696) (\BASEBYTES.BIN 20698 . 21205) (\BASEBYTES.PEEKBIN 
-21216 . 22046) (\BASEBYTES.TRUNCATEFN 22048 . 22556) (\BASEBYTES.OPENFN 22558 . 23352) (
+21207 . 22037) (\BASEBYTES.TRUNCATEFN 22039 . 22547) (\BASEBYTES.OPENFN 22549 . 23343) (
-\BASEBYTES.BLOCKIO 23354 . 24528)) (24653 28066 (OPENSTRINGSTREAM 24663 . 26372) (MAKE-STRING-FORMAT 
+\BASEBYTES.BLOCKIO 23345 . 24519)) (24644 27948 (OPENSTRINGSTREAM 24654 . 26363) (MAKE-STRING-FORMAT 
-26374 . 28064)) (28338 32646 (\STRINGSTREAM.INIT 28348 . 32644)) (32723 35423 (GETSTREAM 32733 . 32964
+26365 . 27946)) (28220 32528 (\STRINGSTREAM.INIT 28230 . 32526)) (32605 35305 (GETSTREAM 32615 . 32846
-) (\CLEAROFD 32966 . 33259) (\GETSTREAM 33261 . 35421)))))
+) (\CLEAROFD 32848 . 33141) (\GETSTREAM 33143 . 35303)))))
 STOP

sources/ATBL

@@ -1,13 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Apr-2025 21:52:35" {WMEDLEY}<sources>ATBL.;33
 91754  
+
(FILECREATED "26-Dec-2021 14:32:50" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;32
 91860  
 
-      :EDIT-BY rmk
+      :CHANGES-TO (FNS MAKE-READER-ENVIRONMENT)
 
-      :CHANGES-TO (FNS \ATBLSET EQUAL-READER-ENVIRONMENT)
+      :PREVIOUS-DATE "19-Dec-2021 14:09:43" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;31)
 
-      :PREVIOUS-DATE "26-Dec-2021 14:32:50" {WMEDLEY}<sources>ATBL.;32)
 
+(* ; "
+Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
+")
 
 (PRETTYCOMPRINT ATBLCOMS)
 
@@ -1730,27 +1733,26 @@
 (DEFINEQ
 
 (\ATBLSET

-  [LAMBDA NIL
                                                (* ; "Edited 24-Apr-2025 21:51 by rmk")


+  [LAMBDA NIL
                                           (* ; "Edited 28-Jun-2021 09:29 by rmk:")


-                                                            (* ; "Edited 28-Jun-2021 09:29 by rmk:")


+                                                             (* ; "Edited  3-Dec-86 18:07 by Pavel")

-                                                             (* ; "Edited  3-Dec-86 18:07 by Pavel")

     (DECLARE
 (GLOBALVARS \ORIGREADTABLE \ORIGTERMTABLE))
     (COND
        ((NULL (BOUNDP '\PRIMREADTABLE))
         (initrecord
 CHARTABLE)
 
-        (* ;; "Read tables")

+        (* ;; "Read tables")

 
-        (* ;; "RMK:  If reloading, don't smash an existing hash table")

+        (* ;; "RMK:  If reloading, don't smash an existing hash table")

 
         [OR (HARRAYP \READTABLEHASH)
             (SETQ \READTABLEHASH (HASHARRAY 20 NIL (FUNCTION STRING-EQUAL-HASHBITS)
                                         (FUNCTION STRING-EQUAL]
         (LET (TRDTBL NEW-IL-RDTBL)
-             (PROGN                                          (* ; "The ORIG read table")

+             (PROGN                                          (* ; "The ORIG read table")

                     (SETQ \ORIGREADTABLE (\ORIGREADTABLE
))
                     (READTABLEPROP
 \ORIGREADTABLE 'NAME 'ORIG))
-             (PROGN                                          (* ; 
+             (PROGN                                          (* ; 
-
                              "The old Interlisp T read table.  May not have a use for this any more")

+
                            "The old Interlisp T read table.  May not have a use for this any more")

                     (SETQ TRDTBL (COPYREADTABLE
 \ORIGREADTABLE))
                     (SETSYNTAX
 (CHARCODE "|")
                            '(MACRO READVBAR)
@@ -1765,9 +1767,9 @@
                            '(MACRO FIRST READQUOTE)
                            TRDTBL)
                     (READTABLEPROP
 TRDTBL 'NAME "OLD-INTERLISP-T")
-                    (PROGN                                   (* ; "Temporary")

+                    (PROGN                                   (* ; "Temporary")

                            (SETTOPVAL '%#CURRENTRDTBL# TRDTBL)))
-             (PROGN                                          (* ; "The old FILERDTBL")

+             (PROGN                                          (* ; "The old FILERDTBL")

                     (SETQ FILERDTBL (COPYREADTABLE
 \ORIGREADTABLE))
                     (SETSYNTAX
 (CHARCODE "|")
                            TRDTBL FILERDTBL)
@@ -1776,12 +1778,12 @@
                      (create
 READER-ENVIRONMENT
                             REREADTABLE _ FILERDTBL
                             REBASE _ 10
-                            REFORMAT _ :MCCS))               (* ; 
+                            REFORMAT _ :XCCS))               (* ; 
-
                                                             "need this to read files in the loadup")

+
                                                           "need this to read files in the loadup")

                     )
              (PROGN (SETQ NEW-IL-RDTBL (COPYREADTABLE
 TRDTBL))
-                                                             (* ; 
+                                                             (* ; 
-
                                                  "The new Interlisp read table is more common lispy")

+
                                                "The new Interlisp read table is more common lispy")

                     (READTABLEPROP
 NEW-IL-RDTBL 'MULTIPLE-ESCAPECHAR (CHARCODE "|"))
                     (READTABLEPROP
 NEW-IL-RDTBL 'HASHMACROCHAR (CHARCODE "#"))
                     (SET-DEFAULT-HASHMACRO-SETTINGS NEW-IL-RDTBL)
@@ -1789,11 +1791,11 @@
                     (READTABLEPROP
 NEW-IL-RDTBL 'USESILPACKAGE NIL)
                     (READTABLEPROP
 NEW-IL-RDTBL 'NAME "INTERLISP")
                     (for
 I from
 1 to
 26 do
 (SETSYNTAX
 I 'SEPRCHAR FILERDTBL) 
-                                                             (* ; "Make font switch chars seprs")

+                                                             (* ; "Make font switch chars seprs")

-                                           (SETSYNTAX
 I 'SEPRCHAR NEW-IL-RDTBL))
+                                                          (SETSYNTAX
 I 'SEPRCHAR NEW-IL-RDTBL))
                     (SETQ *READTABLE* NEW-IL-RDTBL))
 
-             (* ;; "Make ^Y like #. in the old T readtable and the new INTERLISP one.")

+             (* ;; "Make ^Y like #. in the old T readtable and the new INTERLISP one.")

 
              (SETSYNTAX
 (CHARCODE ^Y)
                     '[MACRO ALWAYS (LAMBDA (FILE RDTBL)
@@ -1803,7 +1805,7 @@
                     TRDTBL NEW-IL-RDTBL)
              (DEFPRINT 'READTABLEP '\READTABLEP.DEFPRINT))
 
-        (* ;; "Terminal tables")

+        (* ;; "Terminal tables")

 
         (SETQ \ORIGTERMTABLE (\ORIGTERMTABLE
))
         (SETQ \PRIMTERMTABLE (COPYTERMTABLE
 \ORIGTERMTABLE))
@@ -1866,9 +1868,7 @@
 (EQUAL-READER-ENVIRONMENT

   [LAMBDA (ENV1 ENV2)
 
-    (* ;; "Edited 24-Apr-2025 21:52 by rmk")

+    (* ;; "Edited 19-Dec-2021 14:09 by rmk: Replace constant :XCCS with *DEFAULT-EXTERNALFORMAT*")

-
-    (* ;; "Edited 19-Dec-2021 14:09 by rmk:  Use *DEFAULT-EXTERNALFORMAT*")

 
     (* ;; "Edited 19-Dec-2021 14:01 by rmk")

 
@@ -1921,23 +1921,25 @@
 
 (ADDTOVAR LAMA
 READTABLEPROP)
 )
+(PUTPROPS ATBL COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1993 2018 
+2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (17619 28771 (GETSYNTAX 17629 . 22460) (SETSYNTAX 22462 . 23535) (SYNTAXP 23537 . 26034)
+  (FILEMAP (NIL (17749 28901 (GETSYNTAX 17759 . 22590) (SETSYNTAX 22592 . 23665) (SYNTAXP 23667 . 26164)
- (\COPYSYNTAX 26036 . 26753) (\GETCHARCODE 26755 . 27043) (\SETFATSYNCODE 27045 . 28336) (
+ (\COPYSYNTAX 26166 . 26883) (\GETCHARCODE 26885 . 27173) (\SETFATSYNCODE 27175 . 28466) (
-\MAPCHARTABLE 28338 . 28769)) (28804 43770 (CONTROL 28814 . 29066) (COPYTERMTABLE 29068 . 29435) (
+\MAPCHARTABLE 28468 . 28899)) (28934 43900 (CONTROL 28944 . 29196) (COPYTERMTABLE 29198 . 29565) (
-DELETECONTROL 29437 . 32078) (GETDELETECONTROL 32080 . 33042) (ECHOCHAR 33044 . 34485) (ECHOCONTROL 
+DELETECONTROL 29567 . 32208) (GETDELETECONTROL 32210 . 33172) (ECHOCHAR 33174 . 34615) (ECHOCONTROL 
-34487 . 34944) (ECHOMODE 34946 . 35192) (GETECHOMODE 35194 . 35358) (GETCONTROL 35360 . 35526) (
+34617 . 35074) (ECHOMODE 35076 . 35322) (GETECHOMODE 35324 . 35488) (GETCONTROL 35490 . 35656) (
-GETTERMTABLE 35528 . 35595) (RAISE 35597 . 36023) (GETRAISE 36025 . 36187) (RESETTERMTABLE 36189 . 
+GETTERMTABLE 35658 . 35725) (RAISE 35727 . 36153) (GETRAISE 36155 . 36317) (RESETTERMTABLE 36319 . 
-37273) (SETTERMTABLE 37275 . 37509) (TERMTABLEP 37511 . 37672) (\GETTERMSYNTAX 37674 . 37945) (
+37403) (SETTERMTABLE 37405 . 37639) (TERMTABLEP 37641 . 37802) (\GETTERMSYNTAX 37804 . 38075) (
-\GTTERMTABLE 37947 . 38283) (\ORIGTERMTABLE 38285 . 41895) (\SETTERMSYNTAX 41897 . 42532) (
+\GTTERMTABLE 38077 . 38413) (\ORIGTERMTABLE 38415 . 42025) (\SETTERMSYNTAX 42027 . 42662) (
-\TERMCLASSTOCODE 42534 . 42963) (\TERMCODETOCLASS 42965 . 43352) (\LITCHECK 43354 . 43768)) (46281 
+\TERMCLASSTOCODE 42664 . 43093) (\TERMCODETOCLASS 43095 . 43482) (\LITCHECK 43484 . 43898)) (46411 
-70105 (COPYREADTABLE 46291 . 46489) (FIND-READTABLE 46491 . 46638) (IN-READTABLE 46640 . 46800) (
+70235 (COPYREADTABLE 46421 . 46619) (FIND-READTABLE 46621 . 46768) (IN-READTABLE 46770 . 46930) (
-ESCAPE 46802 . 47055) (GETBRK 47057 . 47195) (GETREADTABLE 47197 . 47333) (GETSEPR 47335 . 47473) (
+ESCAPE 46932 . 47185) (GETBRK 47187 . 47325) (GETREADTABLE 47327 . 47463) (GETSEPR 47465 . 47603) (
-READMACROS 47475 . 47738) (READTABLEP 47740 . 47903) (READTABLEPROP 47905 . 53063) (RESETREADTABLE 
+READMACROS 47605 . 47868) (READTABLEP 47870 . 48033) (READTABLEPROP 48035 . 53193) (RESETREADTABLE 
-53065 . 57312) (SETBRK 57314 . 58924) (SETREADTABLE 58926 . 59114) (SETSEPR 59116 . 60658) (
+53195 . 57442) (SETBRK 57444 . 59054) (SETREADTABLE 59056 . 59244) (SETSEPR 59246 . 60788) (
-\GETREADSYNTAX 60660 . 63350) (\GTREADTABLE 63352 . 63577) (\GTREADTABLE1 63579 . 63835) (
+\GETREADSYNTAX 60790 . 63480) (\GTREADTABLE 63482 . 63707) (\GTREADTABLE1 63709 . 63965) (
-\ORIGREADTABLE 63837 . 65745) (\READCLASSTOCODE 65747 . 66198) (\SETMACROSYNTAX 66200 . 67995) (
+\ORIGREADTABLE 63967 . 65875) (\READCLASSTOCODE 65877 . 66328) (\SETMACROSYNTAX 66330 . 68125) (
-\SETREADSYNTAX 67997 . 69058) (\READTABLEP.DEFPRINT 69060 . 70103)) (82937 87494 (\ATBLSET 82947 . 
+\SETREADSYNTAX 68127 . 69188) (\READTABLEP.DEFPRINT 69190 . 70233)) (83067 87520 (\ATBLSET 83077 . 
-87492)) (87941 91385 (MAKE-READER-ENVIRONMENT 87951 . 89608) (EQUAL-READER-ENVIRONMENT 89610 . 90787) 
+87518)) (87967 91384 (MAKE-READER-ENVIRONMENT 87977 . 89634) (EQUAL-READER-ENVIRONMENT 89636 . 90786) 
-(SET-READER-ENVIRONMENT 90789 . 91383)))))
+(SET-READER-ENVIRONMENT 90788 . 91382)))))
 STOP

sources/LLPACKAGE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10)
 
-
(IL:FILECREATED " 2-Nov-2025 19:49:02" IL:|{DSK}<home>matt>Interlisp>medley>sources>LLPACKAGE.;2|
 92970  
+
(IL:FILECREATED " 5-Sep-2024 17:42:20" IL:|{DSK}<home>matt>Interlisp>medley>sources>LLPACKAGE.;3|
 87515  
 
       :EDIT-BY "mth"
 
       :CHANGES-TO (IL:FNS XCL:DEFPACKAGE)
 
-      :PREVIOUS-DATE "30-Oct-2025 14:25:43" IL:|{DSK}<home>matt>Interlisp>medley>sources>LLPACKAGE.;1|
+      :PREVIOUS-DATE " 4-Sep-2024 13:17:23" IL:|{DSK}<home>matt>Interlisp>medley>sources>LLPACKAGE.;2|
 )
 
 
@@ -524,9 +524,7 @@
 (IL:DEFINEQ
 
 (XCL:DEFPACKAGE

-  (IL:NLAMBDA IL:ARGS
                                 (IL:* IL:\; "Edited  2-Nov-2025 19:48 by mth")


+  (IL:NLAMBDA IL:ARGS
                                 (IL:* IL:\; "Edited  4-Sep-2024 13:17 by mth")


-                                                      (IL:* IL:\; "Edited 30-Oct-2025 11:34 by mth")


-                                                      (IL:* IL:\; "Edited  4-Sep-2024 13:17 by mth")


                                                         (IL:* IL:\; "Edited  2-Dec-87 10:39 by raf")

     (IL:SETQ IL:ARGS (XCL:REMOVE-COMMENTS IL:ARGS))
     (LET
@@ -573,30 +571,6 @@
                                                                         IL:SYMBOL)))
                                         PACKAGE))
                         (:IMPORT (IMPORT
 VALUES PACKAGE))
-                        (:IMPORT-FROM (LET* ((PACKAGE-NAME
 (POP VALUES))
-                                             (XCL::PACKAGE-FROM (FIND-PACKAGE
 PACKAGE-NAME)))
-                                            (IMPORT
 (IL:MAPCAR VALUES
-                                                           (IL:FUNCTION (IL:LAMBDA (XCL::SN)
-                                                                          (COND
-                                                                             ((IL:LITATOM XCL::SN)
-                                                                              (SETQ XCL::SN
-                                                                                    (SYMBOL-NAME
-                                                                                     XCL::SN))))
-                                                                          (COND
-                                                                             ((IL:STRINGP XCL::SN)
-                                                                              (OR (FIND-SYMBOL
 
-                                                                                         XCL::SN 
-                                                                                    XCL::PACKAGE-FROM
-                                                                                         )
-                                                                                  (ERROR 
-                             "Symbol ~S not found in package ~S in :import-from option of defpackage"
-                                                                                         XCL::SN 
-                                                                                         PACKAGE-NAME
-                                                                                         )))
-                                                                             (T (IL:ERROR 
-                                                   "Bad object in :import-from option of defpackage "
-                                                                                       XCL::SN))))))
-                                                   PACKAGE)))
                         ((:SHADOW :SHADOWING-IMPORT) 
                               (LET ((IL:SYMBOLS-TO-SHADOW (IL:MAPCONC
                                                            VALUES
@@ -646,8 +620,7 @@
                                                 ((:PREFIX-NAME :INTERNAL-SYMBOLS :EXTERNAL-SYMBOLS 
                                                         :EXTERNAL-ONLY) 
                                                       (LIST IL:KEY (CAR VALUES)))
-                                                ((:SHADOW :EXPORT :IMPORT :IMPORT-FROM 
+                                                ((:SHADOW :EXPORT :IMPORT :SHADOWING-IMPORT) 
-                                                        :SHADOWING-IMPORT) 
                                                       (IL:SETQ IL:POST-MAKE-FORMS
                                                        (CONS (CONS IL:KEY VALUES)
                                                              IL:POST-MAKE-FORMS))
@@ -675,37 +648,6 @@
                                           PACKAGE))
                                 (:IMPORT (IMPORT
 (CDR IL:FORM)
                                                 PACKAGE))
-                                (:IMPORT-FROM (LET* ((PACKAGE-NAME
 (CADR IL:FORM))
-                                                     (XCL::PACKAGE-FROM (FIND-PACKAGE
 PACKAGE-NAME)))
-                                                    (IMPORT
 (IL:MAPCAR (CDDR IL:FORM)
-                                                                   (IL:FUNCTION (IL:LAMBDA (XCL::SN)
-                                                                                  (COND
-                                                                                     ((IL:LITATOM
-                                                                                       XCL::SN)
-                                                                                      (SETQ
-                                                                                       XCL::SN
-                                                                                       (SYMBOL-NAME
-                                                                                        XCL::SN))))
-                                                                                  (COND
-                                                                                     ((IL:STRINGP
-                                                                                       XCL::SN)
-                                                                                      (OR
-                                                                                       (FIND-SYMBOL

-                                                                                        XCL::SN 
-                                                                                    XCL::PACKAGE-FROM
-                                                                                        )
-                                                                                       (ERROR 
-                             "Symbol ~S not found in package ~S in :import-from option of defpackage"
-                                                                                              XCL::SN
-                                                                                              
-                                                                                         PACKAGE-NAME
-                                                                                              )))
-                                                                                     (T (IL:ERROR
-                                                                                         
-                                                   "Bad object in :import-from option of defpackage "
-                                                                                         XCL::SN)))))
-                                                                   )
-                                                           PACKAGE)))
                                 (:SHADOWING-IMPORT 
                                       (SHADOWING-IMPORT
 (CDR IL:FORM)
                                              PACKAGE))
@@ -1721,7 +1663,7 @@
 (IL:* IL:|;;| "Proper compiler, readtable and package environment")

 
 
-(IL:PUTPROPS IL:LLPACKAGE
 IL:FILETYPE
 :FAKE-COMPILE-FILE)
+(IL:PUTPROPS IL:LLPACKAGE
 IL:FILETYPE
 COMPILE-FILE)
 
 (IL:PUTPROPS IL:LLPACKAGE
 IL:MAKEFILE-ENVIRONMENT
 (:READTABLE "XCL" :PACKAGE "LISP"))
 (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS 
@@ -1749,23 +1691,23 @@ IL:\\PKG-FIND-FREE-PACKAGE-INDEX 17838 . 18248)) (18305 18451 (IL:SETF-SYMBOL-PA
 IL:ENTRY-HASH 20528 . 20919)) (20968 21314 (IL:COUNT-PACKAGE-HASHTABLE 20968 . 21314)) (21316 21488 (
 IL:INTERNAL-SYMBOL-COUNT 21316 . 21488)) (21490 21608 (IL:EXTERNAL-SYMBOL-COUNT 21490 . 21608)) (21610
  22766 (IL:ENTER-NEW-NICKNAMES 21610 . 22766)) (22768 23194 (IL:MAKE-PRIME-HASHTABLE-SIZE 22768 . 
-23194)) (23196 24845 (MAKE-PACKAGE 23196 . 24845)) (24846 39766 (XCL:DEFPACKAGE 24859 . 39764)) (39815
+23194)) (23196 24845 (MAKE-PACKAGE 23196 . 24845)) (24846 34317 (XCL:DEFPACKAGE 24859 . 34315)) (34366
- 40037 (FIND-PACKAGE 39815 . 40037)) (40039 43400 (USE-PACKAGE 40039 . 43400)) (43402 43882 (
+ 34588 (FIND-PACKAGE 34366 . 34588)) (34590 37951 (USE-PACKAGE 34590 . 37951)) (37953 38433 (
-IN-PACKAGE 43402 . 43882)) (43884 44158 (XCL:PKG-GOTO 43884 . 44158)) (44160 45260 (RENAME-PACKAGE 
+IN-PACKAGE 37953 . 38433)) (38435 38709 (XCL:PKG-GOTO 38435 . 38709)) (38711 39811 (RENAME-PACKAGE 
-44160 . 45260)) (45262 46713 (XCL:DELETE-PACKAGE 45262 . 46713)) (46715 49661 (EXPORT 46715 . 49661)) 
+38711 . 39811)) (39813 41264 (XCL:DELETE-PACKAGE 39813 . 41264)) (41266 44212 (EXPORT 41266 . 44212)) 
-(49663 50906 (UNEXPORT 49663 . 50906)) (50908 52552 (IMPORT 50908 . 52552)) (52554 53834 (
+(44214 45457 (UNEXPORT 44214 . 45457)) (45459 47103 (IMPORT 45459 . 47103)) (47105 48385 (
-SHADOWING-IMPORT 52554 . 53834)) (53836 54890 (SHADOW 53836 . 54890)) (54892 55547 (UNUSE-PACKAGE 
+SHADOWING-IMPORT 47105 . 48385)) (48387 49441 (SHADOW 48387 . 49441)) (49443 50098 (UNUSE-PACKAGE 
-54892 . 55547)) (55611 55917 (LIST-ALL-PACKAGES 55611 . 55917)) (55974 59657 (IL:ADD-SYMBOL 55974 . 
+49443 . 50098)) (50162 50468 (LIST-ALL-PACKAGES 50162 . 50468)) (50525 54208 (IL:ADD-SYMBOL 50525 . 
-59657)) (59659 63712 (IL:WITH-SYMBOL 59659 . 63712)) (63714 65017 (IL:INTERN* 63714 . 65017)) (65019 
+54208)) (54210 58263 (IL:WITH-SYMBOL 54210 . 58263)) (58265 59568 (IL:INTERN* 58265 . 59568)) (59570 
-70851 (IL:FIND-SYMBOL* 65019 . 70851)) (70853 72304 (INTERN 70853 . 72304)) (72306 72884 (FIND-SYMBOL 
+65402 (IL:FIND-SYMBOL* 59570 . 65402)) (65404 66855 (INTERN 65404 . 66855)) (66857 67435 (FIND-SYMBOL 
-72306 . 72884)) (72942 73838 (IL:NUKE-SYMBOL 72942 . 73838)) (73840 75954 (UNINTERN 73840 . 75954)) (
+66857 . 67435)) (67493 68389 (IL:NUKE-SYMBOL 67493 . 68389)) (68391 70505 (UNINTERN 68391 . 70505)) (
-75956 77099 (IL:MOBY-UNINTERN 75956 . 77099)) (77158 77230 (IL:\\INDEXATOMPNAME 77158 . 77230)) (77342
+70507 71650 (IL:MOBY-UNINTERN 70507 . 71650)) (71709 71781 (IL:\\INDEXATOMPNAME 71709 . 71781)) (71893
- 77489 (IL:MAKE-DO-SYMBOLS-VARS 77342 . 77489)) (77491 78946 (IL:MAKE-DO-SYMBOLS-CODE 77491 . 78946)) 
+ 72040 (IL:MAKE-DO-SYMBOLS-VARS 71893 . 72040)) (72042 73497 (IL:MAKE-DO-SYMBOLS-CODE 72042 . 73497)) 
-(78950 79728 (DO-EXTERNAL-SYMBOLS 78950 . 79728)) (79730 81076 (XCL:DO-LOCAL-SYMBOLS 79730 . 81076)) (
+(73501 74279 (DO-EXTERNAL-SYMBOLS 73501 . 74279)) (74281 75627 (XCL:DO-LOCAL-SYMBOLS 74281 . 75627)) (
-81078 82194 (XCL:DO-INTERNAL-SYMBOLS 81078 . 82194)) (82196 84494 (DO-SYMBOLS 82196 . 84494)) (84496 
+75629 76745 (XCL:DO-INTERNAL-SYMBOLS 75629 . 76745)) (76747 79045 (DO-SYMBOLS 76747 . 79045)) (79047 
-86178 (DO-ALL-SYMBOLS 84496 . 86178)) (86246 86771 (FIND-ALL-SYMBOLS 86246 . 86771)) (86773 87052 (
+80729 (DO-ALL-SYMBOLS 79047 . 80729)) (80797 81322 (FIND-ALL-SYMBOLS 80797 . 81322)) (81324 81603 (
-IL:BRIEFLY-DESCRIBE-SYMBOL 86773 . 87052)) (87054 88568 (APROPOS 87054 . 88568)) (88570 90137 (
+IL:BRIEFLY-DESCRIBE-SYMBOL 81324 . 81603)) (81605 83119 (APROPOS 81605 . 83119)) (83121 84688 (
-APROPOS-LIST 88570 . 90137)) (90241 91768 (IL:FIND-EXTERNAL-SYMBOL 90241 . 91768)) (91770 92290 (
+APROPOS-LIST 83121 . 84688)) (84792 86319 (IL:FIND-EXTERNAL-SYMBOL 84792 . 86319)) (86321 86841 (
-IL:FIND-EXACT-SYMBOL 91770 . 92290)) (92292 92372 (IL:PACKAGE-NAME-AS-SYMBOL 92292 . 92372)) (92374 
+IL:FIND-EXACT-SYMBOL 86321 . 86841)) (86843 86923 (IL:PACKAGE-NAME-AS-SYMBOL 86843 . 86923)) (86925 
-92523 (IL:\\FIND.PACKAGE.INTERNAL 92374 . 92523)))))
+87074 (IL:\\FIND.PACKAGE.INTERNAL 86925 . 87074)))))
 IL:STOP