1 ; Portions Copyright 2004 Sun Microsystems, Inc.
2 ; Portions Copyright 1999-2003 Language Technologies Institute,
3 ; Carnegie Mellon University.
4 ; All Rights Reserved. Use is subject to license terms.
6 ; See the file "license.terms" for information on usage and
7 ; redistribution of this file, and for a DISCLAIMER OF ALL
10 ; Dumps the guess_pos part of speech tagger to stdout.
12 ; Expects guess_pos to be defined.
15 (let ((pos_list guess_pos))
17 (let ((pos (car (car pos_list)))
18 (words (cdr (car pos_list))))
20 (format t "%s %s\n" (car words) pos)
21 (set! words (cdr words))))
22 (set! pos_list (cdr pos_list))))