(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "31-Jul-2023 13:33:10" ("compiled on " {WMEDLEY}HPRINT.;5) "30-Jul-2023 17:45:41" "COMPILE-FILEd" in "FULL 30-Jul-2023 ..." dated "30-Jul-2023 17:45:48") (FILECREATED "31-Jul-2023 13:33:10" {WMEDLEY}HPRINT.;5 57926 :EDIT-BY rmk :CHANGES-TO (FNS EQUALALL) :PREVIOUS-DATE " 3-Aug-2022 21:31:57" {WMEDLEY}HPRINT.;2) (RPAQQ HPRINTCOMS ((FNS MAKEHVPRETTYCOMS READVARS HPRINT0) (FUNCTIONS READVARS-FROM-STRINGS READVARS-FROM-STREAM) (FNS READVAR-FROM-STRING READVARS-FROM-STRING HPRINT-TO-STRING HPRINT-TO-STRINGS ) (FILEPKGCOMS HORRIBLEVARS UGLYVARS) (FNS HPRINT HPRINT1 HPRINTEND RPTPRINT RPTEND RPTPUT HPRINTSP HPERR HVFWDCDREAD HVBAKREAD HVREADCHECKGETFN HVREADEND HVRPTREAD HVFWDREAD HREAD HPINITRDTBL HVREADERR HPRINSP) (FNS COPYALL \COPYDATATYPE HCOPYALL HCOPYALL1) (FNS EQUALALL EQUALHASH) (BLOCKS (COPYALL COPYALL (NOLINKFNS . T) (GLOBALVARS SYSHASHARRAY)) (EQUALALL EQUALALL EQUALHASH (RETFNS EQUALHASH) ( NOLINKFNS . T) (GLOBALVARS SYSHASHARRAY)) (NIL HCOPYALL (LOCALVARS . T)) (HCOPYALL1 HCOPYALL1 ( NOLINKFNS . T) (GLOBALVARS SYSHASHARRAY)) (HPRINTBLOCK HPRINT RPTPRINT RPTPUT RPTEND HPRINTEND HPRINT1 HPRINSP HPRINTSP HPERR (LOCALFREEVARS DATATYPESEEN BACKREFS CELLCOUNT RPTLAST RPTCNT U) (NOLINKFNS . T) (GLOBALVARS SYSHASHARRAY FCHARAR) (ENTRIES HPRINT HPRINT1)) (NIL MAKEHVPRETTYCOMS READVAR-FROM-STRING READVARS-FROM-STREAM HPRINT-TO-STRING READVARS HPINITRDTBL HVFWDCDREAD HVBAKREAD HVRPTREAD HVFWDREAD HREAD HPRINT0 HVREADERR (NOLINKFNS . T) (LOCALVARS . T) (SPECVARS BACKREFS BACKREFCNT DATATYPESEEN RPTCNT RPTVAL) (GLOBALVARS FILERDTBL))) (GLOBALVARS HPRINTHASHARRAY HPRINTRDTBL HPBAKCHAR HPFORWRDCDRCHR HPFORWRDCHR HPFILLCHAR HPFINALCHAR HPFILLSTRING HPRPTSTRING CIRCLMARKER DONTCOPYDATATYPES ORIGTERMSYNTAX ORIGECHOCONTROL ORIGDELETECONTROL HPRINTMACROS) ( DECLARE%: EVAL@COMPILE DONTCOPY (VARS HPFORWRDCHR HPFORWRDCDRCHR HPBAKCHAR HPFILLCHAR HPFINALCHAR ( HPFILLSTRING (PACKC (LIST HPBAKCHAR HPFILLCHAR)))) (PROP MACRO HPRINTSTRING HPRINTENDSTR)) (INITVARS ( HPRINTMACROS) (HPRINTHASHARRAY) (HPRINTRDTBL) (HPRPTSTRING "") (DONTCOPYDATATYPES)) (VARS ORIGDELETECONTROL ORIGTERMSYNTAX ORIGECHOCONTROL) (ADDVARS (HPRINTREADFNS READBITMAP)) (ADDVARS ( GAINSPACEFORMS ((OR HPRINTHASHARRAY HPRINTRDTBL) "discard HPRINT initialization" (PROGN (CLRHASH HPRINTHASHARRAY) (SETQ HPRINTHASHARRAY (SETQ HPRINTRDTBL)))))) (PROP FILETYPE HPRINT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA HPRINT0 READVARS) (NLAML MAKEHVPRETTYCOMS) (LAMA))))) MAKEHVPRETTYCOMS :D8 (P 4 SI::%%$$MAP-RESULT P 3 SI::%%$$MAP-RESULT-TAIL P 2 SI::%%$$MAP-ELEMENT P 1 SI::%%$$MAP-FIRST-SUBLIST P 0 X I 1 NO-CIRCLE-FLAG I 0 VARS) h@dHd3@Hoi ggg@h@1ILA hh LKJ&Jh[IY(84 GETTOPVAL 70 HPRINT-TO-STRINGS 30 ERROR 4 HPINITRDTBL) (51 QUOTE 46 READVARS-FROM-STRINGS 41 P) ( 24 "not a symbol in HORRIBLEVARS") READVARS :D8 (P 4 VAR P 2 DATATYPESEEN P 1 BACKREFS P 0 BACKREFCNT I 0 VARS) dj!h` g@Kh` gh\d3@Lh` i K[(92 SAVESET 86 READ 64 HVREADERR 52 RATOM 31 HVREADERR 19 RATOM 4 HPINITRDTBL) (81 HPRINTRDTBL 57 %) 47 HPRINTRDTBL 24 %( 14 HPRINTRDTBL) () HPRINT0 :D8 (P 3 X I 0 VARS) E@@dj,)d[d3@Koi K IHhZH&Jh@j (66 HPRINT 38 GETTOPVAL 31 ERROR) NIL ( 25 "not a var, in HORRIBLEVARS") READVARS-FROM-STRINGSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SYMBOLS F 1 STREAM F 2 A0220) PQ hc$(11 \MVLIST 6 READVARS-FROM-STREAM) NIL () READVARS-FROM-STRINGSA0002 :D8 (F 0 STREAM F 1 A0220) PgQ (11 CL:CLOSE) (5 :ABORT) () READVARS-FROM-STRINGS :D8 (L (0 -args-) P 9 A0220 P 8 STREAM P 1 SYMBOLS) r ekaHl2LKEMZJog i g OgO $La_NOh^Lk\O&(81 CL:CLOSE 67 \MVLIST 62 READVARS-FROM-STRINGSA0001 48 MAKE-CONCATENATED-STRING-INPUT-STREAM 41 ASSERT-FAIL) (74 :ABORT 57 READVARS-FROM-STRINGSA0002 36 READVARS-FROM-STRINGS) ( 31 "~S must be given at least one string.") READVARS-FROM-STREAM :D8 (L (1 STREAM 0 SYMBOLS) P 2 DATATYPESEEN P 1 BACKREFS P 0 BACKREFCNT) 1jA@A` LKhLKi LK(39 SAVESET 21 READ 4 HPINITRDTBL) (16 HPRINTRDTBL) () READVAR-FROM-STRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 DATATYPESEEN P 1 BACKREFS P 0 BACKREFCNT I 0 SI::*CLEANUP-FORMS* F 3 SYMBOL F 4 STREAM F 5 A0222) ,j!ST` i h hc $(34 \MVLIST 27 SAVESET 21 READ 4 HPINITRDTBL) (16 HPRINTRDTBL) () READVAR-FROM-STRINGA0002 :D8 (F 0 STREAM F 1 A0222) PgQ (11 CL:CLOSE) (5 :ABORT) () READVAR-FROM-STRING :D8 (P 1 A0222 P 0 STREAM I 1 HPRINT-STRING I 0 SYMBOL) -Ajh ig HgI $(38 CL:CLOSE 26 \MVLIST 21 READVAR-FROM-STRINGA0001 7 CL:MAKE-STRING-INPUT-STREAM) (32 :ABORT 16 READVAR-FROM-STRINGA0002) () READVARS-FROM-STRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SYMBOLS F 1 STREAM F 2 A0224) PQ hc$(11 \MVLIST 6 READVARS-FROM-STREAM) NIL () READVARS-FROM-STRINGA0002 :D8 (F 0 STREAM F 1 A0224) PgQ (11 CL:CLOSE) (5 :ABORT) () READVARS-FROM-STRING :D8 (P 1 A0224 P 0 STREAM I 1 HPRINT-STRING I 0 SYMBOLS) -Ajh ig HgI $(38 CL:CLOSE 26 \MVLIST 21 READVARS-FROM-STRINGA0001 7 CL:MAKE-STRING-INPUT-STREAM) (32 :ABORT 16 READVARS-FROM-STRINGA0002) () HPRINT-TO-STRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 S F 1 VALUE F 2 NO-CIRCLE-FLAG F 3 A0225) QPR P hc$(19 \MVLIST 14 CL:GET-OUTPUT-STREAM-STRING 7 HPRINT) NIL () HPRINT-TO-STRINGA0002 :D8 (F 0 S F 1 A0225) PgQ (11 CL:CLOSE) (5 :ABORT) () HPRINT-TO-STRING :D8 (P 1 A0225 P 0 S I 1 NO-CIRCLE-FLAG I 0 VALUE) *ig HgI $(35 CL:CLOSE 23 \MVLIST 18 HPRINT-TO-STRINGA0001 4 MAKE-FILL-POINTER-OUTPUT-STREAM) (29 :ABORT 13 HPRINT-TO-STRINGA0002) () HPRINT-TO-STRINGSA0001A0002 :D8 (L (0 C) F 1 SI::$WITH-COLLECTION-TAIL$ F 2 S F 3 SI::$WITH-COLLECTION-RESULT$) ?@R3g 'R SQH&cHhccg (60 CONDITIONS:INVOKE-RESTART 29 CL:GET-OUTPUT-STREAM-STRING 21 CONDITIONS:FIND-RESTART) (55 SI::RETRY-OUTCHAR 16 SI::RETRY-OUTCHAR 5 END-OF-FILE) () HPRINT-TO-STRINGSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 *CONDITION-HANDLER-BINDINGS* I 0 SI::*CLEANUP-FORMS* F 1 S F 2 *CONDITION-HANDLER-BINDINGS* F 3 VALUE F 4 A0227 F 5 NO-CIRCLE-FLAG) -ggRSQU Q hc$(35 \MVLIST 30 CL:GET-OUTPUT-STREAM-STRING 23 HPRINT) (9 HPRINT-TO-STRINGSA0001A0002 4 END-OF-FILE) () HPRINT-TO-STRINGSA0003 :D8 (F 0 S F 1 A0227) PgQ (11 CL:CLOSE) (5 :ABORT) () HPRINT-TO-STRINGS :D8 (P 4 A0227 P 3 S P 1 SI::$WITH-COLLECTION-TAIL$ P 0 SI::$WITH-COLLECTION-RESULT$ I 1 NO-CIRCLE-FLAG I 0 VALUE) :0ig KgL $HIJ&JhXH(38 CL:CLOSE 26 \MVLIST 21 HPRINT-TO-STRINGSA0001 7 MAKE-FILL-POINTER-OUTPUT-STREAM) (32 :ABORT 16 HPRINT-TO-STRINGSA0003) () (PUTDEF (QUOTE HORRIBLEVARS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (MAKEHVPRETTYCOMS X))) CONTENTS (LAMBDA (COM NAME TYPE) (AND (EQ TYPE (QUOTE VARS)) (INFILECOMTAIL COM))))))) (PUTDEF (QUOTE UGLYVARS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (MAKEHVPRETTYCOMS X T))) CONTENTS (LAMBDA (COM NAME TYPE) (AND (EQ TYPE (QUOTE VARS)) (INFILECOMTAIL COM))))))) HPRINTA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 1 *STANDARD-OUTPUT* P 0 OS I 0 SI::*CLEANUP-FORMS* F 2 NDC F 3 *STANDARD-OUTPUT* F 4 EXPR) (SRT RHjR Rj (37 COPYCHARS 31 SETFILEPTR 24 GETFILEPTR 15 HPRINTEND 10 HPRINT1) NIL () HPRINTA0001A0003 :D8 (F 0 NDC) P (5 CL:CLOSE) NIL () HPRINTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 NDC P 3 SIZE P 2 BACKREFS P 1 U P 0 CELLCOUNT I 0 SI::*CLEANUP-FORMS* F 5 SI::*RESETFORMS* F 6 UNCIRCULAR F 7 EXPR F 8 FILE) jV"gl hhUc V2` ` ` ld gW hhUc g` hhUc VWhdi N W 3ogg g L $h(222 TERPRI 212 CL:CLOSE 206 \MVLIST 201 HPRINTA0001A0002 188 OPENSTREAM 165 HPRINTEND 159 HPRINT1 151 RANDACCESSP 146 OUTPUT 138 HPRINT1 117 SETREADTABLE 93 OUTPUT 81 HPINITRDTBL 70 HASHARRAY 62 CLRHASH 51 HARRAYP 38 HARRAYP 16 RADIX) (196 HPRINTA0001A0003 183 NEW 178 BOTH 112 HPRINTRDTBL 107 SETREADTABLE 86 OUTPUT 75 HPRINTHASHARRAY 57 HPRINTHASHARRAY 44 HPRINTHASHARRAY 33 HPRINTHASHARRAY 9 RADIX) ( 173 "{NODIRCORE}") HPRINT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 DATATYPESEEN I 2 UNCIRCULAR I 1 FILE I 0 EXPR F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 HPRINTA0001) (8 SI::RESETUNWIND) () HPRINT1A0002 :D8 (L (1 K 0 V) F 0 VALS) APcNIL NIL () HPRINT1 :D8 (P 24 Y P 23 PR P 22 PROP P 18 I P 16 SIZ P 15 VALS P 14 RPTLAST P 13 RPTCNT P 12 I P 10 TYP P 9 INDEX P 8 RPTLAST P 7 RPTCNT P 6 SIZE P 5 CN P 3 SIZE P 2 TYPE P 1 HERE P 0 LASTSEEN I 3 NOSPFLG I 2 NOMACROSFLG I 1 CDRFLG I 0 X F 25 DATATYPESEEN F 26 CELLCOUNT F 27 U F 28 BACKREFS) P@ ZgJgJgA@o @ W6h @` XAo g  kYW4Mj6jdl l9`mЌl0jmЄ` Ml ]H@HIhW8c8` hdIHA@o W68k @Adj ى ` W4kc4Ck @EA@ @ihbbbbo @hdi @i o B;J`Y1g I@lLg JgJgJdg@ g@ jhh@  o N k @ _ k O k Ndj@O Ok_kٰO3 2ON (NOk OO@O Ok_hJdgjhh"o @ _ d@g h k @g O k Og h@ O O_gjhho lj2O$dO"O& M@ O$g O$_*O(O*h_(_&O$k_$O*&_(d O@ Jdg7o @ g @ g @ diijj g@ gg oO*lj OdO@o_,@ O,g O, O,@ O*_*@ Ohg Oh@ O Ok_dO.hg O.h@ ZO. J g g"o @ g Jdg(o o @ g  YzW2io J k -o J k JW2JI W2c2jhhJ dO0@ o@ (1461 HPERR 1449 RPTEND 1439 RPTPRINT 1434 FETCHFIELD 1419 GETDESCRIPTORS 1399 PRIN2 1386 SPACES 1379 PRIN2 1372 PRIN1 1360 SPACES 1353 PRIN2 1346 PRIN1 1327 GETFIELDSPECS 1321 PRIN1 1311 PRINTBITMAP 1305 PRIN1 1295 PRIN1 1273 PRIN1 1263 PRIN2 1258 LOC 1252 PRIN1 1233 PRIN1 1223 PRIN2 1212 HPRINSP 1205 HPRINSP 1195 DELETECONTROL 1186 DELETECONTROL 1159 HPRINSP 1151 HPRINSP 1146 ECHOCHAR 1134 ECHOCHAR 1121 ECHOCHAR 1107 HPRINSP 1102 GETSYNTAX 1093 HPRINSP 1083 GETSYNTAX 1071 GETSYNTAX 1024 HPRINSP 1007 GETDELETECONTROL 995 HPRINSP 979 GETRAISE 972 HPRINSP 961 GETECHOMODE 954 HPRINSP 943 GETCONTROL 937 PRIN1 913 RPTEND 903 RPTPRINT 898 GETSYNTAX 848 GETSYNTAX 836 GETSYNTAX 828 PRIN2 806 PRIN1 771 HPRINTSP 762 HPRINTSP 757 GETHASH 748 PRIN1 734 SPACES 728 PRIN2 723 FLENGTH 716 MAPHASH 705 SPACES 699 PRIN2 691 HARRAYPROP 677 HARRAYSIZE 671 PRIN1 639 RPTEND 624 RPTPRINT 619 ELTD 594 EQP 568 RPTPRINT 563 ELT 549 SPACES 543 PRIN2 536 SPACES 530 PRIN2 523 ARRAYTYP 517 SPACES 511 PRIN2 505 PRIN1 492 ARRAYORIG 482 ARRAYSIZE 465 PRIN2 425 PRIN1 410 OUTPUT 400 PRIN1 395 OUTPUT 371 PRIN1 361 HPRINT1 353 HPRINT1 343 PRIN1 315 HPRINT1 300 SPACES 284 PUTHASH 274 GETFILEPTR 269 OUTPUT 262 GETFILEPTR 257 OUTPUT 244 SPACES 233 PRIN1 208 PUTHASH 173 PRIN3 140 CHARACTER 116 GETFILEPTR 111 OUTPUT 106 PRIN1 95 PRIN1 78 GETHASH 60 PRIN2 54 PRIN1 8 TYPENAME) (1316 } 1281 BITMAP 1268 } 1239 VAG 1228 } 1181 ORIG 1129 ORIG 1078 ORIG 1019 NOECHO 1012 NOECHO 1001 ECHO 967 ECHOMODE 949 CONTROL 921 TERMTABLEP 843 ORIG 784 READTABLEP 743 } 711 HPRINT1A0002 686 OVERFLOW 648 HARRAYP 471 ARRAYP 456 FIXP 447 FLOATP 438 STRINGP 420 } 390 { 381 HPRINTMACROS 279 HPRINTHASHARRAY 203 HPRINTHASHARRAY 168 \OneCharAtomBase 151 \OneCharAtomBase 101 { 73 HPRINTHASHARRAY 31 NEW-ATOM 23 LITATOM 14 SMALLP) ( 1455 "cannot print this item" 1367 "{$" 1341 "{~" 1300 "READBITMAP)" 1290 "{(" 1247 "{#" 1059 (DELETELINE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL) 1030 (CTRLV RETYPE LINEDELETE CHARDELETE EOL) 932 "{T" 801 "{D" 666 "{H" 500 "{Y" 366 ")" 338 "(" 228 " . " 90 " . " 49 " . ") HPRINTENDA0001 :D8 (I 1 Y I 0 X) @ A (13 ABS 6 ABS) NIL () HPRINTEND :D8 (P 4 Z P 3 X P 2 I P 0 HERE F 5 BACKREFS)  Ug UkIH hK k jKgg K &dL J g IJkԺ(133 PRIN3 122 PRIN3 115 SETFILEPTR 109 OUTPUT 97 DREVERSE 89 PRIN3 67 SETFILEPTR 60 ABS 53 OUTPUT 44 SETFILEPTR 38 OUTPUT 23 SORT 9 GETFILEPTR 4 OUTPUT) (128 } 84 ^ 78 %` 18 HPRINTENDA0001) () RPTPRINT :D8 (I 1 FLAG I 0 X F 0 RPTLAST F 1 RPTCNT) #@PA@P QkcQP @ckc(26 RPTPUT 12 EQP) NIL () RPTEND :D8 (F 0 RPTCNT F 1 RPTLAST) PQ g (16 PRIN1 6 RPTPUT) (11 }) () RPTPUT :D8 (I 2 FLAG I 1 ITEM I 0 CNT) l@2BAd3@A%@HjA g HkXIl@@HjA HkXIo @ o A g k (130 SPACES 124 PRIN1 114 HPRINT1 108 PRIN1 98 PRIN2 92 PRIN1 73 HPRINTSP 44 PRIN1 33 PRIN2) (119 } 39 % ) ( 103 " " 87 "{R") HPRINTSP :D8 (I 0 X) @ o (15 PRIN1 5 HPRINT1) NIL ( 10 " ") HPERR :D8 (I 1 A2 I 0 A1) @i li Aid A (28 PRIN2 22 PRINT 14 SPACES 6 PRIN1) NIL () HVFWDCDREAD :D8 (I 2 TCONCPTR I 1 RDTBL I 0 FILE F 0 BACKREFCNT F 1 BACKREFS) Bh PkcBQcd@A B(26 READ 6 TCONC) NIL () HVBAKREAD :D8 (P 10 CH P 9 X P 8 I P 6 READVAL P 5 RPTVAL P 4 HV3 P 3 HV2 P 2 HV1 P 1 HV P 0 RPTCNT I 2 BKRF I 1 RDTBL I 0 FILE F 14 DATATYPESEEN F 15 BACKREFS F 16 BACKREFCNT) ja@A @ Ydg5@A @ gHjHH Ngh@A gg@A @A BBN@A dj@A @A IN kٰ@A ~IgIdg@A Z@A [hIg@A k\ BBNN djNL@A LkԼkٰK3 JJKjCIgKj5KK )JKkOONO@A Ok_@A gIdg@A IgJ ?JW[7@A J KJ oJ JdK [WcJ BBNKd ON@A @A #gB`Idg@A @A g@A Idg@g BBN@A dO@A N @A i=g BBN@A Y @A hgiN IdghN gIgIgIdg@A IN g'IgIgIgIdg%@` d OIN Ig'IdgdgdgdgI@A N iIdjIN gghN Ij7Ik2Il,Il&Il IlIlIlIlIdl 9BI@ YKl IذWW Kk g@A @0 @A @ g(@A _O Oh__O&_@A O @A BBNN(1222 HVREADEND 1215 APPLY 1204 RATOM 1171 EVAL 1166 READ 1151 PEEKC 1144 SKIPSEPRS 1133 HVREADCHECKGETFN 1128 READ 1110 HVREADERR 1098 FNTH 1073 READC 1064 HVREADERR 996 HVREADERR 988 DELETECONTROL 966 RAISE 947 DELETECONTROL 941 READ 880 SETSYNTAX 865 READ 807 ECHOCHAR 800 READ 755 ECHOMODE 736 CONTROL 719 HVREADEND 709 RATOM 695 COPYTERMTABLE 676 HVREADEND 664 SETSYNTAX 658 HVRPTREAD 642 READ 628 COPYREADTABLE 606 AT2VC 601 RATOM 585 HVREADEND 578 VAG 573 RATOM 549 HVREADERR 532 HVREADEND 520 REPLACEFIELD 515 HVRPTREAD 490 NCREATE 476 /DECLAREDATATYPE 467 ERROR 454 GETFIELDSPECS 445 GETFIELDSPECS 438 READ 420 GETDESCRIPTORS 405 RATOM 375 HVREADEND 358 SETD 353 HVRPTREAD 327 \FZEROP 281 SETA 276 HVRPTREAD 262 ARRAYSIZE 249 ARRAY 241 READ 224 READ 216 READ 185 HVREADEND 172 PUTHASH 165 READ 157 READ 145 RATOM 131 HARRAY 126 RATOM 118 APPLY 113 READ 93 SKIPSEPRS 76 HVREADERR 70 \FZEROP 55 HVREADERR 42 READC 35 SKIPSEPRS 17 READC 10 SKIPSEPRS) (1156 %) 1116 %( 981 NOECHO 974 NOECHO 929 EMPTYCHDEL 921 POSTCHDEL 912 NTHCHDEL 903 1STCHDEL 893 DELETELINE 860 FILERDTBL 850 EOL 841 CHARDELETE 832 LINEDELETE 823 RETYPE 814 CTRLV 789 SIMULATE 780 REAL 771 IGNORE 762 UPARROW 745 ECHOMODE 727 CONTROL 690 ORIG 623 ORIG 614 D 592 ! 562 %# 554 HPRPTSTRING 540 R 412 ~ 392 ~ 383 $ 309 Y 232 Y 203 Y 194 A 106 HASHARRAY 98 %( 83 H 47 { 24 }) ( 461 "attempt to read DATATYPE with different field specification than currently defined") HVREADCHECKGETFN :D8 (I 0 FN F 0 UNDERREADIMAGEOBJ F 1 HPRINTREADFNS F 2 IMAGEOBJGETFNS) a@g@P Pi@dQ R@ @l.i o@o@o hdd h(93 ERROR! 86 MOUSECONFIRM 78 CONCAT 52 \LISPERROR 42 \DEFINEDP 30 MEMB 15 BOUNDP) (5 READIMAGEOBJ) ( 72 " is NOT registered. Should I use it anyway?" 66 ". " 60 "Trying to read an IMAGEOBJ with GETFN ") HVREADEND :D8 (P 0 CHAR I 1 RDTBL I 0 FILE) ,@ Xdl}hgA (39 HVREADERR 32 SYNTAXP 13 CHCON1 8 READC) (26 SEPR) () HVRPTREAD :D8 (I 1 RDTBL I 0 FILE F 0 RPTCNT F 1 RPTVAL) =PjPkcQ@A cd`@A c@A c@A (56 HVREADEND 46 READ 36 READ 17 READ) (25 HPRPTSTRING) () HVFWDREAD :D8 (P 1 VAL P 0 CH I 1 RDTBL I 0 FILE F 3 BACKREFS F 4 BACKREFCNT) 0TkchSc@ XdgShhS@A ZdJgHdg@ g@ @ASX HIS@A (123 READ 113 HVREADERR 104 HVBAKREAD 94 READC 78 READC 46 READ 20 PEEKC) (85 { 69 % 60 % 27 %() () HREAD :D8 (P 3 DATATYPESEEN P 2 BACKREFS P 1 FILE P 0 BACKREFCNT I 0 FILE) -j@ "` I` (42 READ 30 HPINITRDTBL 24 READTABLEP 11 INPUT 6 INPUT) (37 HPRINTRDTBL 19 HPRINTRDTBL) () HPINITRDTBL :D8 (P 0 RDTBL) g yg l^gghH l`gghH l{gghH jgH l}gH gH ih(133 /SETATOMVAL 121 SETSYNTAX 107 SETSYNTAX 94 SETSYNTAX 72 SETSYNTAX 50 SETSYNTAX 26 COPYREADTABLE 14 READTABLEP 9 GETTOPVAL) (127 HPRINTRDTBL 115 SEPR 101 SEPR 85 HVBAKREAD 80 MACRO 63 HVFWDCDREAD 58 INFIX 41 HVFWDREAD 36 MACRO 21 ORIG 4 HPRINTRDTBL) () HVREADERR :D8 (I 1 M2 I 0 M1) @oAo (20 ERROR) NIL ( 15 (in HREAD) 7 "incorrect format on file") HPRINSP :D8 (I 0 X) @ k (11 SPACES 5 PRIN2) NIL () COPYALLA0001 :D8 (I 1 Y I 0 X F 0 NH) A @ P (17 PUTHASH 11 COPYALL 5 COPYALL) NIL () COPYALL :D8 (P 8 IM P 7 NEW P 6 ORIG P 5 TYPE P 4 SIZE P 3 NH P 2 TN P 1 TAIL P 0 VAL I 0 X)  @d, hH@b@I@ HI@ &d3@@d@@ Jd`@g@ Jdgdg@jdg)@ @g @g Kg@ Jdg@ gG@ @ @ LMhN _LdjON@N NkԾkٰJdg@ gZ@ O@@O@ @@@ Jdgæ@ @ (416 \COPYDATATYPE 409 \COPYARRAYBLOCK 389 CURSORCREATE 383 COPYALL 354 BITMAPCOPY 315 BITMAPCOPY 293 BITMAPCOPY 266 SETA 261 COPYALL 256 ELT 238 ARRAY 226 ARRAYORIG 220 ARRAYTYP 214 ARRAYSIZE 199 COPYTERMTABLE 182 COPYREADTABLE 167 MAPHASH 153 HASHARRAY 148 HARRAYPROP 137 HARRAYSIZE 97 CONCAT 70 TYPENAME 43 COPYALL 32 COPYALL 10 COPYALL) (397 CCODEP 376 CURSOR 368 CURSOR 360 CURSOR 347 CURSOR 334 CURSOR 326 CURSOR 308 CURSOR 299 CURSOR 284 BITMAP 205 ARRAYP 190 TERMTABLEP 174 READTABLEP 162 COPYALLA0001 143 OVERFLOW 127 HARRAYP 114 FIXP 105 FLOATP 89 STRINGP 80 DONTCOPYDATATYPES 61 CHARACTER) () \COPYDATATYPE :D8 (P 6 P P 5 P P 4 \INTERRUPTABLE P 3 NEW P 2 PTRS P 1 DTD P 0 NTYP I 0 X) a@!`HlY HKJ>K@IĿJdKMhJdKNKN K@IĿ(79 COPYALL) (9 \DTDSpaceBase) () HCOPYALL :D8 (I 0 X) 8` ` ` ld @ (53 HCOPYALL1 41 HASHARRAY 33 CLRHASH 22 HARRAYP 9 HARRAYP) (46 HPRINTHASHARRAY 28 HPRINTHASHARRAY 15 HPRINTHASHARRAY 4 HPRINTHASHARRAY) () HCOPYALL1A0004 :D8 (I 1 Y I 0 X F 0 NEW) A @ P (17 PUTHASH 11 HCOPYALL1 5 HCOPYALL1) NIL () HCOPYALL1 :D8 (P 10 FIELD P 9 NH P 8 ORIG P 7 TYP P 6 SIZE P 2 NEW P 1 SEEN P 0 TYPE I 0 X)  @d3@@d@ !@ X`@@` Hdg*@hh` @ @ KLdMg@d ` Hdg@d` g@dj` HdgX@ @ @ @NOhO Z` Ndj#JO@O Ok_kٰJg5@d @g Z` J @g JHdg@ g@d ` Hdg@  Y@H Z` Id OJO@ J(446 REPLACEFIELD 441 HCOPYALL1 436 FETCHFIELD 417 PUTHASH 406 NCREATE 394 GETDESCRIPTORS 388 COPYTERMTABLE 371 PUTHASH 361 BITMAPCOPY 345 COPYREADTABLE 327 MAPHASH 312 PUTHASH 301 HASHARRAY 296 HARRAYPROP 285 HARRAYSIZE 256 SETA 251 HCOPYALL1 246 ELT 229 PUTHASH 218 ARRAY 203 ARRAYORIG 197 ARRAYTYP 191 ARRAYSIZE 173 PUTHASH 151 PUTHASH 128 PUTHASH 118 CONCAT 92 HCOPYALL1 85 HCOPYALL1 78 PUTHASH 47 GETHASH 26 TYPENAME 17 TYPENAME) (412 HPRINTHASHARRAY 379 TERMTABLEP 366 HPRINTHASHARRAY 351 BITMAP 336 READTABLEP 322 HCOPYALL1A0004 307 HPRINTHASHARRAY 291 OVERFLOW 275 HARRAYP 224 HPRINTHASHARRAY 181 ARRAYP 168 HPRINTHASHARRAY 157 FIXP 146 HPRINTHASHARRAY 136 FLOATP 123 HPRINTHASHARRAY 108 STRINGP 73 HPRINTHASHARRAY 60 LISTP 42 HPRINTHASHARRAY 32 DONTCOPYDATATYPES) () EQUALALL :D8 (P 7 FIELD P 5 Z P 4 J P 3 I P 1 TEM P 0 TY I 1 Y I 0 X) 2@AA H@ HgHgHdghg@AjHdg@A g@A l@A Hdg@A gp@ A 5@ A "@ YA I@ k\J/@K AK CKkԻLk԰HgHgHdg@ A @ A @ A @ A o@ A A hO@ kjKJo@K AK Kk[g@A Hdg/ljKdJ(@ KA =Kk[g@ A @ A @ A @ A `dM@ MA ihWljKdJiF`;@ KhA hKk[dMh@ MhA hiHgHg@A @A H XdNi_@ OA N^(805 EQUALALL 800 FETCHFIELD 792 FETCHFIELD 770 GETDESCRIPTORS 762 EQP 754 BITMAPEQUAL 717 DELETECONTROL 708 DELETECONTROL 683 ECHOCONTROL 675 ECHOCONTROL 632 GETSYNTAX 624 GETSYNTAX 597 GETDELETECONTROL 591 GETDELETECONTROL 578 GETECHOMODE 572 GETECHOMODE 559 GETRAISE 553 GETRAISE 540 GETCONTROL 534 GETCONTROL 506 EQUALALL 501 GETSYNTAX 494 GETSYNTAX 462 EQUALHASH 436 EQUALALL 431 XCL:ROW-MAJOR-AREF 424 XCL:ROW-MAJOR-AREF 404 CL:ARRAY-TOTAL-SIZE 390 CL:ARRAY-HAS-FILL-POINTER-P 383 EQP 378 CL:FILL-POINTER 372 CL:FILL-POINTER 360 CL:ARRAY-HAS-FILL-POINTER-P 352 CL:ARRAY-HAS-FILL-POINTER-P 339 CL:ADJUSTABLE-ARRAY-P 333 CL:ADJUSTABLE-ARRAY-P 320 CL:ARRAY-ELEMENT-TYPE 314 CL:ARRAY-ELEMENT-TYPE 301 CL:ARRAY-DIMENSIONS 295 CL:ARRAY-DIMENSIONS 244 EQUALALL 239 ELT 232 ELT 214 ARRAYORIG 200 ARRAYSIZE 193 ARRAYSIZE 180 ARRAYTYP 174 ARRAYTYP 161 ARRAYORIG 155 ARRAYORIG 140 STREQUAL 122 EQUALALL 107 EQUALALL 89 EQP 24 TYPENAME 14 TYPENAME) (745 BIGBM 737 BITMAP 667 ORIGDELETECONTROL 609 ORIGTERMSYNTAX 523 TERMTABLEP 470 READTABLEP 453 HARRAYP 283 GENERAL-ARRAY 274 TWOD-ARRAY 265 ONED-ARRAY 146 ARRAYP 130 STRINGP 95 LISTP 79 FLOATP 64 FIXP 55 SMALLP 46 NEW-ATOM 37 LITATOM) () EQUALHASHA0001 :D8 (I 1 KEY I 0 VAL F 0 UNMATCHED F 1 AR2) (Ad3@AQ @ g APc(31 RETFROM 19 EQUALALL 13 GETHASH) (26 EQUALHASH) () EQUALHASHA0002 :D8 (P 0 Y I 1 KEY I 0 VAL F 1 AR1 F 2 UNMATCHED) EAd3@AQ g R dAH @HQ hh(56 EQUALALL 51 GETHASH 41 EQUALALL 25 RETFROM 13 GETHASH) (20 EQUALHASH) () EQUALHASH :D8 (P 0 UNMATCHED I 1 AR2 I 0 AR1) 6@g Ag @g Ag i(50 MAPHASH 38 MAPHASH 24 HARRAYPROP 13 HARRAYPROP) (45 EQUALHASHA0002 33 EQUALHASHA0001 19 OVERFLOW 8 OVERFLOW) () (RPAQ? HPRINTMACROS) (RPAQ? HPRINTHASHARRAY) (RPAQ? HPRINTRDTBL) (RPAQ? HPRPTSTRING "") (RPAQ? DONTCOPYDATATYPES) (RPAQQ ORIGDELETECONTROL ((DELETELINE . "## ") (1STCHDEL . "\") (NTHCHDEL . "") (POSTCHDEL . "\") (EMPTYCHDEL . "## "))) (RPAQQ ORIGTERMSYNTAX ((CTRLV 22) (RETYPE 18) (LINEDELETE 17) (CHARDELETE 1) (EOL 31))) (RPAQQ ORIGECHOCONTROL ((0 . IGNORE) (1 . IGNORE) (7 . REAL) (8 . UPARROW) (9 . SIMULATE) (10 . REAL) (13 . REAL) (17 . IGNORE) (18 . IGNORE) (27 . SIMULATE) (31 . REAL))) (ADDTOVAR HPRINTREADFNS READBITMAP) (ADDTOVAR GAINSPACEFORMS ((OR HPRINTHASHARRAY HPRINTRDTBL) "discard HPRINT initialization" (PROGN ( CLRHASH HPRINTHASHARRAY) (SETQ HPRINTHASHARRAY (SETQ HPRINTRDTBL))))) (PUTPROPS HPRINT FILETYPE CL:COMPILE-FILE) (PUTPROPS HPRINT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 1993 1994 2022)) NIL