XCCS: Mark format as unstable

byte encoding of particular characters can be different at different points in the file

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