buildLoadup Remove spaces from input Maiko release tag

.github/workflows/buildLoadup.yml

@@ -20,18 +20,18 @@ name: Build/Push Medley Release
 on:
   workflow_dispatch:
     inputs:
+      maiko_release:
+        description: "What maiko release to use"
+        type: string
+        default: 'Latest'
       draft:
         description: "Mark this as a draft release"
-        type: choice
-        options:
-        - 'false'
-        - 'true'
+        type: boolean
+        default: false
       force:
         description: "Force build even if build already successfully completed for this commit"
-        type: choice
-        options:
-        - 'false'
-        - 'true'
+        type: boolean
+        default: false
 
   workflow_call:
     outputs:
@@ -39,16 +39,21 @@ on:
         description: "'True' if medley build completed successully"
         value: ${{ jobs.complete.outputs.build_successful }}
     inputs:
+      maiko_release:
+        description: "What maiko release to use"
+        required: false
+        type: string
+        default: 'Latest'
       draft:
         description: "Mark this as a draft release"
         required: false
-        type: string
-        default: 'false'
+        type: boolean
+        default: false
       force:
         description: "Force build even if build already successfully completed for this commit"
         required: false
-        type: string
-        default: 'false'
+        type: boolean
+        default: false
     secrets:
       OIO_SSH_KEY:
         required: true
@@ -110,7 +115,7 @@ jobs:
     needs: [sentry]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == 'true'
+      || inputs.force == true
 
     steps:
       # Checkout the actions for this repo owner
@@ -130,24 +135,21 @@ jobs:
         id: tag
         uses: ./../actions/release-tag-action
 
-      # Get Maiko release information, retrieves the name of the latest (draft)
+      # Get Maiko release information, use maiko release tag from input or Latest
       # release.  Used to download the correct Maiko release
-      # Find latest release (draft or normal)
       - name: Get maiko release information
         id: maiko
         run: |
           tag=""
-          if [ "${{ inputs.draft }}" = "true" ];
-          then
-            gh release list --repo ${{ github.repository_owner }}/maiko | grep Draft >/tmp/releases-$$
-            if [ $? -eq 0 ];
-            then
-              tag=$(head -n 1 /tmp/releases-$$ | awk '{ print $3 }')
-            fi
-          fi
-          if [ -z "${tag}" ];
+          if [ "${{ inputs.maiko_release }}" = "Latest" ];
           then
             tag=$(gh release list --repo ${{ github.repository_owner }}/maiko | grep Latest | head -n 1 | awk '{ print $3 }')
+          else
+            tag=$(echo "${{ inputs.maiko_release }}" | sed 's/[[:space:]]//g')
+            set +e
+            gh release view ${tag} --repo ${{ github.repository_owner }}/maiko
+            if [ $? -ne 0 ]; then echo "!!!!!!! Error:  Cannot find Maiko release ${tag}. Exiting."; exit 1; fi
+            set -e
           fi
           echo "maiko_tag=${tag}" >> ${GITHUB_OUTPUT}
         env:
@@ -262,7 +264,7 @@ jobs:
     needs: [sentry, loadup]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == 'true'
+      || inputs.force == true
 
     steps:
 
@@ -338,7 +340,7 @@ jobs:
     needs: [sentry, loadup]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == 'true'
+      || inputs.force == true
 #    if: false
 
     defaults:
@@ -409,7 +411,7 @@ jobs:
     needs: [sentry, loadup, linux_installer]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == 'true'
+      || inputs.force == true
 
     outputs:
       cygwin_installer: ${{ steps.compile_iss.outputs.CYGWIN_INSTALLER }}
@@ -512,7 +514,7 @@ jobs:
     needs: [sentry, loadup, linux_installer, macos_installer, cygwin_installer]
     if: |
       needs.sentry.outputs.release_not_built == 'true'
-      || inputs.force == 'true'
+      || inputs.force == true
 
     steps:
 

lispusers/CONVERT-TO-UTF8

@@ -1,52 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
-
(FILECREATED "25-Feb-2026 09:09:57" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;16
 2573   
-
-      :EDIT-BY rmk
-
-      :CHANGES-TO (FNS CONVERT-TO-UTF8)
-
-      :PREVIOUS-DATE "24-Feb-2026 22:45:57" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;14)
-
-
-(PRETTYCOMPRINT CONVERT-TO-UTF8COMS)
-
-(RPAQQ CONVERT-TO-UTF8COMS
 ((FNS CONVERT-TO-UTF8)))
-(DEFINEQ
-
-(CONVERT-TO-UTF8

-  [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.")

-
-    (* ;; "If we had a list of problematic functions (multiple definitions on multiple files, MOVD's), we could check that against the functions in FILENAME, and at least produce a warning.")

-
-    (* ;; "Compiling may be tricky:  some files have CL:COMPILE-FILE FILETYPE properties that don't correspond to the fact that they actually have only an LCOM.  This tries to revert the filetype back to FAKE-COMPILE-FILE so that we don't get confused when a DFASL mysteriously appears.")

-
-    (SETQ FILENAME (PSEUDOFILENAME FILENAME))
-    (SETQ FILENAME (OR (FINDFILE FILENAME T)
-                       (ERROR "FILE NOT FOUND" FILENAME)))
-    (if
 [EQ :UTF-8 (CL:WITH-OPEN-FILE (STREAM FILENAME :DIRECTION :INPUT)
-                          (fetch
 (READER-ENVIRONMENT REFORMAT) of
 (GET-ENVIRONMENT-AND-FILEMAP STREAM
-                                                                         T]
-        then
 (PRINTOUT T FILENAME " is already " .P2 :UTF-8 T)
-             NIL
-      else
 (LOAD? (MEDLEYDIR "loadups" 'EXPORTS.ALL))        (* ; "Maybe this should load SYSEDIT ?")

-           (LOAD FILENAME 'PROP)
-           (LOADCOMP FILENAME)
-           (SETQ FILENAME (PACKFILENAME 'VERSION NIL 'BODY FILENAME))
-           (CL:WHEN [AND (EQ 'CL:COMPILE-FILE (GETPROP (ROOTFILENAME FILENAME)
-                                                     'FILETYPE))
-                         (FINDFILE (PACKFILENAME 'EXTENSION 'LCOM 'BODY FILENAME))
-                         (NOT (FINDFILE (PACKFILENAME 'EXTENSION 'DFASL 'BODY FILENAME]
-               (CL:UNLESS FILETYPE (SETQ FILETYPE :FAKE-COMPILE-FILE))
-               (PRINTOUT T "Changing FILETYPE back to " .P2 FILETYPE T)
-               (PUTPROP (ROOTFILENAME FILENAME)
-                      'FILETYPE FILETYPE))
-           [SETQ FILENAME (MAKEFILE FILENAME '(NEW :UTF-8]
-           (MAKEFILE1 FILENAME NIL '(F))
-           FILENAME])
-)
-(DECLARE%: DONTCOPY
-  (FILEMAP (NIL (406 2550 (CONVERT-TO-UTF8 416 . 2548)))))
-STOP