From 70681a61a35fb33a112a0dd4c790324c35bd1749 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 25 Feb 2026 09:10:41 -0800 Subject: [PATCH] Wrap EXPORTS.ALL in MEDLEYDIR --- lispusers/CONVERT-TO-UTF8 | 6 +++--- lispusers/CONVERT-TO-UTF8.LCOM | Bin 2018 -> 2056 bytes 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lispusers/CONVERT-TO-UTF8 b/lispusers/CONVERT-TO-UTF8 index 97c36012..52342ee1 100644 --- a/lispusers/CONVERT-TO-UTF8 +++ b/lispusers/CONVERT-TO-UTF8 @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Feb-2026 01:19:38" {WMEDLEY}CONVERT-TO-UTF8.;15 2573 +(FILECREATED "25-Feb-2026 09:09:57" {WMEDLEY}CONVERT-TO-UTF8.;16 2573 :EDIT-BY rmk @@ -15,7 +15,7 @@ (DEFINEQ (CONVERT-TO-UTF8 - [LAMBDA (FILENAME FILETYPE) (* ; "Edited 25-Feb-2026 01:19 by rmk") + [LAMBDA (FILENAME FILETYPE) (* ; "Edited 25-Feb-2026 09:09 by rmk") (* ;; "This produces a new version of the source FILENAME with :UTF-8 external format.") @@ -31,7 +31,7 @@ T] then (PRINTOUT T FILENAME " is already " .P2 :UTF-8 T) NIL - else (LOAD? 'EXPORTS.ALL) (* ; "Maybe this should load SYSEDIT ?") + else (LOAD? (MEDLEYDIR "loadups" 'EXPORTS.ALL)) (* ; "Maybe this should load SYSEDIT ?") (LOAD FILENAME 'PROP) (LOADCOMP FILENAME) (SETQ FILENAME (PACKFILENAME 'VERSION NIL 'BODY FILENAME)) diff --git a/lispusers/CONVERT-TO-UTF8.LCOM b/lispusers/CONVERT-TO-UTF8.LCOM index 40fc00e6c00ef8575a9470e6aaa77aa477014db8..413a0c22265eb71073e047977b3bd1504e96e7cb 100644 GIT binary patch delta 564 zcmZ8e&2G~`5XOm0BzmBiUO0W?LUM@Y*L&_LAn9zvTRyd5l;*!2#u+$I)exm_$~xQpw}KjXo)l{k`@o)1*qcD_^w$< zZ(Ch)S-SVi%zb1w!W7c3Fa>fKOxZlf70fv?~P z_zY$yVCEZe(iSMo`R?A`d*^q*`@Zvd(ZLXdkjcfhY;ngBvbT7-SvSog=@M=($tMwJ z(0a1*qor+RZHJ7^dHarBnXmTioN*XN1C^wiLSPhsDqwB^#keX;T>uRvlv-EySRM_P zZ6H*tEXow9^uWG31?r0?L!g{NlIC$e57d)TME$|9-g=n3^);EQriGOg6vD)QxmR!4Zf|uYg<~C0fifTB zBpPKlqoB?zm5)-L14VB&V13E#E>PF|gJU3|pM@KwC`B!NuvA9jFBwoEOjOy>qQ|Xg l)?#FydE1`tGZ(sv0}KUpb9D;gxJr7`vF4gd2h45f_8X*&f#CoE