FILETYPE with no DFASL defaults to :FAKE-COMPILE-FILE

lispusers/CONVERT-TO-UTF8

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Feb-2026 22:45:57" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;14
 2512   
+
(FILECREATED "25-Feb-2026 01:19:38" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;15
 2573   
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS CONVERT-TO-UTF8)
 
-      :PREVIOUS-DATE "23-Feb-2026 23:58:54" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;11)
+      :PREVIOUS-DATE "24-Feb-2026 22:45:57" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;14)
 
 
 (PRETTYCOMPRINT CONVERT-TO-UTF8COMS)
@@ -15,13 +15,13 @@
 (DEFINEQ
 
 (CONVERT-TO-UTF8

-  [LAMBDA (FILENAME)
                                         (* ; "Edited 24-Feb-2026 22:45 by rmk")

+  [LAMBDA (FILENAME FILETYPE)
                                (* ; "Edited 25-Feb-2026 01:19 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 BCOMPL so that we don't get confused when a DFASL mysteriously appears.")

+    (* ;; "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)
@@ -39,14 +39,14 @@
                                                      'FILETYPE))
                          (FINDFILE (PACKFILENAME 'EXTENSION 'LCOM 'BODY FILENAME))
                          (NOT (FINDFILE (PACKFILENAME 'EXTENSION 'DFASL 'BODY FILENAME]
-               (PRINTOUT T "Changing FILETYPE back to " .P2 :BCOMPL T)
+               (CL:UNLESS FILETYPE (SETQ FILETYPE :FAKE-COMPILE-FILE))
+               (PRINTOUT T "Changing FILETYPE back to " .P2 FILETYPE T)
                (PUTPROP (ROOTFILENAME FILENAME)
-                      'FILETYPE
-                      ':BCOMPL))
+                      'FILETYPE FILETYPE))
            [SETQ FILENAME (MAKEFILE FILENAME '(NEW :UTF-8]
            (MAKEFILE1 FILENAME NIL '(F))
            FILENAME])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (406 2489 (CONVERT-TO-UTF8 416 . 2487)))))
+  (FILEMAP (NIL (406 2550 (CONVERT-TO-UTF8 416 . 2548)))))
 STOP