(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jul-2022 17:13:23" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>sources>XCCS.;54) "19-Jul-2022 17:04:18" brecompiled changes%: \XCCSBACKCCODE in "FULL 19-Jul-2022 ..." dated "19-Jul-2022 17:04:23") (FILECREATED "19-Jul-2022 17:13:23" {DSK}kaplan>Local>medley3.5>working-medley>sources>XCCS.;54 13309 :CHANGES-TO (FNS \XCCSBACKCCODE) :PREVIOUS-DATE "19-Jul-2022 14:56:54" {DSK}kaplan>Local>medley3.5>working-medley>sources>XCCS.;53) ACCESS-CHARSET :D8 (P 0 A0121 I 1 NEWVALUE I 0 STREAM) @É ÉH@AlHNIL (12 FDEV 5 STREAM) () \XCCSINCCODE :D8 (P 5 A0124 P 4 A0123 P 3 NUMBYTES P 2 CHAR P 1 CSET P 0 A0122 I 1 COUNTP I 0 STREAM F 6 *BYTECOUNTER*) @É ÉH@hlH@ Jlÿð²\@ Ylÿð³"@É ÉH@IlL@ ºl°B@ jð²'@ ¹@ ºl»@É ÉH@lÿlM°@ ŽIlÿð—J¹@ ºl€k[¿A“Kc¿J´IáJä(124 \NSIN.24BITENCODING.ERROR) (103 FDEV 96 STREAM 56 FDEV 49 STREAM 12 FDEV 5 STREAM) () \XCCSPEEKCCODE :D8 (P 2 CHAR P 1 CSET P 0 A0125 I 1 NOERROR I 0 STREAM) ™@É ÉH@hlH@A Jd²rlÿð²K@ ¿@ Ylÿð¯@A º@ °D@ jð²#@ ¹@A º@ ¿@ ¿@ °@ °Ilÿð²J¹@ ¿@A Z¿@ ¿J´IáJä(142 \BACKFILEPTR 134 \PEEKBIN 114 \NSIN.24BITENCODING.ERROR 106 \BACKFILEPTR 99 \BACKFILEPTR 92 \BACKFILEPTR 85 \PEEKBIN 67 \BACKFILEPTR 60 \PEEKBIN 31 \PEEKBIN) (12 FDEV 5 STREAM) () \XCCSOUTCHAR :D8 (I 1 CHARCODE I 0 STREAM) ¥Al ð²<@jÍ@Ê‡lÿð’@°@Ê‡jð³@lÿ ¿@djÏ‡¿j ¿@ @k@ÈÐÓÍ@Ê‡lÿð²@Aã @Alÿå Aã@Ê‡ð³@lÿ @dAãHIÏ‡¿I @Alÿå (162 \BOUT 152 \BOUT 132 \BOUT 114 \BOUT 104 \BOUT 62 \BOUTEOL 55 \BOUT 41 \BOUT) (88 STREAM 76 STREAM 69 STREAM 15 STREAM) () \XCCSBACKCCODE :D8 (P 2 CSET P 1 BYTE P 0 A0129 I 1 COUNTP I 0 STREAM F 3 *BYTECOUNTER*) b@ ´@ @É ÉH@hlHI´5Jlÿð²$@ ²A”mþc¿@ áIäA´mÿchA”mÿc¿JáIä(71 \PEEKBIN 56 \BACKFILEPTR 13 \PEEKBIN 5 \BACKFILEPTR) (26 FDEV 19 STREAM) () \XCCSFORMATBYTESTREAM :D8 (L (1 BYTESTREAM 0 STREAM)) A@Ê‡HIÏ‡INIL (11 STREAM 5 STREAM) () \CREATE.XCCS.EXTERNALFORMAT :D8 (I 1 EOL I 0 NAME) 9@§gb¿A§gb¿@gggggAih (54 MAKE-EXTERNALFORMAT) (45 \XCCSFORMATBYTESTREAM 40 \XCCSOUTCHAR 35 \XCCSBACKCCODE 30 \XCCSPEEKCCODE 25 \XCCSINCCODE 16 LF 6 :XCCS) () \NSIN.24BITENCODING.ERROR :D8 (I 0 STREAM F 0 *SIGNAL-24BIT-NSENCODING-ERROR*) Pšo@ j(12 ERROR) NIL ( 6 "24-bit NS encoding not supported") (PRETTYCOMPRINT XCCSCOMS) (RPAQQ XCCSCOMS ((FNS ACCESS-CHARSET) (FNS \XCCSINCCODE \XCCSPEEKCCODE \XCCSOUTCHAR \XCCSBACKCCODE \XCCSFORMATBYTESTREAM) (FNS \CREATE.XCCS.EXTERNALFORMAT) (FNS \NSIN.24BITENCODING.ERROR) (INITVARS ( *SIGNAL-24BIT-NSENCODING-ERROR*)) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE 255) (NSCHARSETSHIFT 255)) (MACROS \RUNCODED) (OPTIMIZERS ACCESS-CHARSET))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.XCCS.EXTERNALFORMAT))))) (RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR*) (\CREATE.XCCS.EXTERNALFORMAT) NIL