From 8f3d5c26b501a2b5281dc1af5f05314968d05146 Mon Sep 17 00:00:00 2001
From: Herb Jellinek <jellinek@newscenter.com>
Date: Mon, 13 Apr 2026 14:21:07 -0700
Subject: [PATCH 1/2] As discussed in the 4/13/2026 LispCore meeting: This is a
 new package that allows you to READ symbols in undefined packages such that
 they will print as if there had not been an error.

---
 lispusers/BROKEN-ATOMS       | 188 +++++++++++++++++++++++++++++++++++
 lispusers/BROKEN-ATOMS.DFASL | Bin 0 -> 11451 bytes
 lispusers/BROKEN-ATOMS.TEdit | Bin 0 -> 2183 bytes
 3 files changed, 188 insertions(+)
 create mode 100644 lispusers/BROKEN-ATOMS
 create mode 100644 lispusers/BROKEN-ATOMS.DFASL
 create mode 100644 lispusers/BROKEN-ATOMS.TEdit

diff --git a/lispusers/BROKEN-ATOMS b/lispusers/BROKEN-ATOMS
new file mode 100644
index 00000000..fc1779ae
--- /dev/null
+++ b/lispusers/BROKEN-ATOMS
@@ -0,0 +1,188 @@
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
+
+
(FILECREATED "13-Apr-2026 10:49:10" {PROJECTS}<BROKENATOMS>BROKEN-ATOMS.;9
 7385   
+
+      :CHANGES-TO (FUNCTIONS WITHOUT-BROKEN-ATOMS TEST-PRETTY-FILE TEST-DEEP-COMPUTATION 
+                         CURE-BROKEN-ATOM)
+                  (VARS BROKEN-ATOMSCOMS)
+
+      :PREVIOUS-DATE "18-Feb-2026 16:08:40" {PROJECTS}<BROKENATOMS>BROKEN-ATOMS.;3)
+
+
+(PRETTYCOMPRINT BROKEN-ATOMSCOMS)
+
+(RPAQQ BROKEN-ATOMSCOMS

+       (
+        (* ;; "the representation of a broken atom")

+
+        (RECORDS BROKEN-ATOM)
+        (FUNCTIONS CURE-BROKEN-ATOM)
+        
+        (* ;; "for DEFPRINT")

+
+        (FNS BROKEN-ATOM-PRINTER)
+        
+        (* ;; "special form")

+
+        (FUNCTIONS WITHOUT-BROKEN-ATOMS)
+        
+        (* ;; "setup")

+
+        (P (DEFPRINT 'BROKEN-ATOM 'BROKEN-ATOM-PRINTER))
+        
+        (* ;; "Debugging/testing")

+
+        (FUNCTIONS TEST-INTERNAL-BA TEST-EXTERNAL-BA TEST-DEEP-COMPUTATION TEST-PRETTY-FILE)))
+
+
+
+(* ;; "the representation of a broken atom")

+
+(DECLARE%: EVAL@COMPILE
+
+(DATATYPE BROKEN-ATOM
 ((PACKAGE POINTER)
+                       (NAME POINTER)
+                       (EXTERNAL FLAG)))
+)
+
+(/DECLAREDATATYPE 'BROKEN-ATOM '(POINTER POINTER FLAG)
+       '((BROKEN-ATOM 0 POINTER)
+         (BROKEN-ATOM 2 POINTER)
+         (BROKEN-ATOM 2 (FLAGBITS . 0)))
+       '4)
+
+(CL:DEFUN CURE-BROKEN-ATOM
 (CONDITION)
+   "Given an XCL:MISSING-EXTERNAL-SYMBOL condition, return a corresponding BROKEN-ATOM"
+   (COND
+      ((TYPEP CONDITION 'XCL:MISSING-PACKAGE)                (* ; "no such package ")

+       (create
 BROKEN-ATOM
+              PACKAGE _ (XCL:MISSING-PACKAGE-PACKAGE-NAME CONDITION)
+              NAME _ (XCL:MISSING-PACKAGE-SYMBOL-NAME CONDITION)
+              EXTERNAL _ (XCL:MISSING-PACKAGE-EXTERNAL CONDITION)))
+      ((TYPEP CONDITION 'XCL:MISSING-EXTERNAL-SYMBOL)        (* ; 
+
                                                            "package exists, no such external symbol")

+       (create
 BROKEN-ATOM
+              PACKAGE _ (CL:PACKAGE-NAME (XCL:MISSING-EXTERNAL-SYMBOL-PACKAGE CONDITION))
+              NAME _ (XCL:MISSING-EXTERNAL-SYMBOL-NAME CONDITION)
+              EXTERNAL _ NIL))
+      (T (HELP "Don't know how to cure" CONDITION))))
+
+
+
+(* ;; "for DEFPRINT")

+
+(DEFINEQ
+
+(BROKEN-ATOM-PRINTER

+  [LAMBDA (BROKEN-ATOM STREAM)
+    (CONS (CONCAT (fetch
 (BROKEN-ATOM PACKAGE) of
 BROKEN-ATOM)
+                 (if
 (fetch
 (BROKEN-ATOM EXTERNAL) of
 BROKEN-ATOM)
+                     then
 ":"
+                   else
 "::")
+                 (fetch
 (BROKEN-ATOM NAME) of
 BROKEN-ATOM])
+)
+
+
+
+(* ;; "special form")

+
+
+(DEFMACRO WITHOUT-BROKEN-ATOMS
 (&BODY FORMS)
+   "Handle any broken-atom errors by producing a BROKEN-ATOM that prints as if the original atom were intact"
+   `[HANDLER-BIND [[XCL:MISSING-PACKAGE #'(CL:LAMBDA (C)
+                                                 (CONDITIONS:INVOKE-RESTART 
+                                                        'CREATE-MISSING-PACKAGE-BA (CURE-BROKEN-ATOM

+                                                                                    C]
+                   (XCL:MISSING-EXTERNAL-SYMBOL #'(CL:LAMBDA (C)
+                                                         (CONDITIONS:INVOKE-RESTART 
+                                                                'CREATE-EXTERNAL-BA (CURE-BROKEN-ATOM

+                                                                                     C]
+           (CONDITIONS:RESTART-BIND [(CREATE-MISSING-PACKAGE-BA #'(CL:LAMBDA (V)
+                                                                         (RETFROM 
+                                                                                #'
+                                                                              RESOLVE-MISSING-PACKAGE
+                                                                                V)
+                                                                         V))
+                                     (CREATE-EXTERNAL-BA #'(CL:LAMBDA (V)
+                                                                  (RETFROM 
+                                                                         #'
+                                                                      RESOLVE-MISSING-EXTERNAL-SYMBOL
+                                                                         V)
+                                                                  V]
+                  (PROGN ,@FORMS])
+
+
+
+(* ;; "setup")

+
+
+(DEFPRINT 'BROKEN-ATOM 'BROKEN-ATOM-PRINTER)
+
+
+
+(* ;; "Debugging/testing")

+
+
+(CL:DEFUN TEST-INTERNAL-BA
 ()
+   [LET ((FILE NIL))
+        (CL:WITH-OPEN-STREAM (OUT (OPENSTREAM "{nodircore}" 'OUTPUT))
+               (SETQ FILE OUT)
+               (PRINTOUT OUT "BROKEN::INTERNAL-ATOM" T))
+        (CL:WITH-OPEN-STREAM (IN
 (OPENSTREAM FILE 'INPUT))
+               (WITHOUT-BROKEN-ATOMS
 (RATOM IN])
+
+(CL:DEFUN TEST-EXTERNAL-BA
 ()
+   [LET ((FILE NIL))
+        (CL:WITH-OPEN-STREAM (OUT (OPENSTREAM "{nodircore}" 'OUTPUT))
+               (SETQ FILE OUT)
+               (PRINTOUT OUT "BROKEN:EXTERNAL-ATOM" T))
+        (CL:WITH-OPEN-STREAM (IN
 (OPENSTREAM FILE 'INPUT))
+               (WITHOUT-BROKEN-ATOMS
 (RATOM IN])
+
+(CL:DEFUN TEST-DEEP-COMPUTATION
 ()
+   "Test that we can handle internal calls to READ that encounter broken atoms"
+
+   (* ;; "make sure it works when there's no error")

+
+   (LET [(RESULT (WITHOUT-BROKEN-ATOMS
 (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT X]
+        (PRINTOUT T "No error loop result: " RESULT T))
+
+   (* ;; "and when reading legit atoms")

+
+   (LET [(RESULT (WITHOUT-BROKEN-ATOMS
 (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT (CL:READ-FROM-STRING
+                                                                               (CONCAT "IL:ATOM" X]
+        (PRINTOUT T "No error read loop result: " RESULT T))
+
+   (* ;; "test XCL:MISSING-PACKAGE.")

+
+   (COND
+      ((CL:FIND-PACKAGE :BROKEN)
+       (DELETE-PACKAGE :BROKEN)))
+   (LET [(RESULT (WITHOUT-BROKEN-ATOMS
 (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT (CL:READ-FROM-STRING
+                                                                               (CONCAT "BROKEN:ATOM"
+                                                                                      X]
+        (PRINTOUT T "No such package loop result: " RESULT T))
+
+   (* ;; "test XCL:MISSING-EXTERNAL-SYMBOL")

+
+   (CL:UNWIND-PROTECT
+       (PROGN (CL:MAKE-PACKAGE :BROKEN)
+              (LET [(RESULT (WITHOUT-BROKEN-ATOMS
 (CL:LOOP :FOR X :FROM 0 :TO 9 :COLLECT
+                                                         (CL:READ-FROM-STRING (CONCAT "BROKEN:ATOM" X
+                                                                                     ]
+                   (PRINTOUT T "Not external symbol loop result: " RESULT T)))
+       [COND
+          ((CL:FIND-PACKAGE :BROKEN)
+           (DELETE-PACKAGE 'BROKEN]))
+
+(CL:DEFUN TEST-PRETTY-FILE
 (SOURCE-FILE-NAME OUTPUT-FILE-NAME OUTPUT-TYPE)
+   "Prettyprint a Lisp source file to an imagestream file"
+   (CL:WITH-OPEN-STREAM (OUTPUT-STREAM (OPENIMAGESTREAM OUTPUT-FILE-NAME OUTPUT-TYPE))
+          (WITHOUT-BROKEN-ATOMS
 (PRETTYFILEINDEX SOURCE-FILE-NAME NIL OUTPUT-STREAM T))
+          (FULLNAME OUTPUT-STREAM)))
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (1402 2314 (CURE-BROKEN-ATOM 1402 . 2314)) (2345 2698 (BROKEN-ATOM-PRINTER 2355 . 2696))
+ (2730 4575 (WITHOUT-BROKEN-ATOMS 2730 . 4575)) (4681 5009 (TEST-INTERNAL-BA 4681 . 5009)) (5011 5338 
+(TEST-EXTERNAL-BA 5011 . 5338)) (5340 7007 (TEST-DEEP-COMPUTATION 5340 . 7007)) (7009 7362 (
+TEST-PRETTY-FILE 7009 . 7362)))))
+STOP
diff --git a/lispusers/BROKEN-ATOMS.DFASL b/lispusers/BROKEN-ATOMS.DFASL
new file mode 100644
index 0000000000000000000000000000000000000000..99aa84e8b24ed50f4870b0f31dce57415bfc3ee0
GIT binary patch
literal 11451
zcmeHNeQZ<L6@Ty9aqJ`o=Yvo}J07B=Rmv+Qe3hi@@?yVWC;pnB6B6hoOk#+MV@I}A
zLMd81_Mvr8w3I^MtLP?8oiwQ%w5(boPz>6KMklSCv^A^tA+_72YMQ#KovQ7RwmawC
zXZvA7TMF)`s)+cW`*F^_=iYOE_uPBmA<jAM35cG|<Ww@1$cmZi{M2+_+?mOWxy*ES
zG$HPUa&ccI8tzv-F?Ii4z0vT15|U%#pn5l>CCc2<y{S&Mu#9FC@qA)T>{u(wQ(38V
zP3H!&V@=n(O<f&p>iT3gz$6!&1vBZf_}*2}T!iMyl!y$FEpoi~q<&Obk>TLquF_9E
zQjLu~6}vFw<^*0pqAlq22NX|Kkz<NC5cUY1{;=k5S7UO>D@VPOKNJ~^wd<O@L(FHU
zq*UVGL<)7D6hMUji014Y40&Sya7aJQKOo!;0^MGv&mU4Glnd;AVK+#$ha*Zzs0Ri|
zcrXSc9YDIg{wT~8Fbg;8hq0tKB6|kp&5EwM{Gpf<4fxdvHiY4MV{&hxvcldgt4bZO
zYmR-P=~QYz2dZ<Pveu+6sa_y*F)GeTnu7v0r7HSK*&DEho71(%brlNdu*R^Vp0>}S
zo~ylzCm=@^uN;$OBN1gK6grC;H)Lu-Pq2oFeHCQtEf%m8*)4h11192tLKjXNh)`5q
zng(l=nhpA4=-g(sa!^$p3DX2ofnc<;RDVo>I%i)%-rVbtsayvZw?XX@&5ni3^}~YE
z3Wbouq7-Kv*^$v6l7mVy<5Y%W0YY-XSPmTZ$aF;G+u=v(?$)&x`SFC9O-yAIxkNf2
z&nGi!F|$*Qi#xKJi9}kA=QEQ`YAvjBIO<igW9-FMv=|jKZqHy;kt}-Rh;KJm=~@Fi
z7MM~b3W_pLTVDuynk~&Gs#c<9w%k-=G#O_$3T#FPaI|dk$9!OS){fK?OHD43pPph}
z@DZk{)7taHTFn;*!!d<4Fl1w6iM7$2*fG6pS2De8bv}{HL#iLHp)TF9hA}XIHiuHL
zjLK43ab8*3A}aGLN<;!90E3aqnTm}gQ6&}|Azy+e;BkSqmichvh_>>>ArE)V=maPE
zG8pp{JwHa9KH0Y&lVzuR9GG4dPWxtk{uZv#f7&dupYqT8eJw(vzu3kBZTyEO9@u@x
zH}H}GP2Hxf?(HaJS&5U}jIl$jBD>iI2pl=(-;Dx%ZgRk$I%IcqMyH+Qc=9$>TXT8B
zA+MjH0!RLs{-|d6DS?Q72t0LIiH3)9`hww*gpe@?#@%2-iG)V&$^*mVpkGz}q0Lfh
z1=NvXZ#ZBKebE>hg!O5%+bpJqF1;dTjI0ONg+*3Vs4=v{*w$!la~WF&V;he{I;d-{
z-c0(|yf~50>=DP|FP{-dr?UwHrPldC32|nLC(s4PHW(5sT>)o;;SG;y(x@si$s6_z
z29*%A62Sp_mH?PHI{A8Ci*8Qdi~g4uVYlikj=Mr-aTNBDBs%RXaN_)Q78sx`3*J11
zHR)ZVWhTI6Ho}&&*0ct0HzQsYxPKm@Rr?BCJJWm!Z_O=+<6(#nH3k441Z`T4ji8i(
zTG9W9HP^~;1eX<XrqvijtS<rogMtLic364!HqhSzgh!6qmK&}0Ml0Z$uvFLhu0^^g
zbaipZpvBU}%v3x*Ce7>ZN4eX2gi~d_ub_Nw<85v92gaA?%|Y^r3R=T0w*+NRG%WRn
zqd{G3E@qX`kUts@;d*ek8)2+9fcBe13&3C+qTv2=6cEQB@}iN}l?+(5W4#ad*MJhG
zdSggv#*PRcm$1E9Dz047i~&Ia&EooDJI-i84)%JX1h)x(h+!50ZLBXE4zhMfw8b!n
za9~KO6lL6J+{gNAGW#l7N4XPYF9^qWHsk)Hz-5&JOMIpyfnXO(hJkKlOu&wUaFiY#
z<)hjHe`pB8BFUT}V;URE#tbH%26~c)<j5ub#c~@F2N?^tJz!xYKkF|089@o#;meE7
zf`M`)vRo=eXS^9ak(OGV&xWACVgRt-SR@+T>p`z(aLYc)v=1{Da@-CTPC2?6u}58L
zbhjGuMx)yShGldMYhcW1EGv7%-Vt4^L90^1mdAZyybwXg(|gTbRKi_UOk}f}Y);&<
zSDeab#->NnJL6XW6!YWpJX9vr`J5QfiOHQ%k`Oc5B<xJE6_S)aiEKiI7V*(MO;lrf
z4ou9QC&(*n%-0(|g2ULzL;L}F;Daq>G7UgKTp0Jg1A7I{BZ(wwQ06Ek;n!KfR#e-<
z!4@(>q)#gNF0$yf*j%9I_A4|8r}TkSn$s`z!Ti=?NXd|8F`32F0&cQ36tOk|Wk#Ac
z3H_)YZRJ;GjV)uMLQ5WDpsh`9YvlQI`wGg^oNC6czc)|_S;0}xeh6L|LJayBd=~|R
zQTl0W!ilyQcK0kOnBXd4IJK}HK*ysfUdaQou-Z;R{Y~v9xRI<#1G}HvZew0_!e*yw
zI}T3iZXXP70i=R(3gR3O1pEM54s}G0DM6b6AP%9qClFR4SVM2d9l2hO1pFRF>fF?M
zXAMs8i(u3BLvmnHQE?NFVcBUIVC_A@p<@0yT%af(g0S`}1j3+f1%q)K(rhzUKMB3s
zF+9S|<B)Mgl}I>B*+Y;8B!TEkh64m(Twe%VJ!shO2cfMPN(GeRBFKPyMhBEA$$oYZ
zusT%*4n47OG)rX%Cb27Y);Q(QY@_7tASEv-hOLLFbKR5_HW)J<M4fLnMjQ|T0Q-{Q
zU?Ap)UN4()GQNkvVOq!vXz^H_Q|Lj^X-mZ?cZ|isImOCl0F`*^=!eB==ZAy_<9^)u
z7c$V5is3ZRT7H$|Lf5x18o<v${C@Cc5Zy#-^pGAU=(sv1JfH-w*TGr{TG+S`aNNSG
z2%q6NT7j>D?YYq~@Q5Xu*4$6Sm|Mz{dX{X(ae(uYp1zCr()O^xlS;(X()1LafO7;$
zs0Oai1AGI5I?7deI~YWb+zZCaaT`F|9lnc>GE72-<_$2=L9=)oUE5jkpGN2Q1J<F?
zlfq?-Z}GW}0-ov|-~ey}YDBlflTZi8yL4?4i`}}qO2-fMIPP|)mcvxbX{tq?y;7+Q
zmHwV*5b+0&y8%3YUph0E%tDx$*l!zRQ*|p#aD#W<6NyEAgQ0=-#|%Go^)YV`e(Ux?
zqk6iuEl~FRO_coLle{00hQ|fwQ70;ao@!4bo)cBVl(Jc^UBjT9>Yqm|JWb>&B%dSl
zG?GsdIeQ6OQ_&f$eVoX%NFE~c1tbxhDR*uUC50mPQto`5lB-5u;<```h$YDgdpP({
zQMCfHOQ=fIGj}yON*o^uIMsp8O+p)W|7s&8uMu9hn0Q$_&Qu*Psq@#58U6ZECzzLw
zVKM=8WqfGKv(R))6U2s=n_c26|5(~n;q{MAx3pkzJU-sG^~~<Gft2g5N4_x-Sa~Ke
z@td>HyxA`_HO*3tpJaPnznLa!r?VW#DhF!GTNJG+YgR#7+E-Iihegpt&nz7v-2$W=
zX=Ez?+J{n{IG&*4ezfVRt(b&z_G6k3=XIJ6%W&C|a9n~12`4$maiNyd6L8=}@I5Zn
zn0W@q#|0K4ov^uBxvh@1Gx}XZ@r<|#IEBAc`Kw6&mB`nS{9~E?Da34Ud|i<6=0t+y
zBpi{j&3R)tCQnk+StQv8g(UwL-eY*-2oY1H(v2Wiybj_T;PnFzQtTlE3t4wK2>#_#
z&-^dT<d2Z#7vj&e)GdFo)Gg0WE!Zvh7b-<TTv-L~w<ST`cNtrfCEd_aI7&2b%fcf>
z;<hY2L?mv@!hMDflW8hBhvXEI1tcekJb>g*BF`hal}M5qBa&o>h$NYJGnt#Hgk-KG
zl4PznW>82wm5{sz#t4+~?;6`M`43fGK=KU;qa6&KG5cq%;hXU1>(mH`z&}VN4uRiC
zBo2X}pds*V)Hnp5tsf47zlYkPTKpCwaTxpnkt9<gl4O3KNRqjl$z&rZnV+Rfk|~l}
zJUdCCJnlVGi~9$u#r=(%qFUUyh{TRKok;A6dz47*i2Jf(+fTW3Gn5o^lpIJ?a()LT
zXP6deStR~KpJ9`!{M=oX6gC<&ovgiiNTtjLJX#CyvMUjuT>@P-6b=55cc7t)4d@zh
znRK__sqi#SWr(Sv{0W;0MU*>P^FA^3x=nR3#c*GSD~T~QFAzyF^gBe73%^Yy0uuK|
znS2>Z!UFEsgazCQs+?seFpDRDc4uNDObZJ59<?Eh`VNs~QOAfRi_*w+Ip#KKx?p4Y
zTVQr}fZ5sk6qCce=InOHA2DpqHO}=h9=NS#Hg<lwF#@k3>@0tQW{z)ipxoDWZFwk@
z7ZWr2L>BKLb9*OuWKv=(lbM1Shum~3-z8$hU%<K248MxkLPy~6cpa}wXv~&4exyp`
z;dZ1QPuR32SK)S~tt!HcaXdSy&9NJ=xs^0&bFD0abrRl&-j|dE7fTG|9yc#6UV-Ig
z8#CR92oz%TZgL#HQE0&X3bxdyrGOEF<T<!@4`syM^ys)a6(605?@C-|Cc^AxW+EK8
z@;WXn->A*|yb9xFZeBV9o7ZZUwu0l^T+M#KXt0mPS6bVTph?9+4a9SBw}!pcR<9Q@
zBj|zuxvnjRwWJpdaP#=sWh==)t!uUZK$q$4e7>5qi@L+f9Y=O&HTz+!$UCbyzo-dY
zMeg6#>xHc%_Yyp1msasI#QtVAXVP4;a5ejQziaI4=5JTL%f9v=V3lrwc@o|%qw|-_
zq^C?amr3^IGl!nQ!h0fFR8Azj=tYwISBcGx7v|XZUvW#0pITk<tA@{%zG}D<0GB>(
zFt)=nFU}kN`1L}63_hb_@0oiN;wXH@FwP!D;pLJA5~J}{Du<s|;HizZOr%FM(^zl)
z_$UXjlmjrtwRqAT?tv#txtC7uaMk{SZ;b<RnQSw^KC!{Os2U!O!dn-8(uU7OP{clC
zvli8xMfl+eJO;qi9KKNcgYZ3@`2mCgSMYRI`KK$N+bsv<|Es4+ZX8}jlJvG&Xl}mb
zX>y*2Niv~pxQJfAfx^h&k(}qzDlZaALG({xZsD_+KmeBl>+qRzA^TJcmk7?^$}pCH
zdQHt;>q8^W`X}J=kMx-Tnpy;unCH2VI6m;2TDXZxzT^dL-TPu=`HL^YM$0FDV6vCN
z;sC<p`UrfbmETLBc)+(Gfn;v#l8=r74go5YlMp-S@(_1T(ig+r6W|2=x8Hm3zoODE
AA^-pY

literal 0
HcmV?d00001

diff --git a/lispusers/BROKEN-ATOMS.TEdit b/lispusers/BROKEN-ATOMS.TEdit
new file mode 100644
index 0000000000000000000000000000000000000000..c53517620439ca1bdce9347b6f5f1284aba10430
GIT binary patch
literal 2183
zcmd^AQE%f!5caiKi5hWFh?kSl=!AqLwNV@Ha-k9r8)uU&S$lJ9=dK0u;Mkki)Mr<=
z1C$4T3_pW^zz^X6FuRU(ITflq;EhDFcE9=N+nL#!cqqk;`o|;`USQi(RW9Lcm1SwJ
zu5EHtrWp*5pm);i+qUzHg;TKzkB2)xuqw*eRp(HDzV)KGEWWdC`a_hhqgpk_Be;t4
zBvWwi@-vSG0rMxvbK=g(gaTUL!s&TPrBC>AaN!LFhq%a-v`&k>f-1etqf8~RyoFLl
zNt$26lVw?4tNaO6x38B)Rzb2ZHLiYA@mjkbnG;HNlSQ%GveFt>QHu1sFjDYiT3<n$
zS9O%fs)Aw#^_7C1L?MalsJ^{XT>z=-b%_CKiq2HE{8fqpnxwn7z2j`EqYE_Jh+vIK
z4#o0&71t;e)o@j02}X~0NK_S<=~AZ=Z6XGh$Hh9YRoSF3DH%0>rCO=d<Pqht&J%?(
zAm=8EucJ#0mThyw%gk$tDo9Oox1W~^GIfaoZ)%4zTl%x_1oXv%`Yr{Zar1Ldz<fL4
zICFh%+JLJ$l>z(4Y|*4C{nH*i|FWlvA>QR1h3AO(;AwvV{ilPD#ycHk5pM1~{Fi5q
z1!tm-N)j%_ECA=l0?WkdIP8EsC31s~iO2W_cw&T|1}6T~6L>}0WEz4;M{MCiz{Q+`
zq>}|F66pDy_yH6C7GeHNDnmK~F&@LhM<vdDYIZ>=*^J_xn4Li0*0k`4cylu{<PFso
zTu2yloCOHN3q*BYQJV#<<;<lBsoNeEP>!3qV16UN2&iQK*reWpv5+1K-|QV-^k;qO
z4F>Q<zbQJr+r7N=E#FglsVn+_Eq(9VKde2DMaRtHfwgCyn$_m9|G@fecmG%G_jb@C
z53K{MYaL7oPKnk02|RZ6#9;HyagLfk?KYiiqI*Af&pMn^{*s2w{qOZ3Sk_zmk4#za
zi+`^v+#c4~vOdzA1A{aG>RFa~pnc2OZ^2!QIZ9is4fT%iC)%b_bHYPh7@u8{J3fcn
zN2_jqK4_7T^<pchIgeZ97roHPhb>}S;oj&zZK;17|5uu!HFW6a<UlX(sydG2a!TZc
r;>4TY!54@a;j13H;JI#qU2VGQ4BfjU64JBlUw{7t4}N4hKmYb88a&HV

literal 0
HcmV?d00001


From 93b09dec6640557a845332b8e17aeff444a42d61 Mon Sep 17 00:00:00 2001
From: Herb Jellinek <jellinek@newscenter.com>
Date: Tue, 14 Apr 2026 12:16:13 -0700
Subject: [PATCH 2/2] My last-minute change from QUOTE to FUNCTION
 inadvertently invoked CL:FUNCTION instead, and RETFROM doesn't want a
 function object. Updated to use IL:FUNCTION.

---
 lispusers/BROKEN-ATOMS       |  25 ++++++++++++-------------
 lispusers/BROKEN-ATOMS.DFASL | Bin 11451 -> 11283 bytes
 2 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/lispusers/BROKEN-ATOMS b/lispusers/BROKEN-ATOMS
index fc1779ae..a6f211aa 100644
--- a/lispusers/BROKEN-ATOMS
+++ b/lispusers/BROKEN-ATOMS
@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "13-Apr-2026 10:49:10" {PROJECTS}<BROKENATOMS>BROKEN-ATOMS.;9
 7385   
+
(FILECREATED "14-Apr-2026 12:14:44" {PROJECTS}<BROKENATOMS>BROKEN-ATOMS.;10
 7207   
 
       :CHANGES-TO (FUNCTIONS WITHOUT-BROKEN-ATOMS TEST-PRETTY-FILE TEST-DEEP-COMPUTATION 
                          CURE-BROKEN-ATOM)
@@ -97,16 +97,15 @@
                                                          (CONDITIONS:INVOKE-RESTART 
                                                                 'CREATE-EXTERNAL-BA (CURE-BROKEN-ATOM

                                                                                      C]
-           (CONDITIONS:RESTART-BIND [(CREATE-MISSING-PACKAGE-BA #'(CL:LAMBDA (V)
-                                                                         (RETFROM 
-                                                                                #'
-                                                                              RESOLVE-MISSING-PACKAGE
-                                                                                V)
-                                                                         V))
+           (CONDITIONS:RESTART-BIND [(CREATE-MISSING-PACKAGE-BA
+                                      #'(CL:LAMBDA (V)
+                                               (RETFROM (FUNCTION RESOLVE-MISSING-PACKAGE)
+                                                      V)
+                                               V))
                                      (CREATE-EXTERNAL-BA #'(CL:LAMBDA (V)
-                                                                  (RETFROM 
-                                                                         #'
+                                                                  (RETFROM (FUNCTION 
                                                                       RESOLVE-MISSING-EXTERNAL-SYMBOL
+                                                                            )
                                                                          V)
                                                                   V]
                   (PROGN ,@FORMS])
@@ -181,8 +180,8 @@
           (WITHOUT-BROKEN-ATOMS
 (PRETTYFILEINDEX SOURCE-FILE-NAME NIL OUTPUT-STREAM T))
           (FULLNAME OUTPUT-STREAM)))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1402 2314 (CURE-BROKEN-ATOM 1402 . 2314)) (2345 2698 (BROKEN-ATOM-PRINTER 2355 . 2696))
- (2730 4575 (WITHOUT-BROKEN-ATOMS 2730 . 4575)) (4681 5009 (TEST-INTERNAL-BA 4681 . 5009)) (5011 5338 
-(TEST-EXTERNAL-BA 5011 . 5338)) (5340 7007 (TEST-DEEP-COMPUTATION 5340 . 7007)) (7009 7362 (
-TEST-PRETTY-FILE 7009 . 7362)))))
+  (FILEMAP (NIL (1403 2315 (CURE-BROKEN-ATOM 1403 . 2315)) (2346 2699 (BROKEN-ATOM-PRINTER 2356 . 2697))
+ (2731 4397 (WITHOUT-BROKEN-ATOMS 2731 . 4397)) (4503 4831 (TEST-INTERNAL-BA 4503 . 4831)) (4833 5160 
+(TEST-EXTERNAL-BA 4833 . 5160)) (5162 6829 (TEST-DEEP-COMPUTATION 5162 . 6829)) (6831 7184 (
+TEST-PRETTY-FILE 6831 . 7184)))))
 STOP
diff --git a/lispusers/BROKEN-ATOMS.DFASL b/lispusers/BROKEN-ATOMS.DFASL
index 99aa84e8b24ed50f4870b0f31dce57415bfc3ee0..05926d41fad16645c2dddb975c35d87721f654c8 100644
GIT binary patch
delta 2760
zcmd6oUrbw79LLW&m;bPpiNFK`mjN>yRNAiD%BHfWDQuxD&FChz#!xrr5R`>U#&n~h
zl9?<uFitjm6E)eNhdr<rS02Rjr{%$^Pd;jl561Z7laKl`z2|#MTOAC1QIn>>&-vZo
z`JUhT{q8*{?&H1Fu2;>bqMqT=kyHKZnSr5x_0&jz;O+j?s@ZC^pBph+OqTts*>ccq
zJ!rKSb=Z4ce+~1F_Mbl;xY(k{t9tyvkSb>A!_<^d@BXAztRr<j{4Bqj)5OfC*u$Kk
zm6FKya6!ijx5In1+s*G6c<5#RN5LDm4<ejtKJgcba7DWq;ZzF|LUg|Zm=e$Iz)67?
z`S|wDLPlp}w~C*mg>y;{oKgN=$zf(Q@#<|J8s|gX{O$)ABGci59;eIc@OB>`kuq=U
zz8tsxm@|O!q911I1kAEiQx1bx4#6b$Yhz|ml9z8cGQ;b9w#-^LuV*TLVS1A0YnP}@
z`wAiM$PFT6${vpypJ{Hd&A1(`1j<wSnkA($$@>iLSu@ii{DEPB&hwg5Z(WQLBG*ex
z758{tM;%V1rR_i)pDOL8^D`|K{84GFa<&pn%raTTdrx6_pMSaI$6%C6nK?xkJ6%b{
z#1yviGB!)D=+oDT{7m2ia6#Za@N<E8fbp}^lnK|z;KdLL67nH<Nw}{8mjzB}$|a0e
zF2E$#I)_m*0JHVJRcO9E%`dmQnj;ptnr_m6(8y@>UjB=rlK<LlkZl?+w>`P1HZ%XC
z+_Toxx|pk?R%wf}eAHo%<-tZ-ZfY!d8f8R|mBN%Ql5za@Grc8oy$nniGS2g>2H~K`
z5fSI(Rn5WpfE*kWkvG74&j_0aik7jfK+!Vxj;07R3eSqbbHIeaLExmoGr*+4mx0jq
z0-@;!E{8hxh!>@38(a{z0wLO}jR}>#@IY|8=F>g&k>(fXcRX0-!_|#Ju?U@jLo7ny
z1&YM!Al9HVFR=!dRS|2@R}d!>r!N7;I<yN2O(zhV?LcU@N==!Xu31fJ6P`j;MdGv?
zo+LNc><q5zvg8vuge-{wg)Er?;<E^8%4LjJ#$XcXVJ6>#NxlZND05yqiP3V0rr1F%
z&%-1RXk!*oGV@s|gsjFM*6gO<%uADcnUvJag(<Pz4Nru9CX=~H6sH)G;zXbfxWMhT
zF9hQ<*LYrJDqM2R-sLoU?2aybr}JsC$-9We)^7o^^^btqdKeWY@53XyL_)xXEXbrR
zNOB0yMcK@yJ~`i`DP4_nVuze$*T!TulJ%Nzhvt{3@G7sbb8ULQ`_e~8)+xPq2aNN2
zb<+cWTwVWw|3>xe2YgHYS&>7ap{*f(y8r!-(f7|fWgdE5)#GvFdVTbmN<N|P<lpbw
zv)P@qxa&yPZZdaHWrJfY$xvH5nJk%1QED2GG-Z-Z%V*ts$d~-KmT#6yI-38`*qTaa
z<3qdqiHXcKS8t^neFlWBmqhHn-BG50B@{2xKfX8huf&!o-rjF9ANS^0zy*F~&%WUL
S_vF8JO;-HR?nzvE@jn4_P$^CT

delta 2956
zcmd5;T}+!*7(VCw_=oZ17;Nigg%n)C3KYiZrn1kb;6f>Nbd%a$SRHc+;=(k5ZfOQF
znx&cGiLA%CUHFq2(c-AdSPQh=m~2<ObGOEydt+kag~oH9Q=pn^hZkx>c%Sor?|I(m
zyzlp&w`?%(n{`q9oV&`|W;M=@TWu}24s&bE;dcAs)|R4fW58uTGdwzEetvu?@XF9>
zbKlEjrvp<Dn_Jt=B7At%EH{W{YR8RFztyWUFufaUn0u(6+M{=JzSlJ#VDSPE4X~2J
z7dt~?rg5MA7YH+*PlXxf(}WP=*8#4`X9nPmgf{i~!$_e<7ov;BkI=$JJqOMR`=R8h
zX6s}Jc6exvP3`czZ%l+|Lj?m)m($_xKR&K#UJ||>x6$VeU>*0vtek*Zb#nbE(Ap80
zL<gU21xm8IQfq$Y3ql?#WKWg0cSeO=`4^%mwGw_IFZ_0>Y{1v|M8C`0eZuYV9_x2g
zb)Gi}afjzg+U5uUycs#Z67d%a+0QC0yV>1FOYK&aL!^+UxsuOqDb^W6$~Gc*W{70(
zl?~G<%PIHnU(yIsQa0m?2RyE04yV;-w;f^=<%1&fZu#x%g=(Z(&{WkwdjQMN*%uYx
z1S6W_SkzT_HcO9~C0+aL9BnPRQvDr7-jwhb;If2Y0^XAFBf!{MWp+x}HQ@L(2@-M@
zctyJB09Pfv#PthUtxdorHd>8UG5~Y`jjrOpJnmOVUC)sTE~9z50;$$FZB{YWdSsB@
zlhOZCx9?SY(8DU$wW~8r$L(x>mx?|Z-B(qk+ap>&v@dFTun{dcwN__}Xhf~`!jvsi
zaqRq_!IGFbwx-G)V_)wXfrB1LM2xxjHU(qDYH>tH&I5~%5^WYxHdMO|C>yH1#&v04
zg=bB|bASm6M*wFeJOh}N@EJgGdI7=d23(!)5fP6oQafBAZ3hHtGoO?!jqrf5l>3B-
z{>J^%{DKGTtjlBx$|Up>95M-g9Z(9VBgjFOE}4U>s>mGl6yl_C`ZS=-Lwf<i=>!C4
z7a%yB6{nIWI8B7s<0(kZ5Kc|-B-yW~-NAK1ORmEqX-ODR(vo)o@zG3k{UTOtlQ4<%
zFf(H?$>(6=O7qG|tX8|ZZUC)43X?d*Cv8B<t&c`0WIcLyUjy}Sy)>zpNl(38*s_%S
zH}^%my+{_P7?JY6pc>#ZtEhP_7*kqf^2#mgGkTp?kKyPwdYqN=ke?tDNB;m2M}Hp>
zM-QQ*<V|>Fm&i0=LKS326(l(dXIwRN<yp1g!}VT^+Ssi&8GKSzBU#IR72L1x>2>yF
zjVpazWW6(d+n5lI8~1+J39)x0GUJ4J%j_3-#&_nkn@Zia_U3H2o2Z!9lcrYeNz<W*
zA!?JFXEMH8=rC%wm@~~YcB<~lj52T5Ikqd1c5Y7~Ew~?nMV8D0hb+zM0<-qI|BvFb
z{u(gS>YJ%@>X(3#sd&+!>K8TfDN=OgAB^sU9eMH-xrhB2-M0ak+0O^sf|*D4zc#5&
XnMbwI`@f#ljjXk)AvLYXnm+y=#XdeZ