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 join weights to stdout.
12 ; Expects clunit_params to be defined.
14 (define (dump_join_weights)
17 (length (cadr (assoc 'join_weights clunits_params))))
19 (let ((join_weights (cadr (assoc 'join_weights clunits_params))))
21 (format t " %d" (* 65536 (car join_weights)))
22 (set! join_weights (cdr join_weights))))