From 98aa15455e75f4a11a5a8390b80822d8a5168e09 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Thu, 25 Nov 2021 08:07:36 -0800
Subject: [PATCH] XCCS: Mark format as unstable

byte encoding of particular characters can be different at different points in the file
---
 sources/XCCS      |  30 +++++++++++++++---------------
 sources/XCCS.LCOM | Bin 3550 -> 3496 bytes
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/sources/XCCS b/sources/XCCS
index cb502115..ad3210a9 100644
--- a/sources/XCCS
+++ b/sources/XCCS
@@ -1,10 +1,10 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-
(FILECREATED "13-Aug-2021 14:08:48" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;48
 13416  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "10-Sep-2021 19:49:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;47
 13404  
 
-      changes to%:  (FNS \XCCSBACKCCODE \XCCSOUTCHAR)
+      changes to%:  (FNS \CREATE.XCCS.EXTERNALFORMAT)
 
-      previous date%: " 8-Aug-2021 12:56:55" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;45)
+      previous date%: "13-Aug-2021 14:08:48" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCCS.;46)
 
 
 (PRETTYCOMPRINT XCCSCOMS)
@@ -210,9 +210,9 @@
 (DEFINEQ
 
 (\CREATE.XCCS.EXTERNALFORMAT

-  [LAMBDA (NAME EOL)
                                    (* ; "Edited  1-Aug-2021 23:13 by rmk:")

+  [LAMBDA (NAME EOL)
                                    (* ; "Edited 10-Sep-2021 19:49 by rmk:")

 
-(* ;;; "Create the :XCCS external format.  Stream's EOL overrides the (vacuous) default here")

+(* ;;; "Create the :XCCS external format.  Stream's EOL overrides the (vacuous) default here")

 
     (CL:UNLESS NAME (SETQ NAME :XCCS))
     (CL:UNLESS EOL
@@ -222,7 +222,7 @@
            (FUNCTION \XCCSBACKCCODE)
            (FUNCTION \XCCSOUTCHAR)
            (FUNCTION \XCCSFORMATBYTESTREAM)
-           EOL])
+           EOL T])
 )
 (DEFINEQ
 
@@ -268,9 +268,9 @@
 
 (PUTPROPS \RUNCODED
 MACRO
 (OPENLAMBDA (STREAM)
 
-                                    (* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented")

-                                                             (* ; 
-
                                      "note that neq is ok since charsets are known to be SMALLP's")

+                                    (* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented")

+                                                             (* ; 
+
                                      "note that neq is ok since charsets are known to be SMALLP's")

                                     (NEQ (fetch
 CHARSET of
 STREAM)
                                          \NORUNCODE)))
 )
@@ -290,8 +290,8 @@
 (\CREATE.XCCS.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1333 1562 (ACCESS-CHARSET 1343 . 1560)) (1563 10431 (\XCCSINCCODE 1573 . 4345) (
-\XCCSPEEKCCODE 4347 . 6883) (\XCCSOUTCHAR 6885 . 9105) (\XCCSBACKCCODE 9107 . 10102) (
-\XCCSFORMATBYTESTREAM 10104 . 10429)) (10432 10988 (\CREATE.XCCS.EXTERNALFORMAT 10442 . 10986)) (10989
- 11820 (\NSIN.24BITENCODING.ERROR 10999 . 11818)))))
+  (FILEMAP (NIL (1319 1548 (ACCESS-CHARSET 1329 . 1546)) (1549 10417 (\XCCSINCCODE 1559 . 4331) (
+\XCCSPEEKCCODE 4333 . 6869) (\XCCSOUTCHAR 6871 . 9091) (\XCCSBACKCCODE 9093 . 10088) (
+\XCCSFORMATBYTESTREAM 10090 . 10415)) (10418 10976 (\CREATE.XCCS.EXTERNALFORMAT 10428 . 10974)) (10977
+ 11808 (\NSIN.24BITENCODING.ERROR 10987 . 11806)))))
 STOP
diff --git a/sources/XCCS.LCOM b/sources/XCCS.LCOM
index 7fbe63861c259becb6f6ca0f6dc9d10879ae75fe..7e051bc07ae390b7e890581199b5fe3423f19334 100644
GIT binary patch
delta 339
zcmZvW!AiqG6h)hfVhAm`5s|uhjFz^Gl+2rHlME^ZO+g4KTKASF)MDF2n<}pS1;eb}
zyOn&7AP9blMO_r}t`Fy)_v%aask_@W%|`b)3=Yo%zZV<<MbA1JWER@U0GZ@%$@6=M
zOdj&r%}1xX0GuU&OC}_83fUl;q~m%7qbZoQdl81P47OS=3Q<3cqkjb+ZT`t%wsjt-
zKN-xE!jp(prP{%U1196b7BIN#PlxdgvZN+eZtgVF+xTvj%xB+6H3^h)%byQ_B|_S+
z6fOl*-Dvw-M}=ftXUNnwnUqn$DG2awhFpD;IzcQddQV#b?IK$FAOt(AqHh(KYkQjJ
Ws%L|jM-`*A*m|ka=Ea+#uYLgnCQ}sv

delta 372
zcmZ1>eNTFVn~Z{-n}3k6V~B!WgtK$7CYOerr;n?1kgH>etIOnlj1m)bO(w@ON*P#a
zDkvEm>pGUE>lzst87df9S{Vb8nUX?MQEGC2Zb4>FYKj6^az<iadTOz%)ns)pS(nT_
z1tqsoA0Gu|oqBqDN(w27B|zm^Of)f6!s3WJWsoD3Efly6jZF;A6rk29l;o>gDQLL)
z1uMjWobTl5JXw)TSY1=0peVI0GrzPLY!Oh6l7a=o?S@8Hre;>ArW32xK*lPVYH~R`
zJG%x4>pFWl1_ir@C|J2zaA^c67$`Uz7#mnlHet%;F|||(P%r@s7@As4UdyD;WNJQH
zfL(I)dnRi}W+MyZ&AKcPnV3vWHw&<bGBTP^PUA4<=4EF90s#gMQ=`pGIha`iuNqz3