I: pbuilder: network access will be disabled during build I: Current time: Sun Dec 22 20:11:47 +14 2024 I: pbuilder-time-stamp: 1734847907 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/trixie-reproducible-base.tgz] I: copying local configuration W: --override-config is not set; not updating apt.conf Read the manpage for details. I: mounting /proc filesystem I: mounting /sys filesystem I: creating /{dev,run}/shm I: mounting /dev/pts filesystem I: redirecting /dev/ptmx to /dev/pts/ptmx I: policy-rc.d already exists I: Copying source file I: copying [scmail_1.3-4.1.dsc] I: copying [./scmail_1.3.orig.tar.gz] I: copying [./scmail_1.3-4.1.debian.tar.xz] I: Extracting source gpgv: Signature made Sun Feb 7 10:08:21 2021 gpgv: using RSA key 3AFA757FAC6EA11D2FF45DF088D24287A2D898B1 gpgv: Can't check signature: No public key dpkg-source: warning: cannot verify inline signature for ./scmail_1.3-4.1.dsc: no acceptable signature found dpkg-source: info: extracting scmail in scmail-1.3 dpkg-source: info: unpacking scmail_1.3.orig.tar.gz dpkg-source: info: unpacking scmail_1.3-4.1.debian.tar.xz dpkg-source: info: using patch list from debian/patches/series dpkg-source: info: applying 00-debian-changes.diff dpkg-source: info: applying 01-fix-module.diff dpkg-source: info: applying 02-use-scmail-config-core.diff dpkg-source: info: applying 03-fix-scmail.diff dpkg-source: info: applying 04-fix-lock.diff dpkg-source: info: applying 05-fix-tail-option.diff I: using fakeroot in build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/D01_modify_environment starting debug: Running on codethink04-arm64. I: Changing host+domainname to test build reproducibility I: Adding a custom variable just for the fun of it... I: Changing /bin/sh to bash '/bin/sh' -> '/bin/bash' lrwxrwxrwx 1 root root 9 Dec 22 06:11 /bin/sh -> /bin/bash I: Setting pbuilder2's login shell to /bin/bash I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/D01_modify_environment finished I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/D02_print_environment starting I: set BASH=/bin/sh BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath BASH_ALIASES=() BASH_ARGC=() BASH_ARGV=() BASH_CMDS=() BASH_LINENO=([0]="12" [1]="0") BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") BASH_VERSINFO=([0]="5" [1]="2" [2]="37" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") BASH_VERSION='5.2.37(1)-release' BUILDDIR=/build/reproducible-path BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' BUILDUSERNAME=pbuilder2 BUILD_ARCH=arm64 DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' DIRSTACK=() DISTRIBUTION=trixie EUID=0 FUNCNAME=([0]="Echo" [1]="main") GROUPS=() HOME=/root HOSTNAME=i-capture-the-hostname HOSTTYPE=aarch64 HOST_ARCH=arm64 IFS=' ' INVOCATION_ID=fda4d57e3ad34a029c01b6b7bab75abc LANG=C LANGUAGE=nl_BE:nl LC_ALL=C MACHTYPE=aarch64-unknown-linux-gnu MAIL=/var/mail/root OPTERR=1 OPTIND=1 OSTYPE=linux-gnu PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path PBCURRENTCOMMANDLINEOPERATION=build PBUILDER_OPERATION=build PBUILDER_PKGDATADIR=/usr/share/pbuilder PBUILDER_PKGLIBDIR=/usr/lib/pbuilder PBUILDER_SYSCONFDIR=/etc PIPESTATUS=([0]="0") POSIXLY_CORRECT=y PPID=2908475 PS4='+ ' PWD=/ SHELL=/bin/bash SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix SHLVL=3 SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/pbuilderrc_ui8X --distribution trixie --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/b2 --logfile b2/build.log scmail_1.3-4.1.dsc' SUDO_GID=109 SUDO_UID=104 SUDO_USER=jenkins TERM=unknown TZ=/usr/share/zoneinfo/Etc/GMT-14 UID=0 USER=root _='I: set' http_proxy=http://192.168.101.4:3128 I: uname -a Linux i-capture-the-hostname 6.1.0-28-cloud-arm64 #1 SMP Debian 6.1.119-1 (2024-11-22) aarch64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Nov 22 14:40 /bin -> usr/bin I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy Version: 0.invalid.0 Architecture: arm64 Maintainer: Debian Pbuilder Team Description: Dummy package to satisfy dependencies with aptitude - created by pbuilder This package was created automatically by pbuilder to satisfy the build-dependencies of the package being currently built. Depends: quilt (>= 0.46-7~), debhelper (>= 7.0.50~), gauche, gauche-dev (>= 0.9), gauche-gdbm dpkg-deb: building package 'pbuilder-satisfydepends-dummy' in '/tmp/satisfydepends-aptitude/pbuilder-satisfydepends-dummy.deb'. Selecting previously unselected package pbuilder-satisfydepends-dummy. (Reading database ... 20083 files and directories currently installed.) Preparing to unpack .../pbuilder-satisfydepends-dummy.deb ... Unpacking pbuilder-satisfydepends-dummy (0.invalid.0) ... dpkg: pbuilder-satisfydepends-dummy: dependency problems, but configuring anyway as you requested: pbuilder-satisfydepends-dummy depends on quilt (>= 0.46-7~); however: Package quilt is not installed. pbuilder-satisfydepends-dummy depends on debhelper (>= 7.0.50~); however: Package debhelper is not installed. pbuilder-satisfydepends-dummy depends on gauche; however: Package gauche is not installed. pbuilder-satisfydepends-dummy depends on gauche-dev (>= 0.9); however: Package gauche-dev is not installed. pbuilder-satisfydepends-dummy depends on gauche-gdbm; however: Package gauche-gdbm is not installed. Setting up pbuilder-satisfydepends-dummy (0.invalid.0) ... Reading package lists... Building dependency tree... Reading state information... Initializing package states... Writing extended state information... Building tag database... pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) The following NEW packages will be installed: autoconf{a} automake{a} autopoint{a} autotools-dev{a} bsdextrautils{a} debhelper{a} dh-autoreconf{a} dh-strip-nondeterminism{a} diffstat{a} dwz{a} ed{a} file{a} gauche{a} gauche-dev{a} gauche-gdbm{a} gettext{a} gettext-base{a} groff-base{a} intltool-debian{a} libarchive-zip-perl{a} libdebhelper-perl{a} libelf1t64{a} libfile-stripnondeterminism-perl{a} libgauche-0.98-0{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libmbedcrypto16{a} libmbedtls-dev{a} libmbedtls21{a} libmbedx509-7{a} libpipeline1{a} libtool{a} libuchardet0{a} libxml2{a} m4{a} man-db{a} po-debconf{a} quilt{a} sensible-utils{a} The following packages are RECOMMENDED but will NOT be installed: curl less libarchive-cpio-perl libltdl-dev libmail-sendmail-perl lynx wget 0 packages upgraded, 40 newly installed, 0 to remove and 0 not upgraded. Need to get 38.8 MB of archives. After unpacking 203 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian trixie/main arm64 sensible-utils all 0.0.24 [24.8 kB] Get: 2 http://deb.debian.org/debian trixie/main arm64 libmagic-mgc arm64 1:5.45-3+b1 [314 kB] Get: 3 http://deb.debian.org/debian trixie/main arm64 libmagic1t64 arm64 1:5.45-3+b1 [102 kB] Get: 4 http://deb.debian.org/debian trixie/main arm64 file arm64 1:5.45-3+b1 [43.4 kB] Get: 5 http://deb.debian.org/debian trixie/main arm64 gettext-base arm64 0.22.5-3 [198 kB] Get: 6 http://deb.debian.org/debian trixie/main arm64 libuchardet0 arm64 0.0.8-1+b2 [69.2 kB] Get: 7 http://deb.debian.org/debian trixie/main arm64 groff-base arm64 1.23.0-6 [1130 kB] Get: 8 http://deb.debian.org/debian trixie/main arm64 bsdextrautils arm64 2.40.2-12 [91.4 kB] Get: 9 http://deb.debian.org/debian trixie/main arm64 libpipeline1 arm64 1.5.8-1 [40.2 kB] Get: 10 http://deb.debian.org/debian trixie/main arm64 man-db arm64 2.13.0-1 [1404 kB] Get: 11 http://deb.debian.org/debian trixie/main arm64 m4 arm64 1.4.19-4 [277 kB] Get: 12 http://deb.debian.org/debian trixie/main arm64 autoconf all 2.72-3 [493 kB] Get: 13 http://deb.debian.org/debian trixie/main arm64 autotools-dev all 20220109.1 [51.6 kB] Get: 14 http://deb.debian.org/debian trixie/main arm64 automake all 1:1.16.5-1.3 [823 kB] Get: 15 http://deb.debian.org/debian trixie/main arm64 autopoint all 0.22.5-3 [723 kB] Get: 16 http://deb.debian.org/debian trixie/main arm64 libdebhelper-perl all 13.20 [89.7 kB] Get: 17 http://deb.debian.org/debian trixie/main arm64 libtool all 2.4.7-8 [517 kB] Get: 18 http://deb.debian.org/debian trixie/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 19 http://deb.debian.org/debian trixie/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 20 http://deb.debian.org/debian trixie/main arm64 libfile-stripnondeterminism-perl all 1.14.0-1 [19.5 kB] Get: 21 http://deb.debian.org/debian trixie/main arm64 dh-strip-nondeterminism all 1.14.0-1 [8448 B] Get: 22 http://deb.debian.org/debian trixie/main arm64 libelf1t64 arm64 0.192-4 [189 kB] Get: 23 http://deb.debian.org/debian trixie/main arm64 dwz arm64 0.15-1+b1 [102 kB] Get: 24 http://deb.debian.org/debian trixie/main arm64 libicu72 arm64 72.1-5+b1 [9239 kB] Get: 25 http://deb.debian.org/debian trixie/main arm64 libxml2 arm64 2.12.7+dfsg+really2.9.14-0.2+b1 [630 kB] Get: 26 http://deb.debian.org/debian trixie/main arm64 gettext arm64 0.22.5-3 [1532 kB] Get: 27 http://deb.debian.org/debian trixie/main arm64 intltool-debian all 0.35.0+20060710.6 [22.9 kB] Get: 28 http://deb.debian.org/debian trixie/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 29 http://deb.debian.org/debian trixie/main arm64 debhelper all 13.20 [915 kB] Get: 30 http://deb.debian.org/debian trixie/main arm64 diffstat arm64 1.67-1 [32.6 kB] Get: 31 http://deb.debian.org/debian trixie/main arm64 ed arm64 1.20.2-2+b1 [59.8 kB] Get: 32 http://deb.debian.org/debian trixie/main arm64 libgauche-0.98-0 arm64 0.9.15-p2+20241205-2 [4008 kB] Get: 33 http://deb.debian.org/debian trixie/main arm64 libmbedcrypto16 arm64 3.6.2-3 [341 kB] Get: 34 http://deb.debian.org/debian trixie/main arm64 libmbedx509-7 arm64 3.6.2-3 [146 kB] Get: 35 http://deb.debian.org/debian trixie/main arm64 libmbedtls21 arm64 3.6.2-3 [222 kB] Get: 36 http://deb.debian.org/debian trixie/main arm64 gauche arm64 0.9.15-p2+20241205-2 [3220 kB] Get: 37 http://deb.debian.org/debian trixie/main arm64 libmbedtls-dev arm64 3.6.2-3 [810 kB] Get: 38 http://deb.debian.org/debian trixie/main arm64 gauche-dev arm64 0.9.15-p2+20241205-2 [9816 kB] Get: 39 http://deb.debian.org/debian trixie/main arm64 gauche-gdbm arm64 0.9.15-p2+20241205-2 [336 kB] Get: 40 http://deb.debian.org/debian trixie/main arm64 quilt all 0.68-1 [437 kB] Fetched 38.8 MB in 0s (184 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package sensible-utils. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 20083 files and directories currently installed.) Preparing to unpack .../00-sensible-utils_0.0.24_all.deb ... Unpacking sensible-utils (0.0.24) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../01-libmagic-mgc_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic-mgc (1:5.45-3+b1) ... Selecting previously unselected package libmagic1t64:arm64. Preparing to unpack .../02-libmagic1t64_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic1t64:arm64 (1:5.45-3+b1) ... Selecting previously unselected package file. Preparing to unpack .../03-file_1%3a5.45-3+b1_arm64.deb ... Unpacking file (1:5.45-3+b1) ... Selecting previously unselected package gettext-base. Preparing to unpack .../04-gettext-base_0.22.5-3_arm64.deb ... Unpacking gettext-base (0.22.5-3) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../05-libuchardet0_0.0.8-1+b2_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.8-1+b2) ... Selecting previously unselected package groff-base. Preparing to unpack .../06-groff-base_1.23.0-6_arm64.deb ... Unpacking groff-base (1.23.0-6) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../07-bsdextrautils_2.40.2-12_arm64.deb ... Unpacking bsdextrautils (2.40.2-12) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../08-libpipeline1_1.5.8-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.8-1) ... Selecting previously unselected package man-db. Preparing to unpack .../09-man-db_2.13.0-1_arm64.deb ... Unpacking man-db (2.13.0-1) ... Selecting previously unselected package m4. Preparing to unpack .../10-m4_1.4.19-4_arm64.deb ... Unpacking m4 (1.4.19-4) ... Selecting previously unselected package autoconf. Preparing to unpack .../11-autoconf_2.72-3_all.deb ... Unpacking autoconf (2.72-3) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../12-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../13-automake_1%3a1.16.5-1.3_all.deb ... Unpacking automake (1:1.16.5-1.3) ... Selecting previously unselected package autopoint. Preparing to unpack .../14-autopoint_0.22.5-3_all.deb ... Unpacking autopoint (0.22.5-3) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../15-libdebhelper-perl_13.20_all.deb ... Unpacking libdebhelper-perl (13.20) ... Selecting previously unselected package libtool. Preparing to unpack .../16-libtool_2.4.7-8_all.deb ... Unpacking libtool (2.4.7-8) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../17-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../18-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../19-libfile-stripnondeterminism-perl_1.14.0-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.14.0-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../20-dh-strip-nondeterminism_1.14.0-1_all.deb ... Unpacking dh-strip-nondeterminism (1.14.0-1) ... Selecting previously unselected package libelf1t64:arm64. Preparing to unpack .../21-libelf1t64_0.192-4_arm64.deb ... Unpacking libelf1t64:arm64 (0.192-4) ... Selecting previously unselected package dwz. Preparing to unpack .../22-dwz_0.15-1+b1_arm64.deb ... Unpacking dwz (0.15-1+b1) ... Selecting previously unselected package libicu72:arm64. Preparing to unpack .../23-libicu72_72.1-5+b1_arm64.deb ... Unpacking libicu72:arm64 (72.1-5+b1) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../24-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_arm64.deb ... Unpacking libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Selecting previously unselected package gettext. Preparing to unpack .../25-gettext_0.22.5-3_arm64.deb ... Unpacking gettext (0.22.5-3) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../26-intltool-debian_0.35.0+20060710.6_all.deb ... Unpacking intltool-debian (0.35.0+20060710.6) ... Selecting previously unselected package po-debconf. Preparing to unpack .../27-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../28-debhelper_13.20_all.deb ... Unpacking debhelper (13.20) ... Selecting previously unselected package diffstat. Preparing to unpack .../29-diffstat_1.67-1_arm64.deb ... Unpacking diffstat (1.67-1) ... Selecting previously unselected package ed. Preparing to unpack .../30-ed_1.20.2-2+b1_arm64.deb ... Unpacking ed (1.20.2-2+b1) ... Selecting previously unselected package libgauche-0.98-0. Preparing to unpack .../31-libgauche-0.98-0_0.9.15-p2+20241205-2_arm64.deb ... Unpacking libgauche-0.98-0 (0.9.15-p2+20241205-2) ... Selecting previously unselected package libmbedcrypto16:arm64. Preparing to unpack .../32-libmbedcrypto16_3.6.2-3_arm64.deb ... Unpacking libmbedcrypto16:arm64 (3.6.2-3) ... Selecting previously unselected package libmbedx509-7:arm64. Preparing to unpack .../33-libmbedx509-7_3.6.2-3_arm64.deb ... Unpacking libmbedx509-7:arm64 (3.6.2-3) ... Selecting previously unselected package libmbedtls21:arm64. Preparing to unpack .../34-libmbedtls21_3.6.2-3_arm64.deb ... Unpacking libmbedtls21:arm64 (3.6.2-3) ... Selecting previously unselected package gauche. Preparing to unpack .../35-gauche_0.9.15-p2+20241205-2_arm64.deb ... Unpacking gauche (0.9.15-p2+20241205-2) ... Selecting previously unselected package libmbedtls-dev:arm64. Preparing to unpack .../36-libmbedtls-dev_3.6.2-3_arm64.deb ... Unpacking libmbedtls-dev:arm64 (3.6.2-3) ... Selecting previously unselected package gauche-dev. Preparing to unpack .../37-gauche-dev_0.9.15-p2+20241205-2_arm64.deb ... Unpacking gauche-dev (0.9.15-p2+20241205-2) ... Selecting previously unselected package gauche-gdbm. Preparing to unpack .../38-gauche-gdbm_0.9.15-p2+20241205-2_arm64.deb ... Unpacking gauche-gdbm (0.9.15-p2+20241205-2) ... Selecting previously unselected package quilt. Preparing to unpack .../39-quilt_0.68-1_all.deb ... Unpacking quilt (0.68-1) ... Setting up libpipeline1:arm64 (1.5.8-1) ... Setting up libicu72:arm64 (72.1-5+b1) ... Setting up bsdextrautils (2.40.2-12) ... Setting up libmagic-mgc (1:5.45-3+b1) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.20) ... Setting up libmagic1t64:arm64 (1:5.45-3+b1) ... Setting up gettext-base (0.22.5-3) ... Setting up m4 (1.4.19-4) ... Setting up file (1:5.45-3+b1) ... Setting up libelf1t64:arm64 (0.192-4) ... Setting up autotools-dev (20220109.1) ... Setting up ed (1.20.2-2+b1) ... Setting up diffstat (1.67-1) ... Setting up autopoint (0.22.5-3) ... Setting up autoconf (2.72-3) ... Setting up dwz (0.15-1+b1) ... Setting up sensible-utils (0.0.24) ... Setting up libuchardet0:arm64 (0.0.8-1+b2) ... Setting up libmbedcrypto16:arm64 (3.6.2-3) ... Setting up libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Setting up libgauche-0.98-0 (0.9.15-p2+20241205-2) ... Setting up automake (1:1.16.5-1.3) ... update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode Setting up libfile-stripnondeterminism-perl (1.14.0-1) ... Setting up gettext (0.22.5-3) ... Setting up libtool (2.4.7-8) ... Setting up quilt (0.68-1) ... Setting up intltool-debian (0.35.0+20060710.6) ... Setting up dh-autoreconf (20) ... Setting up libmbedx509-7:arm64 (3.6.2-3) ... Setting up libmbedtls21:arm64 (3.6.2-3) ... Setting up dh-strip-nondeterminism (1.14.0-1) ... Setting up groff-base (1.23.0-6) ... Setting up gauche (0.9.15-p2+20241205-2) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up libmbedtls-dev:arm64 (3.6.2-3) ... Setting up man-db (2.13.0-1) ... Not building database; man-db/auto-update is not 'true'. Setting up gauche-dev (0.9.15-p2+20241205-2) ... Setting up gauche-gdbm (0.9.15-p2+20241205-2) ... Setting up debhelper (13.20) ... Processing triggers for libc-bin (2.40-4) ... Reading package lists... Building dependency tree... Reading state information... Reading extended state information... Initializing package states... Writing extended state information... Building tag database... -> Finished parsing the build-deps Reading package lists... Building dependency tree... Reading state information... fakeroot is already the newest version (1.36-1). 0 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. I: Building the package I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/A99_set_merged_usr starting Not re-configuring usrmerge for trixie I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/A99_set_merged_usr finished hostname: Name or service not known I: Running cd /build/reproducible-path/scmail-1.3/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../scmail_1.3-4.1_source.changes dpkg-buildpackage: info: source package scmail dpkg-buildpackage: info: source version 1.3-4.1 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Adrian Bunk dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 fakeroot debian/rules clean dh --with quilt clean dh: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_auto_clean dh_auto_clean: warning: Compatibility levels before 10 are deprecated (level 7 in use) make -j1 clean make[1]: Entering directory '/build/reproducible-path/scmail-1.3' rm -f scmail-deliver scmail-refile scbayes scmail/bayesian-filter.scm dot.scmail/deliver-rules.sample cd doc && make clean make[2]: Entering directory '/build/reproducible-path/scmail-1.3/doc' rm -f scmail.html scmail-ja.html make[2]: Leaving directory '/build/reproducible-path/scmail-1.3/doc' cd tests && make clean make[2]: Entering directory '/build/reproducible-path/scmail-1.3/tests' make[2]: Leaving directory '/build/reproducible-path/scmail-1.3/tests' make[1]: Leaving directory '/build/reproducible-path/scmail-1.3' dh_quilt_unpatch Removing patch 05-fix-tail-option.diff Restoring tests/scmail-commands Removing patch 04-fix-lock.diff Restoring scbayes.in Removing patch 03-fix-scmail.diff Restoring scmail.scm Removing patch 02-use-scmail-config-core.diff Restoring tests/bayesian-filter.scm.in Restoring tests/util.scm Restoring tests/scmail.scm Restoring tests/config.scm Restoring scmail.scm Restoring scmail-deliver.in Restoring scmail-refile.in Restoring scbayes.in Removing patch 01-fix-module.diff Removing scmail/config-core.scm Restoring scmail/util.scm Restoring scmail/config.scm Removing patch 00-debian-changes.diff Restoring doc/embed.scm Restoring Makefile No patches applied dh_clean dh_clean: warning: Compatibility levels before 10 are deprecated (level 7 in use) debian/rules build dh --with quilt build dh: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_quilt_patch Applying patch 00-debian-changes.diff patching file Makefile patching file doc/embed.scm Applying patch 01-fix-module.diff patching file scmail/config-core.scm patching file scmail/config.scm patching file scmail/util.scm Applying patch 02-use-scmail-config-core.diff patching file scbayes.in patching file scmail-refile.in patching file scmail-deliver.in patching file scmail.scm patching file tests/config.scm patching file tests/scmail.scm patching file tests/util.scm patching file tests/bayesian-filter.scm.in Applying patch 03-fix-scmail.diff patching file scmail.scm Applying patch 04-fix-lock.diff patching file scbayes.in Applying patch 05-fix-tail-option.diff patching file tests/scmail-commands Now at patch 05-fix-tail-option.diff dh_update_autotools_config dh_auto_configure dh_auto_configure: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_auto_build dh_auto_build: warning: Compatibility levels before 10 are deprecated (level 7 in use) make -j1 make[1]: Entering directory '/build/reproducible-path/scmail-1.3' gosh -I. check-gauche.scm rm -f scmail-deliver GOSH=`which gosh` && \ sed -e "s!@GOSH@!$GOSH!g" \ scmail-deliver.in > scmail-deliver.tmp mv scmail-deliver.tmp scmail-deliver chmod 555 scmail-deliver rm -f scmail-refile GOSH=`which gosh` && \ sed -e "s!@GOSH@!$GOSH!g" \ scmail-refile.in > scmail-refile.tmp mv scmail-refile.tmp scmail-refile chmod 555 scmail-refile rm -f scbayes GOSH=`which gosh` && \ sed -e "s!@GOSH@!$GOSH!g" \ scbayes.in > scbayes.tmp mv scbayes.tmp scbayes chmod 555 scbayes rm -f scmail/bayesian-filter.scm gosh codeconv.scm scmail/bayesian-filter.scm.in > \ scmail/bayesian-filter.scm chmod -w scmail/bayesian-filter.scm rm -f dot.scmail/deliver-rules.sample gosh codeconv.scm dot.scmail/deliver-rules.sample.in > \ dot.scmail/deliver-rules.sample chmod -w dot.scmail/deliver-rules.sample cd doc && make make[2]: Entering directory '/build/reproducible-path/scmail-1.3/doc' rm -f scmail.html gosh embed.scm scmail.html.in > scmail.html chmod -w scmail.html rm -f scmail-ja.html gosh embed.scm scmail-ja.html.in > scmail-ja.html chmod -w scmail-ja.html make[2]: Leaving directory '/build/reproducible-path/scmail-1.3/doc' make[1]: Leaving directory '/build/reproducible-path/scmail-1.3' dh_auto_test dh_auto_test: warning: Compatibility levels before 10 are deprecated (level 7 in use) make -j1 check make[1]: Entering directory '/build/reproducible-path/scmail-1.3' gosh -I. check-gauche.scm cd doc && make make[2]: Entering directory '/build/reproducible-path/scmail-1.3/doc' make[2]: Nothing to be done for 'all'. make[2]: Leaving directory '/build/reproducible-path/scmail-1.3/doc' cd tests && make check make[2]: Entering directory '/build/reproducible-path/scmail-1.3/tests' rm -f bayesian-filter.scm gosh ../codeconv.scm bayesian-filter.scm.in > bayesian-filter.scm chmod -w bayesian-filter.scm rm -f test-rules gosh ../codeconv.scm test-rules.in > test-rules chmod -w test-rules Testing syntax ... passed. Testing scmail.mail ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 (scmail-mail-remove tmp) at "./mail.scm":41 1 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 2 (eval s #f) 3 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 4 (load-from-port (if ignore-coding port (open-coding-aware-por ... failed. 1 discrepancy found: test scmail-send-mail: expects #t => got #< "scmail-send-mail failed: incomplete string not allowed : #**\"\\xff;\""> Testing scmail.util ... passed. Testing scmail.config ... passed. Testing scmail.progress ... passed. Testing scmail ... passed. Testing scmail.bayesian-filter ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":72 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-discard-words) at "./bayesian-filter.scm":80 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (test "token-table-discard-words" #t (lambda () (learn token- ... at "./bayesian-filter.scm":78 9 (eval s #f) 10 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 11 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":86 7 (thunk) at "/usr/share/gauche-0.98/0.9.15-p2/lib/gauche/test.scm":274 8 (eval s #f) 9 (with-exception-handler (^e (let1 e2 (if (condition? e) ($ ma ... 10 (load-from-port (if ignore-coding port (open-coding-aware-por ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G593 #:G594 (+ (getter #:G593 #:G594) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words (make :file file) table) at "./bayesian-filter.scm":65 4 thunk 5 (proc (car xs)) 6 (learn token-table-collect-words) at "./bayesian-filter.scm":90 7 (do ((#:limit624 4) (i 0 (+ i 1))) ((>= i #:limit624) #: expects () => got "symbols referenced but not defined: scmail-not-implemented-error(37:(scmail-not-implemented-error mailbox 'scmail-mailbox-mail-list)), scmail-not-implemented-error(37:(scmail-not-implemented-error mailbox 'scmail-mailbox-mail-list))" test make-scmail-mailbox: expects #t => got #< "attempt to mutate car of an immutable pair (#f \"Mail\" \"inbox\") with #< 0xffffa00f03e0>"> test scmail-mailbox-mail-list: expects #t => got #< "no applicable method for # with arguments (#f \"inbox\")"> Testing scmail-refile --dry-run ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scmail-refile/scmail-deliver for MH ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scbayes for MH ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scmail-refile/scmail-deliver for Maildir ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scbayes for Maildir ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scbayes --force ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scbayes --unlearn-spam/nonspam ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (unlearn table (get-folders)) at "./../scbayes":466 10 thunk 11 (main args) gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scmail-deliver: output must be empty ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scbayes --flush-interval ... WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) WARNING: # is used in boolean context. Stack Trace: _______________________________________ 0 ((setter getter) #:G684 #:G685 (+ (getter #:G684 #:G685) (sig ... at "libmacro.scm":800 expanded from (quasirename r `(let ((getter ,proc) ,@(map list vars ... 1 (proc (car xs)) 2 (for-each (cut process-token tab <>) tokens) at "../scmail/bayesian-filter.scm":267 3 (process-words mail table-type) at "./../scbayes":265 4 (with-error-handler (lambda (e) (scmail-wformat "~a: ~a" file ... at "./../scbayes":261 5 (proc (car xs)) 6 (for-each (lambda (file) (let* ((mail (make :file file ... at "./../scbayes":257 7 thunk 8 (with-token-table (temporary-table-file) :write (lambda () (l ... at "./../scbayes":326 9 (learn table (get-folders)) at "./../scbayes":463 10 thunk 11 (main args) gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing umask ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing maildir refile: sys-rename is used? ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? Testing scmail-deliver to Maildir/new ... gosh: "ERROR": Test nesting count disrepancy; missing test-start? make[2]: Leaving directory '/build/reproducible-path/scmail-1.3/tests' make[1]: Leaving directory '/build/reproducible-path/scmail-1.3' fakeroot debian/rules binary dh --with quilt binary dh: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_testroot dh_prep dh_installdirs dh_installdirs: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_auto_install --destdir=debian/scmail/ dh_auto_install: warning: Compatibility levels before 10 are deprecated (level 7 in use) make -j1 install DESTDIR=/build/reproducible-path/scmail-1.3/debian/scmail AM_UPDATE_INFO_DIR=no make[1]: Entering directory '/build/reproducible-path/scmail-1.3' mkdir -p /build/reproducible-path/scmail-1.3/debian/scmail/usr/bin mkdir -p /build/reproducible-path/scmail-1.3/debian/scmail/usr/share/scmail mkdir -p /build/reproducible-path/scmail-1.3/debian/scmail`gauche-config --sitelibdir`/scmail mkdir -p /build/reproducible-path/scmail-1.3/debian/scmail/usr/share/doc/scmail/examples cp -fp scmail-deliver scmail-refile scbayes /build/reproducible-path/scmail-1.3/debian/scmail/usr/bin cp -fp dot.scmail/*.sample /build/reproducible-path/scmail-1.3/debian/scmail/usr/share/doc/scmail/examples cp -fp scmail.scm /build/reproducible-path/scmail-1.3/debian/scmail`gauche-config --sitelibdir` cp -fp scmail/*.scm /build/reproducible-path/scmail-1.3/debian/scmail`gauche-config --sitelibdir`/scmail make[1]: Leaving directory '/build/reproducible-path/scmail-1.3' dh_installdocs dh_installdocs: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_installchangelogs dh_installchangelogs: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_perl dh_link dh_link: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_strip_nondeterminism dh_compress dh_compress: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_fixperms dh_missing dh_missing: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_installdeb dh_installdeb: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_gencontrol dh_gencontrol: warning: Compatibility levels before 10 are deprecated (level 7 in use) dh_md5sums dh_builddeb dpkg-deb: building package 'scmail' in '../scmail_1.3-4.1_all.deb'. dpkg-genbuildinfo --build=binary -O../scmail_1.3-4.1_arm64.buildinfo dpkg-genchanges --build=binary -O../scmail_1.3-4.1_arm64.changes dpkg-genchanges: info: binary-only upload (no source code included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: not including original source code in upload I: copying local configuration I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/B01_cleanup starting I: user script /srv/workspace/pbuilder/2908475/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env I: removing directory /srv/workspace/pbuilder/2908475 and its subdirectories I: Current time: Sun Dec 22 20:12:54 +14 2024 I: pbuilder-time-stamp: 1734847974