Wrap EXPORTS.ALL in MEDLEYDIR

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}<lispusers>CONVERT-TO-UTF8.;15
 2573   
+
(FILECREATED "25-Feb-2026 09:09:57" {WMEDLEY}<lispusers>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))