(FILECREATED "23-APR-83 00:57:09" ("compiled on " {PHYLUM}<3-LISP>INTERLISP>SNAKE-TEST.;4) "19-APR-83 13:42:57" tcompl'd in WORK dated "19-APR-83 13:57:25") (FILECREATED "22-APR-83 14:33:02" {PHYLUM}<3-LISP>INTERLISP>SNAKE-TEST.;4 19912 changes to: (VARS SNAKE-TESTCOMS PRETTYPRINTYPEMACROS) (FNS TEST-1-T1 TEST-1-S1 XFACT-S1 XFACT-T1 XADD-S1 X-MULT-S1 XMULT-T1 XADD-T1 XMULT-S XMULT-T XADD-S XADD-T XSUB1-T XSUB1-S XADD1-S XADD1-T XZERO?-S XZERO?-T XZERO-S XZERO-T XFACT-S XFACT-T TEST-1-T TEST-1-S S-REPLACE T-1ST T-REST SWITCH-PRIMITIVES FS-1ST FS-REST FT-1ST FT-REST XFACT TEST-2 XZERO? XMULT XADD XSUB1 XADD1 XZERO TEST-MEMBER TEST-APPEND TEST-COPY IOTA PRINT-CONSCELL1 S-TEST1 T-TEST1 S-EQ CREATE-HASH S-EMPTY S-REST S-1ST S-PREP S-RCONS0 T-REPLACE T-EQ T-EMPTY T-PREP T-RCONS0 DE TEST-1) (RECORDS CONSCELL1) previous date: "22-APR-83 13:02:22" {PHYLUM}<3-LISP>INTERLISP>SNAKE-TEST.;1) DE D1 (I 0 X) @h (5 DEFINE) NIL NIL S-RCONS0 D1 NIL ghNIL (2 &EMPTY) NIL S-PREP D1 (L (1 Y 0 X)) @ANIL NIL NIL S-EMPTY D1 (L (0 X)) @gNIL (4 &EMPTY) NIL S-1ST D1 (P 0 P I 0 X) @Hdggg h(25Q ERROR) (22Q S-1ST 17Q EMPTY 11Q &EMPTY) NIL S-REST D1 (P 0 P I 0 X) @Hggg h@(23Q ERROR) (20Q S-REST 15Q EMPTY 10Q &EMPTY) NIL CREATE-HASH D1 NIL ld (4 HARRAY) (7 HT) NIL S-EQ D1 (L (1 Y 0 X)) ,@A'@A @A@`A`HhhHINIL (33Q HT 26Q HT) NIL S-REPLACE D1 (P 3 ORIGINAL-H1 P 2 TEMP P 1 H2 P 0 H1 I 1 Y I 0 X) @@dA`Xd[A`YH4d@Ah@H` AH` K@H` III@J5IAH` HHH@JHI,HdI` IH K@hdAAg(177Q \NCONC2 165Q PUTHASH 127Q PUTHASH 76Q PUTHASH 64Q PUTHASH 53Q PUTHASH) (227Q OK 162Q HT 124Q HT 73Q HT 61Q HT 50Q HT 25Q HT 15Q HT) NIL FS-1ST D1 (L (0 X)) @NIL NIL NIL FS-REST D1 (L (0 X)) @NIL NIL NIL PRINT-CONSCELL1 D1 (P 1 W P 0 R I 0 X) 8 @ ho@hhI HI I YHg hH(60Q TCONC 46Q T-REST 41Q TCONC 36Q T-1ST 30Q T-EMPTY 6 T-EMPTY) (55Q &EMPTY) (14Q (&EMPTY)) T-RCONS0 D1 NIL `dgdhNIL (7 &EMPTY 2 CONSCELL1TYPE#) NIL T-PREP D1 (I 1 Y I 0 X) `d@dANIL (2 CONSCELL1TYPE#) NIL T-EMPTY D1 (L (0 X)) @ @bgNIL (16Q &EMPTY) NIL T-1ST D1 (P 0 W I 0 X) #@X @bggg hH(35Q ERROR) (32Q 1ST 27Q EMPTY 22Q &EMPTY) NIL T-REST D1 (P 0 W I 0 X) %@X @bggg h@(35Q ERROR) (32Q REST 27Q EMPTY 22Q &EMPTY) NIL T-EQ D1 (L (1 Y 0 X)) !@dAi@bAAb@ANIL NIL NIL T-REPLACE D1 (L (1 Y 0 X)) (@@bAAb@A@h@AgNIL (45Q OK) NIL FT-1ST D1 (L (0 X)) @ @bNIL NIL NIL FT-REST D1 (L (0 X)) @@b@NIL NIL NIL SWITCH-PRIMITIVES D1 (I 0 WHICH-SET)  @g@:`g0gggggggg@g@:`g0gggggggg@g@:`g0gggggggg@g@9`g0ggggggggo (406Q SHOULDNT) (376Q F-SNAKES 373Q REPLACE 370Q T-REPLACE 365Q EQ 362Q T-EQ 357Q EMPTY 354Q T-EMPTY 351Q REST 346Q FT-REST 343Q 1ST 340Q FT-1ST 335Q RCONS0 332Q T-RCONS0 327Q PREP 324Q T-PREP 316Q FS-REST 313Q REST 303Q F-SNAKES 276Q F-CONNECTORS 273Q REPLACE 270Q S-REPLACE 265Q EQ 262Q S-EQ 257Q EMPTY 254Q S-EMPTY 251Q REST 246Q FS-REST 243Q 1ST 240Q FS-1ST 235Q RCONS0 232Q S-RCONS0 227Q PREP 224Q S-PREP 216Q FT-REST 213Q REST 203Q F-CONNECTORS 176Q CONNECTORS 173Q REPLACE 170Q S-REPLACE 165Q EQ 162Q S-EQ 157Q EMPTY 154Q S-EMPTY 151Q REST 146Q S-REST 143Q 1ST 140Q S-1ST 135Q RCONS0 132Q S-RCONS0 127Q PREP 124Q S-PREP 116Q T-PREP 113Q PREP 103Q CONNECTORS 76Q SNAKES 73Q REPLACE 70Q T-REPLACE 65Q EQ 62Q T-EQ 57Q EMPTY 54Q T-EMPTY 51Q REST 46Q T-REST 43Q 1ST 40Q T-1ST 35Q RCONS0 32Q T-RCONS0 27Q PREP 24Q T-PREP 16Q S-PREP 13Q PREP 3 SNAKES) (403Q "Unrecognized setting of WHICH-SET") IOTA D1 (P 2 I P 0 RESULT I 0 N) &j`Xk@IJJHl`JkٺHNIL (31Q PREP 6 RCONS0) NIL TEST-COPY D1 (I 0 X) )@k`j`@k`@k` l`(37Q TEST-COPY) (44Q PREP 32Q REST 23Q 1ST 13Q RCONS0 4 EMPTY) NIL TEST-MEMBER D1 (I 1 V I 0 X) )Ak`hAk`@ i@Ak`bb(24Q EQUAL) (35Q REST 16Q 1ST 4 EMPTY) NIL TEST-APPEND D1 (I 1 Y I 0 X) %@k`A@k`@k`A l`(33Q TEST-APPEND) (40Q PREP 25Q REST 16Q 1ST 4 EMPTY) NIL XZERO D1 NIL j`NIL (3 RCONS0) NIL XZERO? D1 (I 0 X) @k`NIL (4 EMPTY) NIL XADD1 D1 (I 0 X) g@l`NIL (10Q PREP 2 X) NIL XSUB1 D1 (I 0 X) @k`NIL (4 REST) NIL XADD D1 (I 1 Y I 0 X) @ A@ A (21Q XADD1 16Q XADD 12Q XSUB1 3 XZERO?) NIL NIL XMULT D1 (I 1 Y I 0 X) @ @A@ A (22Q XADD 17Q XMULT 13Q XSUB1 3 XZERO?) NIL NIL XFACT D1 (I 0 N) @ @ @d (24Q XMULT 21Q XFACT 16Q XSUB1 10Q XADD1 3 XZERO?) NIL NIL TEST-1 D1 (P 4 I P 2 RN P 1 R P 0 X I 0 N) 60X@kLKH Lk\H YjZI I JkغJ(53Q XSUB1 46Q XZERO? 37Q XFACT 23Q XADD1 5 XZERO) NIL NIL TEST-1-T D1 (P 4 I P 2 RN P 1 R P 0 X-T I 0 N) 60X@kLKH Lk\H YjZI I JkغJ(53Q XSUB1-T 46Q XZERO?-T 37Q XFACT-T 23Q XADD1-T 5 XZERO-T) NIL NIL TEST-1-S D1 (P 4 I P 2 RN P 1 R P 0 X-S I 0 N) 60X@kLKH Lk\H YjZI I JkغJ(53Q XSUB1-S 46Q XZERO?-S 37Q XFACT-S 23Q XADD1-S 5 XZERO-S) NIL NIL TEST-1-T1 D1 (P 4 I P 2 RN P 1 R P 0 X-T I 0 N) 60X@kLKH Lk\H YjZI I JkغJ(53Q XSUB1-T 46Q XZERO?-T 37Q XFACT-T1 23Q XADD1-T 5 XZERO-T) NIL NIL TEST-1-S1 D1 (P 4 I P 2 RN P 1 R P 0 X-S I 0 N) 60X@kLKH Lk\H YjZI I JkغJ(53Q XSUB1-S 46Q XZERO?-S 37Q XFACT-S1 23Q XADD1-S 5 XZERO-S) NIL NIL XADD-S D1 (I 1 Y I 0 X-S) @ A@ A (21Q XADD1-S 16Q XADD-S 12Q XSUB1-S 3 XZERO?-S) NIL NIL XADD-S1 D1 (P 0 P I 1 Y I 0 X-S) /@gAg@Hggg hA @(47Q XADD-S1 40Q ERROR) (35Q S-REST 32Q EMPTY 24Q &EMPTY 13Q X 4 &EMPTY) NIL XADD-T D1 (I 1 Y I 0 X-T) @ A@ A (21Q XADD1-T 16Q XADD-T 12Q XSUB1-T 3 XZERO?-T) NIL NIL XADD-T1 D1 (P 0 W I 1 Y I 0 X-T) T@ @bgA`dg@X @bggg hA IdJ@(103Q XADD-T1 74Q ERROR) (71Q REST 66Q EMPTY 60Q &EMPTY 32Q X 25Q CONSCELL1TYPE# 16Q &EMPTY) NIL XADD1-S D1 (L (0 X)) g@NIL (2 X) NIL XADD1-T D1 (I 0 X) `dgd@NIL (7 X 2 CONSCELL1TYPE#) NIL XFACT-S D1 (I 0 N) @ @ @d (24Q XMULT-S 21Q XFACT-S 16Q XSUB1-S 10Q XADD1-S 3 XZERO?-S) NIL NIL XFACT-S1 D1 (P 0 P I 0 N) 3@dgg@dHggg h @(54Q XMULT-S1 51Q XFACT-S1 43Q ERROR) (40Q S-REST 35Q EMPTY 27Q &EMPTY 13Q N 5 &EMPTY) NIL XFACT-T D1 (I 0 N) @ @ @d (24Q XMULT-T 21Q XFACT-T 16Q XSUB1-T 10Q XADD1-T 3 XZERO?-T) NIL NIL XFACT-T1 D1 (P 0 W I 0 N) S@ @bg`dgd@@@X @bggg h @(113Q XMULT-T1 110Q XFACT-T1 102Q ERROR) (77Q REST 74Q EMPTY 66Q &EMPTY 31Q N 24Q CONSCELL1TYPE# 16Q &EMPTY) NIL XMULT-S D1 (I 1 Y I 0 X-S) @ @A@ A (22Q XADD-S 17Q XMULT-S 13Q XSUB1-S 3 XZERO?-S) NIL NIL X-MULT-S1 D1 (P 0 P I 1 Y I 0 X-S) /@g@A@Hggg hA @(50Q XADD-S1 45Q X-MULT-S1 36Q ERROR) (33Q S-REST 30Q EMPTY 22Q &EMPTY 4 &EMPTY) NIL XMULT-T D1 (I 1 Y I 0 X-T) @ @A@ A (22Q XADD-T 17Q XMULT-T 13Q XSUB1-T 3 XZERO?-T) NIL NIL XMULT-T1 D1 (P 0 W I 1 Y I 0 X-T) D@ @bg@A@X @bggg hA @(74Q XADD-T1 71Q XMULT-T1 62Q ERROR) (57Q REST 54Q EMPTY 46Q &EMPTY 16Q &EMPTY) NIL XSUB1-S D1 (P 0 P I 0 X) @Hggg h@(23Q ERROR) (20Q S-REST 15Q EMPTY 10Q &EMPTY) NIL XSUB1-T D1 (P 0 W I 0 X) %@X @bggg h@(35Q ERROR) (32Q REST 27Q EMPTY 22Q &EMPTY) NIL XZERO-S D1 NIL ghNIL (2 &EMPTY) NIL XZERO-T D1 NIL `dgdhNIL (7 &EMPTY 2 CONSCELL1TYPE#) NIL XZERO?-S D1 (L (0 X)) @gNIL (4 &EMPTY) NIL XZERO?-T D1 (L (0 X)) @ @bgNIL (16Q &EMPTY) NIL (PRETTYCOMPRINT SNAKE-TESTCOMS) (RPAQQ SNAKE-TESTCOMS ((VARS PRETTYPRINTYPEMACROS) (GLOBALVARS HT RCONS0 PREP 1ST REST EMPTY EQ REPLACE NIL) (FNS DE) (FNS S-RCONS0 S-PREP S-EMPTY S-1ST S-REST CREATE-HASH S-EQ S-REPLACE) (FNS FS-1ST FS-REST) (RECORDS CONSCELL1) (FNS PRINT-CONSCELL1 T-RCONS0 T-PREP T-EMPTY T-1ST T-REST T-EQ T-REPLACE) (FNS FT-1ST FT-REST) (FNS SWITCH-PRIMITIVES) (FNS IOTA TEST-COPY TEST-MEMBER TEST-APPEND) ( FNS XZERO XZERO? XADD1 XSUB1 XADD XMULT XFACT) (FNS TEST-1 TEST-1-T TEST-1-S TEST-1-T1 TEST-1-S1) (FNS XADD-S XADD-S1 XADD-T XADD-T1 XADD1-S XADD1-T XFACT-S XFACT-S1 XFACT-T XFACT-T1 XMULT-S X-MULT-S1 XMULT-T XMULT-T1 XSUB1-S XSUB1-T XZERO-S XZERO-T XZERO?-S XZERO?-T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DE) (NLAML) (LAMA))))) (RPAQQ PRETTYPRINTYPEMACROS NIL) (DATATYPE CONSCELL1 (FIRST REST)) (/DECLAREDATATYPE (QUOTE CONSCELL1) (QUOTE (POINTER POINTER))) NIL