From b3b7ee67665f2f95d360a16c16a1638bfb4cf07c Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 25 Feb 2026 01:24:36 -0800
Subject: [PATCH] FILETYPE with no DFASL defaults to :FAKE-COMPILE-FILE

---
 lispusers/CONVERT-TO-UTF8       |  16 ++++++++--------
 lispusers/CONVERT-TO-UTF8.LCOM  | Bin 2004 -> 2018 bytes
 lispusers/CONVERT-TO-UTF8.TEDIT | Bin 3305 -> 3387 bytes
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lispusers/CONVERT-TO-UTF8 b/lispusers/CONVERT-TO-UTF8
index d21fdc77..97c36012 100644
--- a/lispusers/CONVERT-TO-UTF8
+++ b/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
diff --git a/lispusers/CONVERT-TO-UTF8.LCOM b/lispusers/CONVERT-TO-UTF8.LCOM
index f15064363413ba956e971061a0b894080dbb87e4..40fc00e6c00ef8575a9470e6aaa77aa477014db8 100644
GIT binary patch
delta 391
zcmZvWy-EW?6ooTmh-i}{*hGtKA!Lh%`Ptd*E(oqN3nA|Au$iD%LO>*>P@lmUNEq-5
z1Ro%sP3(LDpFpkb?VVY~G){3p&gIOx=dJzTo}YJwpIuFSMpy`hCNxfXw3tO$cm|=J
z#q;fd26KpdEdfmQxtXEkPO#2kED1y+`sM|BC@^2>64THO@q@z$E(i?;C?GJ>l}vLO
z0EKLDD)ohuR*+g0X)ZlLBiv|Uqc>jBo!M*dqOqM_zKqkS>xO+3yt;9mZo9cke>vT%
z<x!2=n40_MK`tOqhtl1mz#08hz)1{htW{MiU~vRhS!!o<E$o7VmX)doz@h*w3kIye
y{I-4e`MNp_86=rK;GdMavcG*7VOZ<4%L(){4>%2>SI9F+#yayO&!!l%`S=6d4qY7p

delta 398
zcmZus%Syvg5Y3ITq6l3SH+C~9Lb3=XliVf^C`si8O7pm;De6iTL`oO!r&ure1^z*I
zZtBh-@C($HU*S#A)`hb;XNEav9`DV!=KV#>HRIbG6D{ljV&Kw%dh>~|x`rTRZ~i>{
zPauwo-f#h_jbcK2E$7b+C!l^nUGYK;Vv8?wr6P)f`dHD2njIoi;9$Y9ELfC6U#4+C
zVOf+i1IU@GC`4RuyppLfw01JQQ)H|m+^y>E3Krh9qVZ0J%Ubf2kL&(2tZD5P586@c
zKpG8Lwb2I0?yf3uED!jo<VDT_y9h;|m%oPr`V>l5@S+ds`5-w%z|KP3Y?A|opm&<5
qJdr-Hex|(SObS;G5jH;e(FZ*?<Wd*(jGaR;Dr3_(<QQ?X_4ExdjaR||

diff --git a/lispusers/CONVERT-TO-UTF8.TEDIT b/lispusers/CONVERT-TO-UTF8.TEDIT
index ef43d85995c9b6290076e48795682a465c966123..06488f9ce20725823be3da6fd2bbefdcb353a0a4 100644
GIT binary patch
delta 174
zcmaDUxm#+3922L4f}5w0Ye;0kWLc)yjKz~Vm|YmTCi^qb@CJ#i7sI4o6*7wzk~0$X
z(o<6uO7h{tItrO-3I#>^Wtl0dDLM-IMG97Kj^3`i&i=juKm&9^rs!?vVe#N#<eMDI
u<EP3{%m4(8AcBDj2pJe=fS4cw77&9Oh&?AS<+0?>;0gwc*)r%>?E(NI;3zu)

delta 91
zcmdlj^-^+!9MfbCrdN}NnO&F_6f`DBFwame$w*aj^Yn2Ii41U6$ShVUN-aw*DoIUI
vD9Kl_a&q?f4e-&^+-%L_!NJHfxrN7%iP3oScOFab^ruM-3@m&MnpL|14Zs@c