(FILECREATED "11-Aug-84 15:29:23" {ERIS}<SPEECH>LEXICON>FOOT-PARSER.;2
 1410   

      changes to:  (VARS FOOT-PARSERCOMS FOOT-PARSER-RULES W-RULE)
		   (FNS PRINTRULE PRINTRULES)
		   (RECORDS RULE)

      previous date: "11-Aug-84 14:54:26" {ERIS}<SPEECH>LEXICON>FOOT-PARSER.;1)


(PRETTYCOMPRINT FOOT-PARSERCOMS)

(RPAQQ FOOT-PARSERCOMS
 ((VARS FOOT-PARSER-RULES W-RULE)
			(RECORDS RULE)
			(GLOBALVARS FOOT-PARSER-RULES)
			(FNS PRINTRULE PRINTRULES)))

(RPAQQ FOOT-PARSER-RULES
 (W-RULE))

(RPAQQ W-RULE
 (W T (UNSTRESSED PRIMARYFOOT)))
[DECLARE: EVAL@COMPILE 

(TYPERECORD RULE
 (LEFTSIDE RIGHTSIDE))
]
(DECLARE: DOEVAL@COMPILE DONTCOPY

(ADDTOVAR GLOBALVARS FOOT-PARSER-RULES)
)
(DEFINEQ

(PRINTRULE

  [LAMBDA (RULE)                                             (* pkh: "11-Aug-84 15:08")

                                                             (* Prints a RULE record (For cx-free rules))

    (PRIN1 (fetch
 (RULE LEFTSIDE) of
 (EVAL RULE)))
    (PRIN1 " ")
    (PRIN1 "--> ")
    (for
 X in
 (fetch
 (RULE RIGHTSIDE) of
 (EVAL RULE))
       do
 (PRIN1 X)
	  (PRIN1 " "))
    (TERPRI])

(PRINTRULES

  [LAMBDA NIL                                                (* pkh: "11-Aug-84 14:57")

    (for
 RULE in
 FOOT-PARSER-RULES
       do
 (PRINTRULE
 RULE)
	  (TERPRI])
)
(PUTPROPS FOOT-PARSER COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (702 1348 (PRINTRULE 712 . 1146) (PRINTRULES 1148 . 1346)))))
STOP