(FILECREATED "10-Aug-84 22:04:49" {ERIS}<SPEECH>LEXICON>PARSE-TEST.;5 5121
changes to: (FNS CHECK.PARSER)
previous date: "10-Aug-84 19:39:56" {ERIS}<SPEECH>LEXICON>PARSE-TEST.;4)
(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT PARSE-TESTCOMS)
(RPAQQ PARSE-TESTCOMS ((VARS FACITARRAY SMALLLEX)
(FNS CHECK.PARSER MAKE.FACIT.ARRAY)))
(RPAQ FACITARRAY (READARRAY 100 (QUOTE POINTER) 1))
(x
x-bIs1
@k-tI1<nIk
@d1-\vEnt2
x-glu1<tN-\et
@l2<kx-\lI1<nE<ti
@1<mx-\to2<ri
x<n@1<tx-mi
@n1<Txm
x-pE1<lxnt
ar2<kx-\pE1<lx-\go2
art1*lxs
x-stra1<lx-Ji
c1<gyU<ri
cl1
b@nd1
be1<sN
bi1*\hYv2
bEt1
bYt1
blu1-IG
but1
brx-vU1<rx
bru-\ha1-\ha2
bR1<g%|n<di
kek1
ke1<\nYn2
kar2<b%|<\ne1<S%|n
k@s1<\tret2
CE1<l%|st
C@n1<sL-X-i
CEk1
ko1<r%|s
sI1<vL
klo1<ZX
kag1*\hwil2
ka2<mxn-\dIr1
kam1-\r@d2
kxn-fyuz1
kan1<sx<\met2
kan1-\vO2
kor1<t%|-\zon2
kO1-\pu2
krIsp1
kyum1-yU<l%|<tIv
di1<mxn
dE2<b%|<\n@r1
dE2<grx-\de1<S%|n
dEn-tI1<S%|n
dI-tR2<mx<\ne1<S%|n
dY1-\JEst2
dI<skcr1<dNt
dI2<\str↑st1
do1-X
drog1
dwcrvz1
i2<go*\sEn1<trIk
Em1<bX
En2-J%|<\nIr1
E1<kwx-bL
ET2-nx-\la1<JIk
Ek2<skx-\myu1<nx-\ket2
Iks-pWnd1
f@1<ri
fez1
fi1-\at
fIs1<tI-\k↑fs2
flu1<zi
fok1<sL
fr@k1-S%|n
frY1
ge1<lx
gx-vat1
g@st1-li
gl↑m1
gren1
gro1<sX
JIm-ka1<nx
h@G1
hip1
hE1<rL-dri
hI2<px-\pa1<tx-mxs
hX-Y1<zN
hyu-\mI1<dx-\fY2
Y1
Im-bro1<li-\o2
Im1<px<t%|s
IG1<kx
In2-\kyU2<rx-\bI1<lx<ti
I2<nIg-\z@kt1
In-h@1<b%|<t%|nt
In2<\sI2<nyU-\e1<S%|n
In2<tX-\k↑l1<CX-L
In2<trx<\mIt1
I2<\rE2<gyU<\l@1<rx<ti
Jc1
J↑1<gL-X
kIn1<dX*\gar2<tN
lx-ka1<nIk
l@C1
NIL
)
(RPAQ SMALLLEX (READARRAY 100 (QUOTE POINTER) 1))
(("a" "x" 23178)
("abyss" "x-b1Is" 4)
("actinic" "@k-t1I<nIk" 0)
("Advent" "1@d-v2Ent" 5)
("agglutinate" "x-gl1u<tN-et" 0)
("alkalinity" "2@l<kx-l1I<nE<ti" 0)
("amatory" "1@<mx-t2o<ri" 1)
("anatomy" "x<n1@<tx-mi" 9)
("anthem" "1@n<Txm" 1)
("appellant" "x-p1E<lxnt" 1)
("archipelago" "2ar<kx-p1E<lx-g2o" 2)
("artless" "1art*lxs" 2)
("astrology" "x-str1a<lx-Ji" 0)
("augury" "1c<gyU<ri" 0)
("awl" "1cl" 0)
("band" "b1@nd" 53)
("basin" "b1e<sN" 7)
("beehive" "b1i*h2Yv" 1)
("bet" "b1Et" 20)
("bite" "b1Yt" 10)
("blueing" "bl1u-IG" 0)
("boot" "b1ut" 14)
("bravura" "brx-v1U<rx" 1)
("brouhaha" "bru-h1a-h2a" 0)
("Burgundy" "b1R<g|n<di" 5)
("cake" "k1ek" 13)
("canine" "k1e<n2Yn" 1)
("carbonation" "k2ar<b|<n1e<S|n" 0)
("castrate" "k1@s<tr2et" 0)
("cellist" "C1E<l|st" 2)
("chancellory" "C1@n<sL-X-i" 0)
("cheque" "C1Ek" 0)
("chorus" "k1o<r|s" 18)
("civil" "s1I<vL" 95)
("closure" "kl1o<ZX" 1)
("cogwheel" "k1ag*hw2il" 0)
("commandeer" "k2a<mxn-d1Ir" 0)
("comrade" "k1am-r2@d" 4)
("confuse" "kxn-fy1uz" 5)
("consummate" "k1an<sx<m2et" 3)
("convoy" "k1an-v2O" 3)
("cortisone" "k1or<t|-z2on" 0)
("coypu" "k1O-p2u" 0)
("crisp" "kr1Isp" 8)
("cumulative" "ky1um-yU<l|<tIv" 13)
("daemon" "d1i<mxn" 0)
("debonair" "d2E<b|<n1@r" 1)
("degradation" "d2E<grx-d1e<S|n" 2)
("dentition" "dEn-t1I<S|n" 0)
("determination" "dI-t2R<mx<n1e<S|n" 46)
("digest" "d1Y-J2Est" 3)
("discordant" "dI<sk1cr<dNt" 0)
("distrust" "d2I<str1↑st" 6)
("door" "d1o-X" 321)
("drogue" "dr1og" 0)
("dwarves" "dw1crvz" 0)
("egocentric" "2i<go*s1En<trIk" 1)
("ember" "1Em<bX" 0)
("engineer" "2En-J|<n1Ir" 42)
("equable" "1E<kwx-bL" 0)
("ethnologic" "2ET-nx-l1a<JIk" 0)
("excommunicate" "2Ek<skx-my1u<nx-k2et" 0)
("expound" "Iks-p1Wnd" 0)
("fairy" "f1@<ri" 5)
("faze" "f1ez" 1)
("fiat" "f1i-at" 4)
("fisticuffs" "f1Is<tI-k2↑fs" 0)
("floozy" "fl1u<zi" 0)
("forecastle" "f1ok<sL" 0)
("fraction" "fr1@k-S|n" 23)
("fry" "fr1Y" 2)
("gala" "g1e<lx" 7)
("gavotte" "gx-v1at" 0)
("ghastly" "g1@st-li" 6)
("glum" "gl1↑m" 1)
("grain" "gr1en" 31)
("grocer" "gr1o<sX" 1)
("gymkhana" "JIm-k1a<nx" 0)
("hang" "h1@G" 26)
("heap" "h1ip" 14)
("heraldry" "h1E<rL-dri" 0)
("hippopotamus" "h2I<px-p1a<tx-mxs" 0)
("horizon" "hX-1Y<zN" 27)
("humidify" "hyu-m1I<dx-f2Y" 0)
("i" "1Y" 5159)
("imbroglio" "Im-br1o<li-2o" 1)
("impetus" "1Im<px<t|s" 6)
("Inca" "1IG<kx" 0)
("incurability" "2In-ky2U<rx-b1I<lx<ti" 0)
("inexact" "2I<nIg-z1@kt" 2)
("inhabitant" "In-h1@<b|<t|nt" 0)
("insinuation" "2In<s2I<nyU-1e<S|n" 2)
("intercultural" "2In<tX-k1↑l<CX-L" 0)
("intromit" "2In<trx<m1It" 0)
("irregularity" "2I<r2E<gyU<l1@<rx<ti" 4)
("jaw" "J1c" 16)
("juggler" "J1↑<gL-X" 0)
("kindergarten" "k1In<dX*g2ar<tN" 3)
("laconic" "lx-k1a<nIk" 0)
("latch" "l1@C" 5)
NIL
)
(DEFINEQ
(CHECK.PARSER
[LAMBDA NIL (* pkh: "10-Aug-84 22:00")
(for X RESULT from 1 to (ARRAYSIZE SMALLLEX) unless (EQUAL (SETQ RESULT (PARSE-1-WORD
(ELT SMALLLEX X)))
(ELT FACITARRAY X))
collect (printout T "Failed on: " X " " (ELT FACITARRAY X)
" vs. incorrect " RESULT T)
(ELT FACITARRAY X)
finally (COND
((NULL $$VAL)
(printout T "Success! No errors" T)))
(RETURN $$VAL])
(MAKE.FACIT.ARRAY
[LAMBDA NIL (* mmw: " 7-Aug-84 22:13")
(for X from 1 to 100 do (SETA FACITARRAY X (PARSE-1-WORD (ELT SMALLLEX X])
)
(PUTPROPS PARSE-TEST COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (4293 5040 (CHECK.PARSER 4303 . 4828) (MAKE.FACIT.ARRAY 4830 . 5038)))))
STOP