perm filename CYCDRK[DEN,LMM] blob sn#034887 filedate 1973-04-14 generic text, type T, neo UTF8
  (DE PATMATCH NIL (PROG (X1 X2 Y)
		    (SETQ PATSELECT (SETQ FACE NIL))
                    (SETQ X1 (REEDITFACE (FACES)))
                    (SETQ X2 PATS)
                 B  (SETQ CURPAT (CAR X2))
                    (SETQ Y (FACEMATCH X1 (PATFACE (CAR X2))))
                    (COND ((NULL Y) (GO A)))
                    (SETQ Y (NODEPICK1 Y (PATNODFC (CAR X2))))
                    (SETQ Y (NODEPICK2 Y))
                    (AND Y (RETURN (SETQ PATSELECT (PATPTS Y (PATPOINTS CURPAT)))))
                 A  (COND ((SETQ X2 (CDR X2)) (GO B)))
                    (RETURN NIL)))