Sun Dec 22 06:10:14 UTC 2024 I: starting to build scmail/trixie/arm64 on jenkins on '2024-12-22 06:09' Sun Dec 22 06:10:14 UTC 2024 I: The jenkins build log is/was available at https://jenkins.debian.net/userContent/reproducible/debian/build_service/arm64_8/42813/console.log Sun Dec 22 06:10:14 UTC 2024 I: Downloading source for trixie/scmail=1.3-4.1 --2024-12-22 06:10:14-- http://deb.debian.org/debian/pool/main/s/scmail/scmail_1.3-4.1.dsc Connecting to 46.16.76.132:3128... connected. Proxy request sent, awaiting response... 200 OK Length: 1760 (1.7K) [text/prs.lines.tag] Saving to: ‘scmail_1.3-4.1.dsc’ 0K . 100% 282M=0s 2024-12-22 06:10:14 (282 MB/s) - ‘scmail_1.3-4.1.dsc’ saved [1760/1760] Sun Dec 22 06:10:14 UTC 2024 I: scmail_1.3-4.1.dsc -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Format: 3.0 (quilt) Source: scmail Binary: scmail Architecture: all Version: 1.3-4.1 Maintainer: NIIBE Yutaka Homepage: http://www.namazu.org/~satoru/scmail/index.html.en Standards-Version: 3.9.1 Build-Depends: quilt (>= 0.46-7~), debhelper (>= 7.0.50~), gauche, gauche-dev (>= 0.9), gauche-gdbm Package-List: scmail deb mail optional arch=all Checksums-Sha1: 7deda6a196fc001239ce5298fae8bdcbab3f4a33 52315 scmail_1.3.orig.tar.gz 5f6f42564814a0765a804a5d60315b84d4a400b6 5656 scmail_1.3-4.1.debian.tar.xz Checksums-Sha256: faf404cb3dd12860c28e67bb0039680a435c8bd0dc2f251d5f3deed4a22147ff 52315 scmail_1.3.orig.tar.gz ee83c6d7169aa35e960ccd6a72356e9d59bba52a28146b6497ab00fe5c122b77 5656 scmail_1.3-4.1.debian.tar.xz Files: 702f9d40ae29bf51bf611b8d7d8534ca 52315 scmail_1.3.orig.tar.gz 244d16ea723c6d625267612a49344bdb 5656 scmail_1.3-4.1.debian.tar.xz -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEEOvp1f6xuoR0v9F3wiNJCh6LYmLEFAmAfvBUACgkQiNJCh6LY mLFtzg//aBw6uC6OgjYScyw3+Nsj8QTnQcT8Su+m631ms+zBiJE1Qo4OTtM0Yy9a 6knTMaWWlYvzJ81zmaVhpmZeRnUEeljlFl5BS3OPgTPz/uvi3/1L81NLjLphn4ho v+9w3h16O9SuEWuXXnPVCnyDqt5ZfcCbUtGfmg5qLTV/nKAyNCy1D5KLrlVX9545 9K6zGaIcWYG8Y8rzZViOuWddaorUU3aEZ5S28JbdGVdmd7bUCo/tL7/Yvm+TJ80t /YceRIFP1r/fI4oDclDLP+83Pme8sSfUBq6H4F/aKqvm0iK272XCr8niitDaTffP XIFhf1soClJpA5L8EiYphQS79CQF++tuoNnO0SPJb1xuQY4MnCFbkVddlNvmjxi8 AKh3eHtkkARjY6ixuoaRBKe6V7+WVb6y2Td/UsqL5fko7E/11q45ufqL1qv9LFhJ Cyn6BOSPeiPt7+deXmGMg6IlTe4NsszwIkody4ND/iJ2HzbYQr/fWEjlkYdxZZYX hBMowtIH6E/b7KbBZB49sHYZmILwG7d0zUCIXQDc8JPMcvxqVseqsw15Zu7g6lQJ JXwwo5QLORO6k3vN9WIn1AAecmNivG+gURTf+PWDn9hgr2Fn14mis0Rs2zTFXGGO y3nHewn2uwvnyzqZ2PoWkyxpWdObnmF+astou5PJgbIb8aQn5iU= =J4B7 -----END PGP SIGNATURE----- Sun Dec 22 06:10:14 UTC 2024 I: Checking whether the package is not for us Sun Dec 22 06:10:14 UTC 2024 I: Starting 1st build on remote node codethink02-arm64.debian.net. Sun Dec 22 06:10:14 UTC 2024 I: Preparing to do remote build '1' on codethink02-arm64.debian.net. Sun Dec 22 06:11:44 UTC 2024 I: Deleting $TMPDIR on codethink02-arm64.debian.net. I: pbuilder: network access will be disabled during build I: Current time: Sat Dec 21 18:10:17 -12 2024 I: pbuilder-time-stamp: 1734847817 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/400617/tmp/hooks/D02_print_environment starting I: set BUILDDIR='/build/reproducible-path' BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' BUILDUSERNAME='pbuilder1' BUILD_ARCH='arm64' DEBIAN_FRONTEND='noninteractive' DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' DISTRIBUTION='trixie' HOME='/root' HOST_ARCH='arm64' IFS=' ' INVOCATION_ID='b03243abe2934bcfb01708958c6d935f' LANG='C' LANGUAGE='en_US:en' LC_ALL='C' MAIL='/var/mail/root' OPTIND='1' PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' PBCURRENTCOMMANDLINEOPERATION='build' PBUILDER_OPERATION='build' PBUILDER_PKGDATADIR='/usr/share/pbuilder' PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' PBUILDER_SYSCONFDIR='/etc' PPID='400617' PS1='# ' PS2='> ' PS4='+ ' PWD='/' SHELL='/bin/bash' SHLVL='2' SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/pbuilderrc_YR6l --distribution trixie --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/b1 --logfile b1/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+12' USER='root' _='/usr/bin/systemd-run' http_proxy='http://192.168.101.4:3128' I: uname -a Linux codethink02-arm64 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/400617/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 (109 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: Running cd /build/reproducible-path/scmail-1.3/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-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 #< 0xffff7f759240>"> 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: 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/400617 and its subdirectories I: Current time: Sat Dec 21 18:11:43 -12 2024 I: pbuilder-time-stamp: 1734847903 Sun Dec 22 06:11:45 UTC 2024 I: 1st build successful. Starting 2nd build on remote node codethink04-arm64.debian.net. Sun Dec 22 06:11:45 UTC 2024 I: Preparing to do remote build '2' on codethink04-arm64.debian.net. Sun Dec 22 06:12:56 UTC 2024 I: Deleting $TMPDIR on codethink04-arm64.debian.net. Sun Dec 22 06:12:56 UTC 2024 I: scmail_1.3-4.1_arm64.changes: Format: 1.8 Date: Sun, 07 Feb 2021 12:07:09 +0200 Source: scmail Binary: scmail Architecture: all Version: 1.3-4.1 Distribution: unstable Urgency: medium Maintainer: NIIBE Yutaka Changed-By: Adrian Bunk Description: scmail - a mail filter written in Scheme Changes: scmail (1.3-4.1) unstable; urgency=medium . * Non-maintainer upload. * Source-only upload. Checksums-Sha1: 991757aec069f5ef2b5ec5eab8d99a3d81f56495 37920 scmail_1.3-4.1_all.deb f7ed4b4f946d5cca1d29d74c04e9a055e3c375d7 5027 scmail_1.3-4.1_arm64.buildinfo Checksums-Sha256: d0b72cc7a630dccbccde4273cb93bcc3493c64575e3a655bf14f8937afd9db93 37920 scmail_1.3-4.1_all.deb d7db5c567b9a477985e1314956a141fd0b20587efbbc0d7a290bed0067ac48d9 5027 scmail_1.3-4.1_arm64.buildinfo Files: 1cec14a49f2346dbe92ea18b7c20ac9f 37920 mail optional scmail_1.3-4.1_all.deb 195da4269a616d0c6113853f5914cd16 5027 mail optional scmail_1.3-4.1_arm64.buildinfo Sun Dec 22 06:12:57 UTC 2024 I: diffoscope 284 will be used to compare the two builds: Running as unit: rb-diffoscope-arm64_8-42813.service # Profiling output for: /usr/bin/diffoscope --timeout 7200 --html /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/scmail_1.3-4.1.diffoscope.html --text /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/scmail_1.3-4.1.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/scmail_1.3-4.1.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/b1/scmail_1.3-4.1_arm64.changes /srv/reproducible-results/rbuild-debian/r-b-build.hXAmBzLQ/b2/scmail_1.3-4.1_arm64.changes ## command (total time: 0.000s) 0.000s 1 call cmp (internal) ## has_same_content_as (total time: 0.000s) 0.000s 1 call abc.DotChangesFile ## main (total time: 0.428s) 0.428s 2 calls outputs 0.000s 1 call cleanup ## recognizes (total time: 0.016s) 0.016s 12 calls diffoscope.comparators.binary.FilesystemFile ## specialize (total time: 0.000s) 0.000s 1 call specialize Finished with result: success Main processes terminated with: code=exited/status=0 Service runtime: 786ms CPU time consumed: 762ms Sun Dec 22 06:12:59 UTC 2024 I: diffoscope 284 found no differences in the changes files, and a .buildinfo file also exists. Sun Dec 22 06:12:59 UTC 2024 I: scmail from trixie built successfully and reproducibly on arm64. Sun Dec 22 06:13:00 UTC 2024 I: Submitting .buildinfo files to external archives: Sun Dec 22 06:13:00 UTC 2024 I: Submitting 8.0K b1/scmail_1.3-4.1_arm64.buildinfo.asc Sun Dec 22 06:13:01 UTC 2024 I: Submitting 8.0K b2/scmail_1.3-4.1_arm64.buildinfo.asc Sun Dec 22 06:13:02 UTC 2024 I: Done submitting .buildinfo files to http://buildinfo.debian.net/api/submit. Sun Dec 22 06:13:02 UTC 2024 I: Done submitting .buildinfo files. Sun Dec 22 06:13:02 UTC 2024 I: Removing signed scmail_1.3-4.1_arm64.buildinfo.asc files: removed './b1/scmail_1.3-4.1_arm64.buildinfo.asc' removed './b2/scmail_1.3-4.1_arm64.buildinfo.asc'