RUN: /bin/echo ['echo', 'Forking build subprocess...'] Forking build subprocess... RUN: /usr/share/launchpad-buildd/slavebin/unpack-chroot ['unpack-chroot', '37561204dabbca276e67a28bd2b45ffedd916f69', '/home/buildd/filecache-default/25121a7572f17d65ba7d4c7db29be92bd6e19436'] Uncompressing the tarball... Synching the system clock with the buildd NTP service... 9 Apr 19:49:38 ntpdate[3420]: step time server 10.211.37.1 offset -104558.377810 sec Unpacking chroot for build 37561204dabbca276e67a28bd2b45ffedd916f69 RUN: /usr/share/launchpad-buildd/slavebin/mount-chroot ['mount-chroot', '37561204dabbca276e67a28bd2b45ffedd916f69'] Mounting chroot for build 37561204dabbca276e67a28bd2b45ffedd916f69 RUN: /usr/share/launchpad-buildd/slavebin/override-sources-list ['override-sources-list', '37561204dabbca276e67a28bd2b45ffedd916f69', 'deb http://ftpmaster.internal/ubuntu natty main restricted universe multiverse', 'deb http://ftpmaster.internal/ubuntu natty-security main restricted universe multiverse', 'deb http://ftpmaster.internal/ubuntu natty-updates main restricted universe multiverse'] Overriding sources.list in build-37561204dabbca276e67a28bd2b45ffedd916f69 RUN: /usr/share/launchpad-buildd/slavebin/update-debian-chroot ['update-debian-chroot', '37561204dabbca276e67a28bd2b45ffedd916f69', 'i386'] Updating debian chroot for build 37561204dabbca276e67a28bd2b45ffedd916f69 Get:1 http://ftpmaster.internal natty Release.gpg [198 B] Ign http://ftpmaster.internal/ubuntu/ natty/main Translation-en Ign http://ftpmaster.internal/ubuntu/ natty/multiverse Translation-en Ign http://ftpmaster.internal/ubuntu/ natty/restricted Translation-en Ign http://ftpmaster.internal/ubuntu/ natty/universe Translation-en Get:2 http://ftpmaster.internal natty-security Release.gpg [198 B] Ign http://ftpmaster.internal/ubuntu/ natty-security/main Translation-en Ign http://ftpmaster.internal/ubuntu/ natty-security/multiverse Translation-en Ign http://ftpmaster.internal/ubuntu/ natty-security/restricted Translation-en Ign http://ftpmaster.internal/ubuntu/ natty-security/universe Translation-en Get:3 http://ftpmaster.internal natty-updates Release.gpg [198 B] Ign http://ftpmaster.internal/ubuntu/ natty-updates/main Translation-en Ign http://ftpmaster.internal/ubuntu/ natty-updates/multiverse Translation-en Ign http://ftpmaster.internal/ubuntu/ natty-updates/restricted Translation-en Ign http://ftpmaster.internal/ubuntu/ natty-updates/universe Translation-en Get:4 http://ftpmaster.internal natty Release [39.8 kB] Get:5 http://ftpmaster.internal natty-security Release [23.2 kB] Get:6 http://ftpmaster.internal natty-updates Release [23.2 kB] Get:7 http://ftpmaster.internal natty/main i386 Packages [1558 kB] Get:8 http://ftpmaster.internal natty/restricted i386 Packages [9023 B] Get:9 http://ftpmaster.internal natty/universe i386 Packages [6029 kB] Get:10 http://ftpmaster.internal natty/multiverse i386 Packages [183 kB] Get:11 http://ftpmaster.internal natty-security/main i386 Packages [14 B] Get:12 http://ftpmaster.internal natty-security/restricted i386 Packages [14 B] Get:13 http://ftpmaster.internal natty-security/universe i386 Packages [14 B] Get:14 http://ftpmaster.internal natty-security/multiverse i386 Packages [14 B] Get:15 http://ftpmaster.internal natty-updates/main i386 Packages [14 B] Get:16 http://ftpmaster.internal natty-updates/restricted i386 Packages [14 B] Get:17 http://ftpmaster.internal natty-updates/universe i386 Packages [14 B] Get:18 http://ftpmaster.internal natty-updates/multiverse i386 Packages [14 B] Fetched 7866 kB in 5s (1507 kB/s) Reading package lists... Reading package lists... Building dependency tree... Reading state information... The following NEW packages will be installed: libpam-modules-bin multiarch-support The following packages will be upgraded: adduser apt apt-transport-https base-files bash binutils bsdutils busybox-initramfs bzip2 coreutils cpio cpp cpp-4.5 debconf debconf-i18n dpkg dpkg-dev e2fslibs e2fsprogs findutils g++ g++-4.5 gcc gcc-4.5 gcc-4.5-base gnupg gpgv initramfs-tools initramfs-tools-bin initscripts klibc-utils libacl1 libattr1 libblkid1 libbz2-1.0 libc-bin libc-dev-bin libc6 libc6-dev libcomerr2 libdb4.8 libdbus-1-3 libdpkg-perl libdrm-intel1 libdrm-nouveau1a libdrm-radeon1 libdrm2 libgcc1 libgcrypt11 libgdbm3 libglib2.0-0 libgmp3c2 libgmpxx4ldbl libgnutls26 libgomp1 libgpg-error0 libgssapi-krb5-2 libk5crypto3 libkeyutils1 libklibc libkrb5-3 libkrb5support0 libldap-2.4-2 libmpc2 libmpfr4 libnih-dbus1 libnih1 libpam-modules libpam-runtime libpam0g libpcre3 libplymouth2 libpng12-0 libreadline6 libselinux1 libss2 libssl0.9.8 libstdc++6 libstdc++6-4.5-dev libtasn1-3 libudev0 libusb-0.1-4 libuuid1 linux-libc-dev locales login make module-init-tools mount mountall netbase openssl passwd perl perl-base perl-modules pkg-create-dbgsym pkgbinarymangler plymouth procps python2.7-minimal readline-common sysv-rc sysvinit-utils tzdata udev upstart util-linux zlib1g 109 upgraded, 2 newly installed, 0 to remove and 0 not upgraded. Need to get 65.0 MB of archives. After this operation, 1061 kB of additional disk space will be used. WARNING: The following packages cannot be authenticated! libnih-dbus1 libnih1 libc6-dev libc-dev-bin libc-bin libc6 multiarch-support libdbus-1-3 linux-libc-dev libgomp1 gcc-4.5-base libgcc1 cpp-4.5 libstdc++6-4.5-dev g++-4.5 gcc-4.5 libstdc++6 libgmp3c2 libgmpxx4ldbl libmpfr4 libmpc2 zlib1g binutils debconf-i18n debconf tzdata libpam0g libselinux1 libpam-modules-bin libpam-modules base-files bash coreutils dpkg e2fslibs e2fsprogs findutils login mount perl-modules bzip2 libbz2-1.0 libdb4.8 libgdbm3 perl perl-base sysvinit-utils sysv-rc passwd initscripts libudev0 libattr1 libacl1 libpcre3 libglib2.0-0 libusb-0.1-4 module-init-tools initramfs-tools initramfs-tools-bin klibc-utils libklibc busybox-initramfs cpio procps adduser util-linux udev libdrm2 libdrm-intel1 libdrm-nouveau1a libdrm-radeon1 plymouth libpng12-0 libplymouth2 mountall upstart bsdutils libuuid1 libblkid1 libcomerr2 libss2 libgpg-error0 libgcrypt11 libtasn1-3 libgnutls26 libkeyutils1 libk5crypto3 libgssapi-krb5-2 libkrb5-3 libkrb5support0 apt libpam-runtime libssl0.9.8 python2.7-minimal readline-common libreadline6 gpgv gnupg netbase locales apt-transport-https libldap-2.4-2 openssl cpp dpkg-dev libdpkg-perl make gcc g++ pkg-create-dbgsym pkgbinarymangler Authentication warning overridden. Get:1 http://ftpmaster.internal/ubuntu/ natty/main libnih-dbus1 i386 1.0.3-1ubuntu1 [13.1 kB] Get:2 http://ftpmaster.internal/ubuntu/ natty/main libnih1 i386 1.0.3-1ubuntu1 [45.8 kB] Get:3 http://ftpmaster.internal/ubuntu/ natty/main libc6-dev i386 2.13-0ubuntu12 [4827 kB] Get:4 http://ftpmaster.internal/ubuntu/ natty/main libc-dev-bin i386 2.13-0ubuntu12 [77.0 kB] Get:5 http://ftpmaster.internal/ubuntu/ natty/main libc-bin i386 2.13-0ubuntu12 [906 kB] Get:6 http://ftpmaster.internal/ubuntu/ natty/main libc6 i386 2.13-0ubuntu12 [3653 kB] Get:7 http://ftpmaster.internal/ubuntu/ natty/main multiarch-support i386 2.13-0ubuntu12 [8204 B] Get:8 http://ftpmaster.internal/ubuntu/ natty/main libdbus-1-3 i386 1.4.6-1ubuntu6 [122 kB] Get:9 http://ftpmaster.internal/ubuntu/ natty/main linux-libc-dev i386 2.6.38-8.41 [772 kB] Get:10 http://ftpmaster.internal/ubuntu/ natty/main libgomp1 i386 4.5.2-8ubuntu1 [24.0 kB] Get:11 http://ftpmaster.internal/ubuntu/ natty/main gcc-4.5-base i386 4.5.2-8ubuntu1 [14.4 kB] Get:12 http://ftpmaster.internal/ubuntu/ natty/main libgcc1 i386 1:4.5.2-8ubuntu1 [51.5 kB] Get:13 http://ftpmaster.internal/ubuntu/ natty/main cpp-4.5 i386 4.5.2-8ubuntu1 [4154 kB] Get:14 http://ftpmaster.internal/ubuntu/ natty/main libstdc++6-4.5-dev i386 4.5.2-8ubuntu1 [1567 kB] Get:15 http://ftpmaster.internal/ubuntu/ natty/main g++-4.5 i386 4.5.2-8ubuntu1 [6014 kB] Get:16 http://ftpmaster.internal/ubuntu/ natty/main gcc-4.5 i386 4.5.2-8ubuntu1 [6887 kB] Get:17 http://ftpmaster.internal/ubuntu/ natty/main libstdc++6 i386 4.5.2-8ubuntu1 [333 kB] Get:18 http://ftpmaster.internal/ubuntu/ natty/main libgmp3c2 i386 2:4.3.2+dfsg-1ubuntu3 [319 kB] Get:19 http://ftpmaster.internal/ubuntu/ natty/main libgmpxx4ldbl i386 2:4.3.2+dfsg-1ubuntu3 [10.3 kB] Get:20 http://ftpmaster.internal/ubuntu/ natty/main libmpfr4 i386 3.0.0-7 [177 kB] Get:21 http://ftpmaster.internal/ubuntu/ natty/main libmpc2 i386 0.9-1 [37.4 kB] Get:22 http://ftpmaster.internal/ubuntu/ natty/main zlib1g i386 1:1.2.3.4.dfsg-3ubuntu3 [49.3 kB] Get:23 http://ftpmaster.internal/ubuntu/ natty/main binutils i386 2.21.0.20110327-2ubuntu1 [2175 kB] Get:24 http://ftpmaster.internal/ubuntu/ natty/main debconf-i18n all 1.5.36ubuntu4 [208 kB] Get:25 http://ftpmaster.internal/ubuntu/ natty/main debconf all 1.5.36ubuntu4 [140 kB] Get:26 http://ftpmaster.internal/ubuntu/ natty/main tzdata all 2011e-1 [772 kB] Get:27 http://ftpmaster.internal/ubuntu/ natty/main libpam0g i386 1.1.2-2ubuntu7 [51.4 kB] Get:28 http://ftpmaster.internal/ubuntu/ natty/main libselinux1 i386 2.0.96-1ubuntu2 [58.5 kB] Get:29 http://ftpmaster.internal/ubuntu/ natty/main libpam-modules-bin i386 1.1.2-2ubuntu7 [35.0 kB] Get:30 http://ftpmaster.internal/ubuntu/ natty/main libpam-modules i386 1.1.2-2ubuntu7 [263 kB] Get:31 http://ftpmaster.internal/ubuntu/ natty/main base-files i386 5.0.0ubuntu27 [54.3 kB] Get:32 http://ftpmaster.internal/ubuntu/ natty/main bash i386 4.2-0ubuntu3 [544 kB] Get:33 http://ftpmaster.internal/ubuntu/ natty/main coreutils i386 8.5-1ubuntu6 [1836 kB] Get:34 http://ftpmaster.internal/ubuntu/ natty/main dpkg i386 1.16.0~ubuntu6 [1848 kB] Get:35 http://ftpmaster.internal/ubuntu/ natty/main e2fslibs i386 1.41.14-1ubuntu3 [143 kB] Get:36 http://ftpmaster.internal/ubuntu/ natty/main e2fsprogs i386 1.41.14-1ubuntu3 [813 kB] Get:37 http://ftpmaster.internal/ubuntu/ natty/main findutils i386 4.4.2-1ubuntu3 [302 kB] Get:38 http://ftpmaster.internal/ubuntu/ natty/main login i386 1:4.1.4.2+svn3283-3ubuntu1 [279 kB] Get:39 http://ftpmaster.internal/ubuntu/ natty/main mount i386 2.17.2-9.1ubuntu4 [124 kB] Get:40 http://ftpmaster.internal/ubuntu/ natty/main perl-modules all 5.10.1-17ubuntu4 [3442 kB] Get:41 http://ftpmaster.internal/ubuntu/ natty/main bzip2 i386 1.0.5-6ubuntu1 [35.7 kB] Get:42 http://ftpmaster.internal/ubuntu/ natty/main libbz2-1.0 i386 1.0.5-6ubuntu1 [32.7 kB] Get:43 http://ftpmaster.internal/ubuntu/ natty/main libdb4.8 i386 4.8.30-5ubuntu2 [657 kB] Get:44 http://ftpmaster.internal/ubuntu/ natty/main libgdbm3 i386 1.8.3-9ubuntu1 [33.8 kB] Get:45 http://ftpmaster.internal/ubuntu/ natty/main perl i386 5.10.1-17ubuntu4 [3749 kB] Get:46 http://ftpmaster.internal/ubuntu/ natty/main perl-base i386 5.10.1-17ubuntu4 [928 kB] Get:47 http://ftpmaster.internal/ubuntu/ natty/main sysvinit-utils i386 2.87dsf-4ubuntu23 [50.7 kB] Get:48 http://ftpmaster.internal/ubuntu/ natty/main sysv-rc all 2.87dsf-4ubuntu23 [36.4 kB] Get:49 http://ftpmaster.internal/ubuntu/ natty/main passwd i386 1:4.1.4.2+svn3283-3ubuntu1 [871 kB] Get:50 http://ftpmaster.internal/ubuntu/ natty/main initscripts i386 2.87dsf-4ubuntu23 [32.1 kB] Get:51 http://ftpmaster.internal/ubuntu/ natty/main libudev0 i386 167-0ubuntu3 [26.6 kB] Get:52 http://ftpmaster.internal/ubuntu/ natty/main libattr1 i386 1:2.4.44-2ubuntu2 [10.1 kB] Get:53 http://ftpmaster.internal/ubuntu/ natty/main libacl1 i386 2.2.49-4ubuntu2 [16.3 kB] Get:54 http://ftpmaster.internal/ubuntu/ natty/main libpcre3 i386 8.12-3ubuntu2 [148 kB] Get:55 http://ftpmaster.internal/ubuntu/ natty/main libglib2.0-0 i386 2.28.5-0ubuntu1 [971 kB] Get:56 http://ftpmaster.internal/ubuntu/ natty/main libusb-0.1-4 i386 2:0.1.12-17 [15.1 kB] Get:57 http://ftpmaster.internal/ubuntu/ natty/main module-init-tools i386 3.12-1ubuntu6 [80.3 kB] Get:58 http://ftpmaster.internal/ubuntu/ natty/main initramfs-tools all 0.98.8ubuntu3 [52.6 kB] Get:59 http://ftpmaster.internal/ubuntu/ natty/main initramfs-tools-bin i386 0.98.8ubuntu3 [10.9 kB] Get:60 http://ftpmaster.internal/ubuntu/ natty/main klibc-utils i386 1.5.20-1ubuntu4 [153 kB] Get:61 http://ftpmaster.internal/ubuntu/ natty/main libklibc i386 1.5.20-1ubuntu4 [41.9 kB] Get:62 http://ftpmaster.internal/ubuntu/ natty/main busybox-initramfs i386 1:1.17.1-10ubuntu1 [148 kB] Get:63 http://ftpmaster.internal/ubuntu/ natty/main cpio i386 2.11-7ubuntu1 [104 kB] Get:64 http://ftpmaster.internal/ubuntu/ natty/main procps i386 1:3.2.8-10ubuntu3 [212 kB] Get:65 http://ftpmaster.internal/ubuntu/ natty/main adduser all 3.112+nmu1ubuntu5 [99.3 kB] Get:66 http://ftpmaster.internal/ubuntu/ natty/main util-linux i386 2.17.2-9.1ubuntu4 [481 kB] Get:67 http://ftpmaster.internal/ubuntu/ natty/main udev i386 167-0ubuntu3 [365 kB] Get:68 http://ftpmaster.internal/ubuntu/ natty/main libdrm2 i386 2.4.23-1ubuntu6 [22.6 kB] Get:69 http://ftpmaster.internal/ubuntu/ natty/main libdrm-intel1 i386 2.4.23-1ubuntu6 [23.8 kB] Get:70 http://ftpmaster.internal/ubuntu/ natty/main libdrm-nouveau1a i386 2.4.23-1ubuntu6 [14.0 kB] Get:71 http://ftpmaster.internal/ubuntu/ natty/main libdrm-radeon1 i386 2.4.23-1ubuntu6 [14.5 kB] Get:72 http://ftpmaster.internal/ubuntu/ natty/main plymouth i386 0.8.2-2ubuntu21 [112 kB] Get:73 http://ftpmaster.internal/ubuntu/ natty/main libpng12-0 i386 1.2.44-1ubuntu3 [126 kB] Get:74 http://ftpmaster.internal/ubuntu/ natty/main libplymouth2 i386 0.8.2-2ubuntu21 [79.7 kB] Get:75 http://ftpmaster.internal/ubuntu/ natty/main mountall i386 2.25 [44.8 kB] Get:76 http://ftpmaster.internal/ubuntu/ natty/main upstart i386 0.9.4-1ubuntu1 [254 kB] Get:77 http://ftpmaster.internal/ubuntu/ natty/main bsdutils i386 1:2.17.2-9.1ubuntu4 [31.8 kB] Get:78 http://ftpmaster.internal/ubuntu/ natty/main libuuid1 i386 2.17.2-9.1ubuntu4 [13.1 kB] Get:79 http://ftpmaster.internal/ubuntu/ natty/main libblkid1 i386 2.17.2-9.1ubuntu4 [60.4 kB] Get:80 http://ftpmaster.internal/ubuntu/ natty/main libcomerr2 i386 1.41.14-1ubuntu3 [52.9 kB] Get:81 http://ftpmaster.internal/ubuntu/ natty/main libss2 i386 1.41.14-1ubuntu3 [57.4 kB] Get:82 http://ftpmaster.internal/ubuntu/ natty/main libgpg-error0 i386 1.10-0.2ubuntu1 [14.2 kB] Get:83 http://ftpmaster.internal/ubuntu/ natty/main libgcrypt11 i386 1.4.6-4ubuntu2 [250 kB] Get:84 http://ftpmaster.internal/ubuntu/ natty/main libtasn1-3 i386 2.7-1ubuntu1 [41.9 kB] Get:85 http://ftpmaster.internal/ubuntu/ natty/main libgnutls26 i386 2.8.6-1ubuntu2 [365 kB] Get:86 http://ftpmaster.internal/ubuntu/ natty/main libkeyutils1 i386 1.4-4ubuntu2 [6424 B] Get:87 http://ftpmaster.internal/ubuntu/ natty/main libk5crypto3 i386 1.8.3+dfsg-5ubuntu2 [76.8 kB] Get:88 http://ftpmaster.internal/ubuntu/ natty/main libgssapi-krb5-2 i386 1.8.3+dfsg-5ubuntu2 [100 kB] Get:89 http://ftpmaster.internal/ubuntu/ natty/main libkrb5-3 i386 1.8.3+dfsg-5ubuntu2 [327 kB] Get:90 http://ftpmaster.internal/ubuntu/ natty/main libkrb5support0 i386 1.8.3+dfsg-5ubuntu2 [22.2 kB] Get:91 http://ftpmaster.internal/ubuntu/ natty/main apt i386 0.8.13.2ubuntu2 [2100 kB] Get:92 http://ftpmaster.internal/ubuntu/ natty/main libpam-runtime all 1.1.2-2ubuntu7 [42.7 kB] Get:93 http://ftpmaster.internal/ubuntu/ natty/main libssl0.9.8 i386 0.9.8o-5ubuntu1 [757 kB] Get:94 http://ftpmaster.internal/ubuntu/ natty/main python2.7-minimal i386 2.7.1-5ubuntu1 [1510 kB] Get:95 http://ftpmaster.internal/ubuntu/ natty/main readline-common all 6.2-0ubuntu1 [49.8 kB] Get:96 http://ftpmaster.internal/ubuntu/ natty/main libreadline6 i386 6.2-0ubuntu1 [120 kB] Get:97 http://ftpmaster.internal/ubuntu/ natty/main gpgv i386 1.4.11-3ubuntu1 [163 kB] Get:98 http://ftpmaster.internal/ubuntu/ natty/main gnupg i386 1.4.11-3ubuntu1 [748 kB] Get:99 http://ftpmaster.internal/ubuntu/ natty/main netbase all 4.45ubuntu1 [14.8 kB] Get:100 http://ftpmaster.internal/ubuntu/ natty/main locales all 2.13+git20100825-4 [3496 kB] Get:101 http://ftpmaster.internal/ubuntu/ natty/main apt-transport-https i386 0.8.13.2ubuntu2 [19.0 kB] Get:102 http://ftpmaster.internal/ubuntu/ natty/main libldap-2.4-2 i386 2.4.23-6ubuntu6 [160 kB] Get:103 http://ftpmaster.internal/ubuntu/ natty/main openssl i386 0.9.8o-5ubuntu1 [397 kB] Get:104 http://ftpmaster.internal/ubuntu/ natty/main cpp i386 4:4.5.2-1ubuntu1 [27.6 kB] Get:105 http://ftpmaster.internal/ubuntu/ natty/main dpkg-dev all 1.16.0~ubuntu6 [476 kB] Get:106 http://ftpmaster.internal/ubuntu/ natty/main libdpkg-perl all 1.16.0~ubuntu6 [183 kB] Get:107 http://ftpmaster.internal/ubuntu/ natty/main make i386 3.81-8ubuntu1 [109 kB] Get:108 http://ftpmaster.internal/ubuntu/ natty/main gcc i386 4:4.5.2-1ubuntu1 [5068 B] Get:109 http://ftpmaster.internal/ubuntu/ natty/main g++ i386 4:4.5.2-1ubuntu1 [1442 B] Get:110 http://ftpmaster.internal/ubuntu/ natty/main pkg-create-dbgsym all 0.48 [8096 B] Get:111 http://ftpmaster.internal/ubuntu/ natty/main pkgbinarymangler all 95 [23.3 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 65.0 MB in 3s (16.4 MB/s) (Reading database ... 13677 files and directories currently installed.) Preparing to replace libnih-dbus1 1.0.3-1 (using .../libnih-dbus1_1.0.3-1ubuntu1_i386.deb) ... Unpacking replacement libnih-dbus1 ... Preparing to replace libnih1 1.0.3-1 (using .../libnih1_1.0.3-1ubuntu1_i386.deb) ... Unpacking replacement libnih1 ... Preparing to replace libc6-dev 2.12.1-0ubuntu14 (using .../libc6-dev_2.13-0ubuntu12_i386.deb) ... Unpacking replacement libc6-dev ... Preparing to replace libc-dev-bin 2.12.1-0ubuntu14 (using .../libc-dev-bin_2.13-0ubuntu12_i386.deb) ... Unpacking replacement libc-dev-bin ... Preparing to replace libc-bin 2.12.1-0ubuntu14 (using .../libc-bin_2.13-0ubuntu12_i386.deb) ... Unpacking replacement libc-bin ... Setting up libc-bin (2.13-0ubuntu12) ... (Reading database ... 13700 files and directories currently installed.) Preparing to replace libc6 2.12.1-0ubuntu14 (using .../libc6_2.13-0ubuntu12_i386.deb) ... Checking for services that may need to be restarted... Checking init scripts... Unpacking replacement libc6 ... Setting up libc6 (2.13-0ubuntu12) ... Installing new version of config file /etc/ld.so.conf.d/i686-linux-gnu.conf ... Checking for services that may need to be restarted... Checking init scripts... Nothing to restart. Processing triggers for libc-bin ... ldconfig deferred processing now taking place Selecting previously deselected package multiarch-support. (Reading database ... 13701 files and directories currently installed.) Unpacking multiarch-support (from .../multiarch-support_2.13-0ubuntu12_i386.deb) ... Setting up multiarch-support (2.13-0ubuntu12) ... (Reading database ... 13704 files and directories currently installed.) Preparing to replace libdbus-1-3 1.4.1-0ubuntu2 (using .../libdbus-1-3_1.4.6-1ubuntu6_i386.deb) ... Unpacking replacement libdbus-1-3 ... Preparing to replace linux-libc-dev 2.6.38-1.28 (using .../linux-libc-dev_2.6.38-8.41_i386.deb) ... Unpacking replacement linux-libc-dev ... Preparing to replace libgomp1 4.5.2-2ubuntu1 (using .../libgomp1_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement libgomp1 ... Preparing to replace gcc-4.5-base 4.5.2-2ubuntu1 (using .../gcc-4.5-base_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement gcc-4.5-base ... Setting up gcc-4.5-base (4.5.2-8ubuntu1) ... (Reading database ... 13712 files and directories currently installed.) Preparing to replace libgcc1 1:4.5.2-2ubuntu1 (using .../libgcc1_1%3a4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement libgcc1 ... Setting up libgcc1 (1:4.5.2-8ubuntu1) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13712 files and directories currently installed.) Preparing to replace cpp-4.5 4.5.2-2ubuntu1 (using .../cpp-4.5_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement cpp-4.5 ... Preparing to replace libstdc++6-4.5-dev 4.5.2-2ubuntu1 (using .../libstdc++6-4.5-dev_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement libstdc++6-4.5-dev ... Preparing to replace g++-4.5 4.5.2-2ubuntu1 (using .../g++-4.5_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement g++-4.5 ... Preparing to replace gcc-4.5 4.5.2-2ubuntu1 (using .../gcc-4.5_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement gcc-4.5 ... Preparing to replace libstdc++6 4.5.2-2ubuntu1 (using .../libstdc++6_4.5.2-8ubuntu1_i386.deb) ... Unpacking replacement libstdc++6 ... Setting up libstdc++6 (4.5.2-8ubuntu1) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13709 files and directories currently installed.) Preparing to replace libgmp3c2 2:4.3.2+dfsg-1ubuntu1 (using .../libgmp3c2_2%3a4.3.2+dfsg-1ubuntu3_i386.deb) ... Unpacking replacement libgmp3c2 ... Preparing to replace libgmpxx4ldbl 2:4.3.2+dfsg-1ubuntu1 (using .../libgmpxx4ldbl_2%3a4.3.2+dfsg-1ubuntu3_i386.deb) ... Unpacking replacement libgmpxx4ldbl ... Preparing to replace libmpfr4 3.0.0-2build1 (using .../libmpfr4_3.0.0-7_i386.deb) ... Unpacking replacement libmpfr4 ... Preparing to replace libmpc2 0.8.2-1build1 (using .../libmpc2_0.9-1_i386.deb) ... Unpacking replacement libmpc2 ... Preparing to replace zlib1g 1:1.2.3.4.dfsg-3ubuntu1 (using .../zlib1g_1%3a1.2.3.4.dfsg-3ubuntu3_i386.deb) ... Unpacking replacement zlib1g ... Setting up zlib1g (1:1.2.3.4.dfsg-3ubuntu3) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13709 files and directories currently installed.) Preparing to replace binutils 2.21-5ubuntu1 (using .../binutils_2.21.0.20110327-2ubuntu1_i386.deb) ... Unpacking replacement binutils ... Preparing to replace debconf-i18n 1.5.36ubuntu3 (using .../debconf-i18n_1.5.36ubuntu4_all.deb) ... Unpacking replacement debconf-i18n ... Setting up debconf-i18n (1.5.36ubuntu4) ... (Reading database ... 13709 files and directories currently installed.) Preparing to replace debconf 1.5.36ubuntu3 (using .../debconf_1.5.36ubuntu4_all.deb) ... Unpacking replacement debconf ... Setting up debconf (1.5.36ubuntu4) ... (Reading database ... 13709 files and directories currently installed.) Preparing to replace tzdata 2011a-1 (using .../tzdata_2011e-1_all.deb) ... Unpacking replacement tzdata ... Setting up tzdata (2011e-1) ... Current default time zone: 'Etc/UTC' Local time is now: Fri Apr 8 14:50:00 UTC 2011. Universal Time is now: Fri Apr 8 14:50:00 UTC 2011. Run 'dpkg-reconfigure tzdata' if you wish to change it. (Reading database ... 13718 files and directories currently installed.) Preparing to replace libpam0g 1.1.1-4ubuntu2 (using .../libpam0g_1.1.2-2ubuntu7_i386.deb) ... Unpacking replacement libpam0g ... Setting up libpam0g (1.1.2-2ubuntu7) ... Checking for services that may need to be restarted...Checking init scripts... Nothing to restart. Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13718 files and directories currently installed.) Preparing to replace libselinux1 2.0.96-1build1 (using .../libselinux1_2.0.96-1ubuntu2_i386.deb) ... Unpacking replacement libselinux1 ... Setting up libselinux1 (2.0.96-1ubuntu2) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place Selecting previously deselected package libpam-modules-bin. (Reading database ... 13718 files and directories currently installed.) Unpacking libpam-modules-bin (from .../libpam-modules-bin_1.1.2-2ubuntu7_i386.deb) ... Replacing files in old package libpam-modules ... Setting up libpam-modules-bin (1.1.2-2ubuntu7) ... (Reading database ... 13723 files and directories currently installed.) Preparing to replace libpam-modules 1.1.1-4ubuntu2 (using .../libpam-modules_1.1.2-2ubuntu7_i386.deb) ... Unpacking replacement libpam-modules ... Setting up libpam-modules (1.1.2-2ubuntu7) ... Installing new version of config file /etc/security/group.conf ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace base-files 5.0.0ubuntu26 (using .../base-files_5.0.0ubuntu27_i386.deb) ... Unpacking replacement base-files ... Setting up base-files (5.0.0ubuntu27) ... Installing new version of config file /etc/lsb-release ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace bash 4.1-2ubuntu5 (using .../bash_4.2-0ubuntu3_i386.deb) ... Unpacking replacement bash ... Setting up bash (4.2-0ubuntu3) ... update-alternatives: using /usr/share/man/man7/bash-builtins.7.gz to provide /usr/share/man/man7/builtins.7.gz (builtins.7.gz) in auto mode. (Reading database ... 13722 files and directories currently installed.) Preparing to replace coreutils 8.5-1ubuntu5 (using .../coreutils_8.5-1ubuntu6_i386.deb) ... Unpacking replacement coreutils ... Setting up coreutils (8.5-1ubuntu6) ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace dpkg 1.15.8.7ubuntu2 (using .../dpkg_1.16.0~ubuntu6_i386.deb) ... Unpacking replacement dpkg ... Setting up dpkg (1.16.0~ubuntu6) ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace e2fslibs 1.41.14-1ubuntu1 (using .../e2fslibs_1.41.14-1ubuntu3_i386.deb) ... Unpacking replacement e2fslibs ... Setting up e2fslibs (1.41.14-1ubuntu3) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13722 files and directories currently installed.) Preparing to replace e2fsprogs 1.41.14-1ubuntu1 (using .../e2fsprogs_1.41.14-1ubuntu3_i386.deb) ... Unpacking replacement e2fsprogs ... Setting up e2fsprogs (1.41.14-1ubuntu3) ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace findutils 4.4.2-1ubuntu2 (using .../findutils_4.4.2-1ubuntu3_i386.deb) ... Unpacking replacement findutils ... Setting up findutils (4.4.2-1ubuntu3) ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace login 1:4.1.4.2+svn3283-2ubuntu2 (using .../login_1%3a4.1.4.2+svn3283-3ubuntu1_i386.deb) ... Unpacking replacement login ... Setting up login (1:4.1.4.2+svn3283-3ubuntu1) ... Installing new version of config file /etc/pam.d/login ... Installing new version of config file /etc/securetty ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace mount 2.17.2-3.3ubuntu4 (using .../mount_2.17.2-9.1ubuntu4_i386.deb) ... Unpacking replacement mount ... Setting up mount (2.17.2-9.1ubuntu4) ... (Reading database ... 13722 files and directories currently installed.) Preparing to replace perl-modules 5.10.1-17ubuntu1 (using .../perl-modules_5.10.1-17ubuntu4_all.deb) ... Unpacking replacement perl-modules ... Preparing to replace bzip2 1.0.5-6 (using .../bzip2_1.0.5-6ubuntu1_i386.deb) ... Unpacking replacement bzip2 ... Preparing to replace libbz2-1.0 1.0.5-6 (using .../libbz2-1.0_1.0.5-6ubuntu1_i386.deb) ... Unpacking replacement libbz2-1.0 ... Setting up libbz2-1.0 (1.0.5-6ubuntu1) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13720 files and directories currently installed.) Preparing to replace libdb4.8 4.8.30-3 (using .../libdb4.8_4.8.30-5ubuntu2_i386.deb) ... Unpacking replacement libdb4.8 ... Setting up libdb4.8 (4.8.30-5ubuntu2) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13720 files and directories currently installed.) Preparing to replace libgdbm3 1.8.3-9 (using .../libgdbm3_1.8.3-9ubuntu1_i386.deb) ... Unpacking replacement libgdbm3 ... Preparing to replace perl 5.10.1-17ubuntu1 (using .../perl_5.10.1-17ubuntu4_i386.deb) ... Unpacking replacement perl ... Preparing to replace perl-base 5.10.1-17ubuntu1 (using .../perl-base_5.10.1-17ubuntu4_i386.deb) ... Unpacking replacement perl-base ... Setting up perl-base (5.10.1-17ubuntu4) ... (Reading database ... 13719 files and directories currently installed.) Preparing to replace sysvinit-utils 2.87dsf-4ubuntu19 (using .../sysvinit-utils_2.87dsf-4ubuntu23_i386.deb) ... Unpacking replacement sysvinit-utils ... Preparing to replace sysv-rc 2.87dsf-4ubuntu19 (using .../sysv-rc_2.87dsf-4ubuntu23_all.deb) ... Unpacking replacement sysv-rc ... Preparing to replace passwd 1:4.1.4.2+svn3283-2ubuntu2 (using .../passwd_1%3a4.1.4.2+svn3283-3ubuntu1_i386.deb) ... Unpacking replacement passwd ... Setting up passwd (1:4.1.4.2+svn3283-3ubuntu1) ... (Reading database ... 13718 files and directories currently installed.) Preparing to replace initscripts 2.87dsf-4ubuntu19 (using .../initscripts_2.87dsf-4ubuntu23_i386.deb) ... Unpacking replacement initscripts ... Preparing to replace libudev0 165-0ubuntu2 (using .../libudev0_167-0ubuntu3_i386.deb) ... Unpacking replacement libudev0 ... Preparing to replace libattr1 1:2.4.44-2 (using .../libattr1_1%3a2.4.44-2ubuntu2_i386.deb) ... Unpacking replacement libattr1 ... Setting up libattr1 (1:2.4.44-2ubuntu2) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13718 files and directories currently installed.) Preparing to replace libacl1 2.2.49-4 (using .../libacl1_2.2.49-4ubuntu2_i386.deb) ... Unpacking replacement libacl1 ... Setting up libacl1 (2.2.49-4ubuntu2) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13717 files and directories currently installed.) Preparing to replace libpcre3 8.12-0ubuntu2 (using .../libpcre3_8.12-3ubuntu2_i386.deb) ... Unpacking replacement libpcre3 ... Preparing to replace libglib2.0-0 2.27.92-0ubuntu1 (using .../libglib2.0-0_2.28.5-0ubuntu1_i386.deb) ... Unpacking replacement libglib2.0-0 ... Preparing to replace libusb-0.1-4 2:0.1.12-16 (using .../libusb-0.1-4_2%3a0.1.12-17_i386.deb) ... Unpacking replacement libusb-0.1-4 ... Preparing to replace module-init-tools 3.12-1ubuntu3 (using .../module-init-tools_3.12-1ubuntu6_i386.deb) ... Moving obsolete conffile /etc/modprobe.d/intel-5300-iwlagn-disable11n.conf out of the way... Unpacking replacement module-init-tools ... Preparing to replace initramfs-tools 0.98.1ubuntu9 (using .../initramfs-tools_0.98.8ubuntu3_all.deb) ... Unpacking replacement initramfs-tools ... Preparing to replace initramfs-tools-bin 0.98.1ubuntu9 (using .../initramfs-tools-bin_0.98.8ubuntu3_i386.deb) ... Unpacking replacement initramfs-tools-bin ... Preparing to replace klibc-utils 1.5.20-1 (using .../klibc-utils_1.5.20-1ubuntu4_i386.deb) ... Unpacking replacement klibc-utils ... Preparing to replace libklibc 1.5.20-1 (using .../libklibc_1.5.20-1ubuntu4_i386.deb) ... Unpacking replacement libklibc ... Preparing to replace busybox-initramfs 1:1.17.1-8ubuntu1 (using .../busybox-initramfs_1%3a1.17.1-10ubuntu1_i386.deb) ... Unpacking replacement busybox-initramfs ... Preparing to replace cpio 2.11-6ubuntu1 (using .../cpio_2.11-7ubuntu1_i386.deb) ... Unpacking replacement cpio ... Preparing to replace procps 1:3.2.8-10ubuntu1 (using .../procps_1%3a3.2.8-10ubuntu3_i386.deb) ... Unpacking replacement procps ... Preparing to replace adduser 3.112+nmu1ubuntu4 (using .../adduser_3.112+nmu1ubuntu5_all.deb) ... Unpacking replacement adduser ... Preparing to replace util-linux 2.17.2-3.3ubuntu4 (using .../util-linux_2.17.2-9.1ubuntu4_i386.deb) ... Unpacking replacement util-linux ... Setting up util-linux (2.17.2-9.1ubuntu4) ... (Reading database ... 13718 files and directories currently installed.) Preparing to replace udev 165-0ubuntu2 (using .../udev_167-0ubuntu3_i386.deb) ... Adding 'diversion of /sbin/udevadm to /sbin/udevadm.upgrade by fake-udev' Unpacking replacement udev ... Preparing to replace libdrm2 2.4.23-1ubuntu3 (using .../libdrm2_2.4.23-1ubuntu6_i386.deb) ... Unpacking replacement libdrm2 ... Preparing to replace libdrm-intel1 2.4.23-1ubuntu3 (using .../libdrm-intel1_2.4.23-1ubuntu6_i386.deb) ... Unpacking replacement libdrm-intel1 ... Preparing to replace libdrm-nouveau1a 2.4.23-1ubuntu3 (using .../libdrm-nouveau1a_2.4.23-1ubuntu6_i386.deb) ... Unpacking replacement libdrm-nouveau1a ... Preparing to replace libdrm-radeon1 2.4.23-1ubuntu3 (using .../libdrm-radeon1_2.4.23-1ubuntu6_i386.deb) ... Unpacking replacement libdrm-radeon1 ... Preparing to replace plymouth 0.8.2-2ubuntu13 (using .../plymouth_0.8.2-2ubuntu21_i386.deb) ... Unpacking replacement plymouth ... Preparing to replace libpng12-0 1.2.44-1ubuntu1 (using .../libpng12-0_1.2.44-1ubuntu3_i386.deb) ... Unpacking replacement libpng12-0 ... Preparing to replace libplymouth2 0.8.2-2ubuntu13 (using .../libplymouth2_0.8.2-2ubuntu21_i386.deb) ... Unpacking replacement libplymouth2 ... Preparing to replace mountall 2.20+nmu1 (using .../mountall_2.25_i386.deb) ... Unpacking replacement mountall ... Preparing to replace upstart 0.6.7-5 (using .../upstart_0.9.4-1ubuntu1_i386.deb) ... Unpacking replacement upstart ... Preparing to replace bsdutils 1:2.17.2-3.3ubuntu4 (using .../bsdutils_1%3a2.17.2-9.1ubuntu4_i386.deb) ... Unpacking replacement bsdutils ... Setting up bsdutils (1:2.17.2-9.1ubuntu4) ... (Reading database ... 13737 files and directories currently installed.) Preparing to replace libuuid1 2.17.2-3.3ubuntu4 (using .../libuuid1_2.17.2-9.1ubuntu4_i386.deb) ... Unpacking replacement libuuid1 ... Setting up libuuid1 (2.17.2-9.1ubuntu4) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13737 files and directories currently installed.) Preparing to replace libblkid1 2.17.2-3.3ubuntu4 (using .../libblkid1_2.17.2-9.1ubuntu4_i386.deb) ... Unpacking replacement libblkid1 ... Setting up libblkid1 (2.17.2-9.1ubuntu4) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13737 files and directories currently installed.) Preparing to replace libcomerr2 1.41.14-1ubuntu1 (using .../libcomerr2_1.41.14-1ubuntu3_i386.deb) ... Unpacking replacement libcomerr2 ... Setting up libcomerr2 (1.41.14-1ubuntu3) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13737 files and directories currently installed.) Preparing to replace libss2 1.41.14-1ubuntu1 (using .../libss2_1.41.14-1ubuntu3_i386.deb) ... Unpacking replacement libss2 ... Setting up libss2 (1.41.14-1ubuntu3) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13737 files and directories currently installed.) Preparing to replace libgpg-error0 1.10-0.2 (using .../libgpg-error0_1.10-0.2ubuntu1_i386.deb) ... Unpacking replacement libgpg-error0 ... Preparing to replace libgcrypt11 1.4.5-2ubuntu2 (using .../libgcrypt11_1.4.6-4ubuntu2_i386.deb) ... Unpacking replacement libgcrypt11 ... Preparing to replace libtasn1-3 2.7-1 (using .../libtasn1-3_2.7-1ubuntu1_i386.deb) ... Unpacking replacement libtasn1-3 ... Preparing to replace libgnutls26 2.8.6-1ubuntu1 (using .../libgnutls26_2.8.6-1ubuntu2_i386.deb) ... Unpacking replacement libgnutls26 ... Preparing to replace libkeyutils1 1.4-1 (using .../libkeyutils1_1.4-4ubuntu2_i386.deb) ... Unpacking replacement libkeyutils1 ... Preparing to replace libk5crypto3 1.8.3+dfsg-4 (using .../libk5crypto3_1.8.3+dfsg-5ubuntu2_i386.deb) ... Unpacking replacement libk5crypto3 ... Preparing to replace libgssapi-krb5-2 1.8.3+dfsg-4 (using .../libgssapi-krb5-2_1.8.3+dfsg-5ubuntu2_i386.deb) ... Unpacking replacement libgssapi-krb5-2 ... Preparing to replace libkrb5-3 1.8.3+dfsg-4 (using .../libkrb5-3_1.8.3+dfsg-5ubuntu2_i386.deb) ... Unpacking replacement libkrb5-3 ... Preparing to replace libkrb5support0 1.8.3+dfsg-4 (using .../libkrb5support0_1.8.3+dfsg-5ubuntu2_i386.deb) ... Unpacking replacement libkrb5support0 ... Preparing to replace apt 0.8.10ubuntu1 (using .../apt_0.8.13.2ubuntu2_i386.deb) ... Unpacking replacement apt ... Setting up apt (0.8.13.2ubuntu2) ... Installing new version of config file /etc/apt/apt.conf.d/01autoremove ... Installing new version of config file /etc/cron.daily/apt ... gpg: key 437D05B5: "Ubuntu Archive Automatic Signing Key " not changed gpg: key FBB75451: "Ubuntu CD Image Automatic Signing Key " not changed gpg: Total number processed: 2 gpg: unchanged: 2 Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13748 files and directories currently installed.) Preparing to replace libpam-runtime 1.1.1-4ubuntu2 (using .../libpam-runtime_1.1.2-2ubuntu7_all.deb) ... Unpacking replacement libpam-runtime ... Setting up libpam-runtime (1.1.2-2ubuntu7) ... (Reading database ... 13748 files and directories currently installed.) Preparing to replace libssl0.9.8 0.9.8o-4ubuntu1 (using .../libssl0.9.8_0.9.8o-5ubuntu1_i386.deb) ... Unpacking replacement libssl0.9.8 ... Setting up libssl0.9.8 (0.9.8o-5ubuntu1) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place (Reading database ... 13748 files and directories currently installed.) Preparing to replace python2.7-minimal 2.7.1-3 (using .../python2.7-minimal_2.7.1-5ubuntu1_i386.deb) ... Unpacking replacement python2.7-minimal ... Setting up python2.7-minimal (2.7.1-5ubuntu1) ... (Reading database ... 13748 files and directories currently installed.) Preparing to replace readline-common 6.1-3 (using .../readline-common_6.2-0ubuntu1_all.deb) ... Unpacking replacement readline-common ... Preparing to replace libreadline6 6.1-3 (using .../libreadline6_6.2-0ubuntu1_i386.deb) ... Unpacking replacement libreadline6 ... Preparing to replace gpgv 1.4.10-4ubuntu2 (using .../gpgv_1.4.11-3ubuntu1_i386.deb) ... Unpacking replacement gpgv ... Preparing to replace gnupg 1.4.10-4ubuntu2 (using .../gnupg_1.4.11-3ubuntu1_i386.deb) ... Unpacking replacement gnupg ... Preparing to replace netbase 4.44ubuntu1 (using .../netbase_4.45ubuntu1_all.deb) ... Unpacking replacement netbase ... Preparing to replace locales 2.13+git20100825-2 (using .../locales_2.13+git20100825-4_all.deb) ... Unpacking replacement locales ... Preparing to replace apt-transport-https 0.8.10ubuntu1 (using .../apt-transport-https_0.8.13.2ubuntu2_i386.deb) ... Unpacking replacement apt-transport-https ... Preparing to replace libldap-2.4-2 2.4.23-6ubuntu4 (using .../libldap-2.4-2_2.4.23-6ubuntu6_i386.deb) ... Unpacking replacement libldap-2.4-2 ... Preparing to replace openssl 0.9.8o-4ubuntu1 (using .../openssl_0.9.8o-5ubuntu1_i386.deb) ... Unpacking replacement openssl ... Preparing to replace cpp 4:4.5.1-1ubuntu3 (using .../cpp_4%3a4.5.2-1ubuntu1_i386.deb) ... Unpacking replacement cpp ... Preparing to replace dpkg-dev 1.15.8.7ubuntu2 (using .../dpkg-dev_1.16.0~ubuntu6_all.deb) ... Unpacking replacement dpkg-dev ... Preparing to replace libdpkg-perl 1.15.8.7ubuntu2 (using .../libdpkg-perl_1.16.0~ubuntu6_all.deb) ... Unpacking replacement libdpkg-perl ... Preparing to replace make 3.81-8 (using .../make_3.81-8ubuntu1_i386.deb) ... Unpacking replacement make ... Preparing to replace gcc 4:4.5.1-1ubuntu3 (using .../gcc_4%3a4.5.2-1ubuntu1_i386.deb) ... Removing old gcc doc directory. Unpacking replacement gcc ... Preparing to replace g++ 4:4.5.1-1ubuntu3 (using .../g++_4%3a4.5.2-1ubuntu1_i386.deb) ... Unpacking replacement g++ ... Preparing to replace pkg-create-dbgsym 0.46 (using .../pkg-create-dbgsym_0.48_all.deb) ... Unpacking replacement pkg-create-dbgsym ... Preparing to replace pkgbinarymangler 91 (using .../pkgbinarymangler_95_all.deb) ... Unpacking replacement pkgbinarymangler ... Setting up libnih1 (1.0.3-1ubuntu1) ... Setting up libdbus-1-3 (1.4.6-1ubuntu6) ... Setting up libnih-dbus1 (1.0.3-1ubuntu1) ... Setting up libc-dev-bin (2.13-0ubuntu12) ... Setting up linux-libc-dev (2.6.38-8.41) ... Setting up libc6-dev (2.13-0ubuntu12) ... Setting up libgomp1 (4.5.2-8ubuntu1) ... Setting up libgmp3c2 (2:4.3.2+dfsg-1ubuntu3) ... Setting up libgmpxx4ldbl (2:4.3.2+dfsg-1ubuntu3) ... Setting up libmpfr4 (3.0.0-7) ... Setting up libmpc2 (0.9-1) ... Setting up cpp-4.5 (4.5.2-8ubuntu1) ... Setting up binutils (2.21.0.20110327-2ubuntu1) ... Setting up gcc-4.5 (4.5.2-8ubuntu1) ... Setting up libgdbm3 (1.8.3-9ubuntu1) ... Setting up bzip2 (1.0.5-6ubuntu1) ... Setting up sysvinit-utils (2.87dsf-4ubuntu23) ... Setting up sysv-rc (2.87dsf-4ubuntu23) ... Setting up libudev0 (167-0ubuntu3) ... Setting up libpcre3 (8.12-3ubuntu2) ... Setting up libglib2.0-0 (2.28.5-0ubuntu1) ... Setting up libusb-0.1-4 (2:0.1.12-17) ... Setting up initramfs-tools-bin (0.98.8ubuntu3) ... Setting up libklibc (1.5.20-1ubuntu4) ... Setting up klibc-utils (1.5.20-1ubuntu4) ... Setting up busybox-initramfs (1:1.17.1-10ubuntu1) ... Setting up cpio (2.11-7ubuntu1) ... Setting up adduser (3.112+nmu1ubuntu5) ... Setting up libdrm2 (2.4.23-1ubuntu6) ... Setting up libdrm-intel1 (2.4.23-1ubuntu6) ... Setting up libdrm-nouveau1a (2.4.23-1ubuntu6) ... Setting up libdrm-radeon1 (2.4.23-1ubuntu6) ... Setting up libpng12-0 (1.2.44-1ubuntu3) ... Setting up libplymouth2 (0.8.2-2ubuntu21) ... Setting up libgpg-error0 (1.10-0.2ubuntu1) ... Setting up libgcrypt11 (1.4.6-4ubuntu2) ... Setting up libtasn1-3 (2.7-1ubuntu1) ... Setting up libgnutls26 (2.8.6-1ubuntu2) ... Setting up libkeyutils1 (1.4-4ubuntu2) ... Setting up libkrb5support0 (1.8.3+dfsg-5ubuntu2) ... Setting up libk5crypto3 (1.8.3+dfsg-5ubuntu2) ... Setting up libkrb5-3 (1.8.3+dfsg-5ubuntu2) ... Setting up libgssapi-krb5-2 (1.8.3+dfsg-5ubuntu2) ... Setting up readline-common (6.2-0ubuntu1) ... Setting up libreadline6 (6.2-0ubuntu1) ... Setting up gpgv (1.4.11-3ubuntu1) ... Setting up gnupg (1.4.11-3ubuntu1) ... Setting up locales (2.13+git20100825-4) ... Setting up apt-transport-https (0.8.13.2ubuntu2) ... Setting up libldap-2.4-2 (2.4.23-6ubuntu6) ... Setting up openssl (0.9.8o-5ubuntu1) ... Setting up cpp (4:4.5.2-1ubuntu1) ... Setting up make (3.81-8ubuntu1) ... Setting up gcc (4:4.5.2-1ubuntu1) ... Setting up pkg-create-dbgsym (0.48) ... Setting up pkgbinarymangler (95) ... Setting up libstdc++6-4.5-dev (4.5.2-8ubuntu1) ... Setting up perl-modules (5.10.1-17ubuntu4) ... Setting up mountall (2.25) ... Installing new version of config file /etc/init/mounted-tmp.conf ... Setting up upstart (0.9.4-1ubuntu1) ... Installing new version of config file /etc/init/rc-sysinit.conf ... Installing new version of config file /etc/init/upstart-udev-bridge.conf ... Setting up initscripts (2.87dsf-4ubuntu23) ... Installing new version of config file /etc/init.d/sendsigs ... Installing new version of config file /etc/init.d/umountnfs.sh ... Installing new version of config file /etc/init.d/umountroot ... Setting up netbase (4.45ubuntu1) ... Installing new version of config file /etc/protocols ... Installing new version of config file /etc/services ... Setting up g++-4.5 (4.5.2-8ubuntu1) ... Setting up perl (5.10.1-17ubuntu4) ... Setting up module-init-tools (3.12-1ubuntu6) ... Installing new version of config file /etc/modprobe.d/blacklist-framebuffer.conf ... Removing obsolete conffile /etc/modprobe.d/intel-5300-iwlagn-disable11n.conf ... Setting up initramfs-tools (0.98.8ubuntu3) ... update-initramfs: deferring update (trigger activated) Setting up procps (1:3.2.8-10ubuntu3) ... Setting up udev (167-0ubuntu3) ... Removing 'diversion of /sbin/udevadm to /sbin/udevadm.upgrade by fake-udev' update-initramfs: deferring update (trigger activated) Setting up plymouth (0.8.2-2ubuntu21) ... Installing new version of config file /etc/init/plymouth-splash.conf ... update-initramfs: deferring update (trigger activated) Setting up libdpkg-perl (1.16.0~ubuntu6) ... Setting up dpkg-dev (1.16.0~ubuntu6) ... Setting up g++ (4:4.5.2-1ubuntu1) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place Processing triggers for initramfs-tools ... RUN: /usr/share/launchpad-buildd/slavebin/sbuild-package ['sbuild-package', '37561204dabbca276e67a28bd2b45ffedd916f69', 'i386', 'natty', '--nolog', '--batch', '--archive=ubuntu', '--dist=natty', '-A', '--purpose=COPY', '--architecture=i386', '--comp=universe', 'stumpwm_20100709.gitf6262b0-1.dsc'] Initiating build 37561204dabbca276e67a28bd2b45ffedd916f69 with 2 processor cores. Automatic build of stumpwm_20100709.gitf6262b0-1 on radium by sbuild/i386 1.170.5 Build started at 20110408-1451 ****************************************************************************** stumpwm_20100709.gitf6262b0-1.dsc exists in cwd ** Using build dependencies supplied by package: Build-Depends: debhelper (>= 7.0.0) Build-Depends-Indep: dh-lisp, texinfo, autoconf, sbcl, cl-clx-sbcl, cl-ppcre Checking for already installed source dependencies... debhelper: missing dh-lisp: missing texinfo: missing autoconf: missing sbcl: missing cl-clx-sbcl: missing cl-ppcre: missing Checking for source dependency conflicts... /usr/bin/sudo /usr/bin/apt-get --purge $CHROOT_OPTIONS -q -y install debhelper dh-lisp texinfo autoconf sbcl cl-clx-sbcl cl-ppcre Reading package lists... Building dependency tree... Reading state information... The following extra packages will be installed: bsdmainutils cl-asdf common-lisp-controller file gettext gettext-base groff-base html2text intltool-debian libcroco3 libmagic1 libpipeline1 libunistring0 libxml2 m4 man-db po-debconf realpath Suggested packages: autoconf2.13 autoconf-archive gnu-standards autoconf-doc libtool wamerican wordlist whois vacation darcs dh-make gettext-doc groff less www-browser libmail-box-perl sbcl-doc sbcl-source slime texlive-base texlive-latex-base texlive-generic-recommended texinfo-doc-nonfree Recommended packages: automake automaken curl wget lynx-cur xml-core libmail-sendmail-perl binfmt-support The following NEW packages will be installed: autoconf bsdmainutils cl-asdf cl-clx-sbcl cl-ppcre common-lisp-controller debhelper dh-lisp file gettext gettext-base groff-base html2text intltool-debian libcroco3 libmagic1 libpipeline1 libunistring0 libxml2 m4 man-db po-debconf realpath sbcl texinfo 0 upgraded, 25 newly installed, 0 to remove and 0 not upgraded. Need to get 17.7 MB of archives. After this operation, 60.3 MB of additional disk space will be used. WARNING: The following packages cannot be authenticated! libmagic1 file bsdmainutils gettext-base groff-base libpipeline1 libxml2 man-db m4 autoconf cl-asdf realpath common-lisp-controller cl-clx-sbcl cl-ppcre html2text libcroco3 libunistring0 gettext intltool-debian po-debconf debhelper dh-lisp sbcl texinfo Authentication warning overridden. Get:1 http://ftpmaster.internal/ubuntu/ natty/main libmagic1 i386 5.04-5ubuntu2 [204 kB] Get:2 http://ftpmaster.internal/ubuntu/ natty/main file i386 5.04-5ubuntu2 [22.1 kB] Get:3 http://ftpmaster.internal/ubuntu/ natty/main bsdmainutils i386 8.2.2 [191 kB] Get:4 http://ftpmaster.internal/ubuntu/ natty/main gettext-base i386 0.18.1.1-3ubuntu1 [56.6 kB] Get:5 http://ftpmaster.internal/ubuntu/ natty/main groff-base i386 1.21-5 [990 kB] Get:6 http://ftpmaster.internal/ubuntu/ natty/main libpipeline1 i386 1.2.0-1 [23.5 kB] Get:7 http://ftpmaster.internal/ubuntu/ natty/main libxml2 i386 2.7.8.dfsg-2 [607 kB] Get:8 http://ftpmaster.internal/ubuntu/ natty/main man-db i386 2.5.9-4 [676 kB] Get:9 http://ftpmaster.internal/ubuntu/ natty/main m4 i386 1.4.14-3 [276 kB] Get:10 http://ftpmaster.internal/ubuntu/ natty/main autoconf all 2.67-2ubuntu1 [569 kB] Get:11 http://ftpmaster.internal/ubuntu/ natty/universe cl-asdf all 2:2.011-1 [510 kB] Get:12 http://ftpmaster.internal/ubuntu/ natty/main realpath i386 1.15build1 [14.8 kB] Get:13 http://ftpmaster.internal/ubuntu/ natty/universe common-lisp-controller all 7.6 [22.2 kB] Get:14 http://ftpmaster.internal/ubuntu/ natty/universe cl-clx-sbcl i386 0.7.4-4 [455 kB] Get:15 http://ftpmaster.internal/ubuntu/ natty/universe cl-ppcre all 2.0.1-2 [102 kB] Get:16 http://ftpmaster.internal/ubuntu/ natty/main html2text i386 1.3.2a-15 [101 kB] Get:17 http://ftpmaster.internal/ubuntu/ natty/main libcroco3 i386 0.6.2-1 [92.5 kB] Get:18 http://ftpmaster.internal/ubuntu/ natty/main libunistring0 i386 0.9.3-3 [423 kB] Get:19 http://ftpmaster.internal/ubuntu/ natty/main gettext i386 0.18.1.1-3ubuntu1 [1180 kB] Get:20 http://ftpmaster.internal/ubuntu/ natty/main intltool-debian all 0.35.0+20060710.1 [31.6 kB] Get:21 http://ftpmaster.internal/ubuntu/ natty/main po-debconf all 1.0.16+nmu1 [212 kB] Get:22 http://ftpmaster.internal/ubuntu/ natty/main debhelper all 8.1.2ubuntu4 [482 kB] Get:23 http://ftpmaster.internal/ubuntu/ natty/universe dh-lisp all 0.6.6 [10.2 kB] Get:24 http://ftpmaster.internal/ubuntu/ natty/universe sbcl i386 1:1.0.45.0-1ubuntu1 [10.0 MB] Get:25 http://ftpmaster.internal/ubuntu/ natty/main texinfo i386 4.13a.dfsg.1-6ubuntu3 [437 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 17.7 MB in 1s (16.5 MB/s) Selecting previously deselected package libmagic1. (Reading database ... 13746 files and directories currently installed.) Unpacking libmagic1 (from .../libmagic1_5.04-5ubuntu2_i386.deb) ... Selecting previously deselected package file. Unpacking file (from .../file_5.04-5ubuntu2_i386.deb) ... Selecting previously deselected package bsdmainutils. Unpacking bsdmainutils (from .../bsdmainutils_8.2.2_i386.deb) ... Selecting previously deselected package gettext-base. Unpacking gettext-base (from .../gettext-base_0.18.1.1-3ubuntu1_i386.deb) ... Selecting previously deselected package groff-base. Unpacking groff-base (from .../groff-base_1.21-5_i386.deb) ... Selecting previously deselected package libpipeline1. Unpacking libpipeline1 (from .../libpipeline1_1.2.0-1_i386.deb) ... Selecting previously deselected package libxml2. Unpacking libxml2 (from .../libxml2_2.7.8.dfsg-2_i386.deb) ... Selecting previously deselected package man-db. Unpacking man-db (from .../man-db_2.5.9-4_i386.deb) ... Selecting previously deselected package m4. Unpacking m4 (from .../archives/m4_1.4.14-3_i386.deb) ... Selecting previously deselected package autoconf. Unpacking autoconf (from .../autoconf_2.67-2ubuntu1_all.deb) ... Selecting previously deselected package cl-asdf. Unpacking cl-asdf (from .../cl-asdf_2%3a2.011-1_all.deb) ... Selecting previously deselected package realpath. Unpacking realpath (from .../realpath_1.15build1_i386.deb) ... Selecting previously deselected package common-lisp-controller. Unpacking common-lisp-controller (from .../common-lisp-controller_7.6_all.deb) ... Selecting previously deselected package cl-clx-sbcl. Unpacking cl-clx-sbcl (from .../cl-clx-sbcl_0.7.4-4_i386.deb) ... Selecting previously deselected package cl-ppcre. Unpacking cl-ppcre (from .../cl-ppcre_2.0.1-2_all.deb) ... Selecting previously deselected package html2text. Unpacking html2text (from .../html2text_1.3.2a-15_i386.deb) ... Selecting previously deselected package libcroco3. Unpacking libcroco3 (from .../libcroco3_0.6.2-1_i386.deb) ... Selecting previously deselected package libunistring0. Unpacking libunistring0 (from .../libunistring0_0.9.3-3_i386.deb) ... Selecting previously deselected package gettext. Unpacking gettext (from .../gettext_0.18.1.1-3ubuntu1_i386.deb) ... Selecting previously deselected package intltool-debian. Unpacking intltool-debian (from .../intltool-debian_0.35.0+20060710.1_all.deb) ... Selecting previously deselected package po-debconf. Unpacking po-debconf (from .../po-debconf_1.0.16+nmu1_all.deb) ... Selecting previously deselected package debhelper. Unpacking debhelper (from .../debhelper_8.1.2ubuntu4_all.deb) ... Selecting previously deselected package dh-lisp. Unpacking dh-lisp (from .../archives/dh-lisp_0.6.6_all.deb) ... Selecting previously deselected package sbcl. Unpacking sbcl (from .../sbcl_1%3a1.0.45.0-1ubuntu1_i386.deb) ... Selecting previously deselected package texinfo. Unpacking texinfo (from .../texinfo_4.13a.dfsg.1-6ubuntu3_i386.deb) ... Setting up libmagic1 (5.04-5ubuntu2) ... Setting up file (5.04-5ubuntu2) ... Setting up bsdmainutils (8.2.2) ... update-alternatives: using /usr/bin/bsd-write to provide /usr/bin/write (write) in auto mode. update-alternatives: using /usr/bin/bsd-from to provide /usr/bin/from (from) in auto mode. Setting up gettext-base (0.18.1.1-3ubuntu1) ... Setting up groff-base (1.21-5) ... Setting up libpipeline1 (1.2.0-1) ... Setting up libxml2 (2.7.8.dfsg-2) ... Setting up man-db (2.5.9-4) ... Building database of manual pages ... Setting up m4 (1.4.14-3) ... Setting up autoconf (2.67-2ubuntu1) ... Setting up cl-asdf (2:2.011-1) ... Reinstalling for sbcl Recompiling Common Lisp Controller for sbcl /usr/lib/common-lisp/bin/sbcl.sh loading and dumping clc. [undoing binding stack and other enclosing state... done] [saving current Lisp image into sbcl-new.core: writing 3512 bytes from the read-only space at 0x01000000 writing 2256 bytes from the static space at 0x01100000 writing 28712960 bytes from the dynamic space at 0x09000000 done] Done rebuilding Setting up realpath (1.15build1) ... Setting up common-lisp-controller (7.6) ... Reinstalling for sbcl Recompiling Common Lisp Controller for sbcl /usr/lib/common-lisp/bin/sbcl.sh loading and dumping clc. [undoing binding stack and other enclosing state... done] [saving current Lisp image into sbcl-new.core: writing 3512 bytes from the read-only space at 0x01000000 writing 2256 bytes from the static space at 0x01100000 writing 28712960 bytes from the dynamic space at 0x09000000 done] Done rebuilding Adding system user `cl-builder' (UID 101) ... Adding new group `cl-builder' (GID 102) ... Adding new user `cl-builder' (UID 101) with group `cl-builder' ... Not creating home directory `/usr/share/common-lisp/'. Setting up cl-clx-sbcl (0.7.4-4) ... Setting up cl-ppcre (2.0.1-2) ... Setting up html2text (1.3.2a-15) ... Setting up libcroco3 (0.6.2-1) ... Setting up libunistring0 (0.9.3-3) ... Setting up gettext (0.18.1.1-3ubuntu1) ... Setting up intltool-debian (0.35.0+20060710.1) ... Setting up po-debconf (1.0.16+nmu1) ... Setting up debhelper (8.1.2ubuntu4) ... Setting up dh-lisp (0.6.6) ... Setting up sbcl (1:1.0.45.0-1ubuntu1) ... /usr/lib/common-lisp/bin/sbcl.sh loading and dumping clc. [undoing binding stack and other enclosing state... done] [saving current Lisp image into sbcl-new.core: writing 3512 bytes from the read-only space at 0x01000000 writing 2256 bytes from the static space at 0x01100000 writing 28712960 bytes from the dynamic space at 0x09000000 done] Setting up texinfo (4.13a.dfsg.1-6ubuntu3) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place Checking correctness of source dependencies... Toolchain package versions: libc6-dev_2.13-0ubuntu12 make_3.81-8ubuntu1 dpkg-dev_1.16.0~ubuntu6 gcc-4.5_4.5.2-8ubuntu1 g++-4.5_4.5.2-8ubuntu1 binutils_2.21.0.20110327-2ubuntu1 libstdc++6-4.5-dev_4.5.2-8ubuntu1 libstdc++6_4.5.2-8ubuntu1 ------------------------------------------------------------------------------ dpkg-source: warning: -sn is not a valid option for Dpkg::Source::Package::V3::quilt gpgv: Signature made Fri Aug 20 12:27:26 2010 UTC using RSA key ID 3BE9F36D gpgv: Can't check signature: public key not found dpkg-source: warning: failed to verify signature on ./stumpwm_20100709.gitf6262b0-1.dsc dpkg-source: info: extracting stumpwm in stumpwm-20100709.gitf6262b0 dpkg-source: info: unpacking stumpwm_20100709.gitf6262b0.orig.tar.gz dpkg-source: info: unpacking stumpwm_20100709.gitf6262b0-1.debian.tar.gz dpkg-source: info: applying 02_correct-Stumpwm-StumpWM-in-README.diff dpkg-source: info: applying 04_default-to-x-terminal-emulator.diff dpkg-source: info: applying 05_default-to-x-www-browser.diff dpkg-source: info: applying 06_add-upstream-changelog.diff dpkg-source: info: applying 07_use-clc-require-for-manual-creation.diff dpkg-buildpackage: export CFLAGS from dpkg-buildflags (origin: vendor): -g -O2 dpkg-buildpackage: export CPPFLAGS from dpkg-buildflags (origin: vendor): dpkg-buildpackage: export CXXFLAGS from dpkg-buildflags (origin: vendor): -g -O2 dpkg-buildpackage: export FFLAGS from dpkg-buildflags (origin: vendor): -g -O2 dpkg-buildpackage: export LDFLAGS from dpkg-buildflags (origin: vendor): -Wl,-Bsymbolic-functions dpkg-buildpackage: source package stumpwm dpkg-buildpackage: source version 1:20100709.gitf6262b0-1 dpkg-source --before-build stumpwm-20100709.gitf6262b0 dpkg-buildpackage: host architecture i386 /usr/bin/fakeroot debian/rules clean dh_testdir dh_testroot [ ! -f Makefile ] || /usr/bin/make clean rm -rf autom4te.cache Makefile make-image.lisp version.lisp config.log config.status configure dh_clean debian/rules build ./autogen.sh ./configure --with-lisp=sbcl \ --with-contrib-dir=/usr/share/common-lisp/source/stumpwm/contrib \ --with-ppcre=/usr/share/common-lisp/source/cl-ppcre checking for sbcl... /usr/bin/sbcl checking for clisp... no checking for ccl... no checking for ecl... no configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes checking for xdpyinfo... no configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating version.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating version.lisp config.status: creating module.lisp sed -e 's/@PACKAGE_VERSION@/Debian Git checkout 1:20100709.gitf6262b0-1/' version.lisp.in >version.lisp /usr/bin/make stumpwm.info make[1]: Entering directory `/build/buildd/stumpwm-20100709.gitf6262b0' /usr/bin/sbcl --eval "(progn (clc:clc-require 'asdf) (clc:clc-require 'stumpwm) (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 1.0.45.0.debian, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. ;;; Please wait, recompiling library... ; compiling file "/usr/share/common-lisp/source/cl-asdf/asdf.lisp" (written 28 NOV 2010 06:26:07 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (UNLESS (FIND-PACKAGE :ASDF) ...) ; compiling (IN-PACKAGE :ASDF) ; compiling (DEFVAR *ASDF-VERSION* ...) ; compiling (DEFVAR *UPGRADED-P* ...) ; compiling (LET* (# # ...) ...) ; compiling (DEFUN ASDF-VERSION ...) ; compiling (DEFVAR *RESOLVE-SYMLINKS* ...) ; compiling (DEFVAR *COMPILE-FILE-WARNINGS-BEHAVIOUR* ...) ; compiling (DEFVAR *COMPILE-FILE-FAILURE-BEHAVIOUR* ...) ; compiling (DEFVAR *VERBOSE-OUT* ...) ; compiling (DEFVAR *ASDF-VERBOSE* ...) ; compiling (DEFPARAMETER +ASDF-METHODS+ ...) ; compiling (DEFDEF DEFGENERIC* ...) ; compiling (DEFDEF DEFUN* ...) ; compiling (DEFMACRO WHILE-COLLECTING ...) ; compiling (DEFMACRO AIF ...) ; compiling (DEFUN* PATHNAME-DIRECTORY-PATHNAME ...) ; compiling (DEFUN* MERGE-PATHNAMES* ...) ; compiling (DEFINE-MODIFY-MACRO APPENDF ...) ; compiling (DEFINE-MODIFY-MACRO ORF ...) ; compiling (DEFUN* FIRST-CHAR ...) ; compiling (DEFUN* LAST-CHAR ...) ; compiling (DEFUN* ASDF-MESSAGE ...) ; compiling (DEFUN* SPLIT-STRING ...) ; compiling (DEFUN* SPLIT-NAME-TYPE ...) ; compiling (DEFUN* COMPONENT-NAME-TO-PATHNAME-COMPONENTS ...) ; compiling (DEFUN* REMOVE-KEYS ...) ; compiling (DEFUN* REMOVE-KEYWORD ...) ; compiling (DEFUN* GETENV ...) ; compiling (DEFUN* DIRECTORY-PATHNAME-P ...) ; compiling (DEFUN* ENSURE-DIRECTORY-PATHNAME ...) ; compiling (DEFUN* ABSOLUTE-PATHNAME-P ...) ; compiling (DEFUN* LENGTH=N-P ...) ; compiling (DEFUN* ENDS-WITH ...) ; compiling (DEFUN* READ-FILE-FORMS ...) ; compiling (DEFUN* GET-UID ...) ; compiling (DEFUN* PATHNAME-ROOT ...) ; compiling (DEFUN* FIND-SYMBOL* ...) ; compiling (DEFUN* PROBE-FILE* ...) ; compiling (DEFUN* TRUENAMIZE ...) ; compiling (DEFUN* RESOLVE-SYMLINKS ...) ; compiling (DEFUN* DEFAULT-DIRECTORY ...) ; compiling (DEFUN* LISPIZE-PATHNAME ...) ; compiling (DEFPARAMETER *WILD-PATH* ...) ; compiling (DEFUN* WILDEN ...) ; compiling (DEFUN* DIRECTORIZE-PATHNAME-HOST-DEVICE ...) ; compiling (DEFGENERIC* FIND-SYSTEM ...) ; compiling (DEFGENERIC* PERFORM-WITH-RESTARTS ...) ; compiling (DEFGENERIC* PERFORM ...) ; compiling (DEFGENERIC* OPERATION-DONE-P ...) ; compiling (DEFGENERIC* EXPLAIN ...) ; compiling (DEFGENERIC* OUTPUT-FILES ...) ; compiling (DEFGENERIC* INPUT-FILES ...) ; compiling (DEFGENERIC* COMPONENT-OPERATION-TIME ...) ; compiling (DEFGENERIC* OPERATION-DESCRIPTION ...) ; compiling (DEFGENERIC* SYSTEM-SOURCE-FILE ...) ; compiling (DEFGENERIC* COMPONENT-SYSTEM ...) ; compiling (DEFGENERIC* COMPONENT-PATHNAME ...) ; compiling (DEFGENERIC* COMPONENT-RELATIVE-PATHNAME ...) ; compiling (DEFGENERIC* COMPONENT-PROPERTY ...) ; compiling (DEFGENERIC* (SETF COMPONENT-PROPERTY) ...) ; compiling (DEFGENERIC* VERSION-SATISFIES ...) ; compiling (DEFGENERIC* FIND-COMPONENT ...) ; compiling (DEFGENERIC* SOURCE-FILE-TYPE ...) ; compiling (DEFGENERIC* OPERATION-ANCESTOR ...) ; compiling (DEFGENERIC* COMPONENT-VISITED-P ...) ; compiling (DEFGENERIC* VISIT-COMPONENT ...) ; compiling (DEFGENERIC* (SETF VISITING-COMPONENT) ...) ; compiling (DEFGENERIC* COMPONENT-VISITING-P ...) ; compiling (DEFGENERIC* COMPONENT-DEPENDS-ON ...) ; compiling (DEFGENERIC* COMPONENT-SELF-DEPENDENCIES ...) ; compiling (DEFGENERIC* TRAVERSE ...) ; compiling (WHEN *UPGRADED-P* ...) ; compiling (DEFINE-CONDITION SYSTEM-DEFINITION-ERROR ...) ; compiling (DECLAIM (FTYPE # ...) ...) ; compiling (DEFINE-CONDITION FORMATTED-SYSTEM-DEFINITION-ERROR ...) ; compiling (DEFINE-CONDITION LOAD-SYSTEM-DEFINITION-ERROR ...) ; compiling (DEFINE-CONDITION CIRCULAR-DEPENDENCY ...) ; compiling (DEFINE-CONDITION DUPLICATE-NAMES ...) ; compiling (DEFINE-CONDITION MISSING-COMPONENT ...) ; compiling (DEFINE-CONDITION MISSING-COMPONENT-OF-VERSION ...) ; compiling (DEFINE-CONDITION MISSING-DEPENDENCY ...) ; compiling (DEFINE-CONDITION MISSING-DEPENDENCY-OF-VERSION ...) ; compiling (DEFINE-CONDITION OPERATION-ERROR ...) ; compiling (DEFINE-CONDITION COMPILE-ERROR ...) ; compiling (DEFINE-CONDITION COMPILE-FAILED ...) ; compiling (DEFINE-CONDITION COMPILE-WARNED ...) ; compiling (DEFCLASS COMPONENT ...) ; compiling (DEFUN* COMPONENT-FIND-PATH ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN* SYSDEF-ERROR ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD COMPONENT-SYSTEM ...) ; compiling (DEFVAR *DEFAULT-COMPONENT-CLASS* ...) ; compiling (DEFUN* COMPUTE-MODULE-COMPONENTS-BY-NAME ...) ; compiling (DEFCLASS MODULE ...) ; compiling (DEFUN* COMPONENT-PARENT-PATHNAME ...) ; compiling (DEFMETHOD COMPONENT-PATHNAME ...) ; compiling (DEFMETHOD COMPONENT-PROPERTY ...) ; compiling (DEFMETHOD (SETF COMPONENT-PROPERTY) ...) ; compiling (DEFCLASS SYSTEM ...) ; compiling (DEFMETHOD VERSION-SATISFIES ...) ; compiling (DEFMETHOD VERSION-SATISFIES ...) ; compiling (DEFUN* MAKE-DEFINED-SYSTEMS-TABLE ...) ; compiling (DEFVAR *DEFINED-SYSTEMS* ...) ; compiling (DEFUN* COERCE-NAME ...) ; compiling (DEFUN* SYSTEM-REGISTERED-P ...) ; compiling (DEFUN* CLEAR-SYSTEM ...) ; compiling (DEFUN* MAP-SYSTEMS ...) ; compiling (DEFPARAMETER *SYSTEM-DEFINITION-SEARCH-FUNCTIONS* ...) ; compiling (DEFUN* SYSTEM-DEFINITION-PATHNAME ...) ; compiling (DEFVAR *CENTRAL-REGISTRY* ...) ; compiling (DEFUN* PROBE-ASD ...) ; compiling (DEFUN* SYSDEF-CENTRAL-REGISTRY-SEARCH ...) ; compiling (DEFUN* MAKE-TEMPORARY-PACKAGE ...) ; compiling (DEFUN* SAFE-FILE-WRITE-DATE ...) ; compiling (DEFMETHOD FIND-SYSTEM ...) ; compiling (DEFMETHOD FIND-SYSTEM ...) ; compiling (DEFUN* REGISTER-SYSTEM ...) ; compiling (DEFUN* FIND-SYSTEM-FALLBACK ...) ; compiling (DEFUN* SYSDEF-FIND-ASDF ...) ; compiling (DEFMETHOD FIND-COMPONENT ...) ; compiling (DEFMETHOD FIND-COMPONENT ...) ; compiling (DEFMETHOD FIND-COMPONENT ...) ; compiling (DEFMETHOD FIND-COMPONENT ...) ; compiling (DEFMETHOD FIND-COMPONENT ...) ; compiling (DEFMETHOD FIND-COMPONENT ...) ; compiling (DEFCLASS SOURCE-FILE ...) ; compiling (DEFCLASS CL-SOURCE-FILE ...) ; compiling (DEFCLASS C-SOURCE-FILE ...) ; compiling (DEFCLASS JAVA-SOURCE-FILE ...) ; compiling (DEFCLASS STATIC-FILE ...) ; compiling (DEFCLASS DOC-FILE ...) ; compiling (DEFCLASS HTML-FILE ...) ; compiling (DEFMETHOD SOURCE-FILE-TYPE ...) ; compiling (DEFMETHOD SOURCE-FILE-TYPE ...) ; compiling (DEFUN* MERGE-COMPONENT-NAME-TYPE ...) ; compiling (DEFMETHOD COMPONENT-RELATIVE-PATHNAME ...) ; compiling (DEFCLASS OPERATION ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFUN* NODE-FOR ...) ; compiling (DEFMETHOD OPERATION-ANCESTOR ...) ; compiling (DEFUN* MAKE-SUB-OPERATION ...) ; compiling (DEFMETHOD VISIT-COMPONENT ...) ; compiling (DEFMETHOD COMPONENT-VISITED-P ...) ; compiling (DEFMETHOD (SETF VISITING-COMPONENT) ...) ; compiling (DEFMETHOD (SETF VISITING-COMPONENT) ...) ; compiling (DEFMETHOD COMPONENT-VISITING-P ...) ; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...) ; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...) ; compiling (DEFMETHOD COMPONENT-SELF-DEPENDENCIES ...) ; compiling (DEFMETHOD INPUT-FILES ...) ; compiling (DEFMETHOD INPUT-FILES ...) ; compiling (DEFMETHOD COMPONENT-OPERATION-TIME ...) ; compiling (DEFMETHOD OPERATION-DONE-P ...) ; compiling (DEFVAR *FORCING* ...) ; compiling (DEFGENERIC* DO-TRAVERSE ...) ; compiling (DEFUN* %DO-ONE-DEP ...) ; compiling (DEFUN* DO-ONE-DEP ...) ; compiling (DEFUN* DO-DEP ...) ; compiling (DEFVAR *VISIT-COUNT* ...) ; compiling (DEFUN* DO-COLLECT ...) ; compiling (DEFMETHOD DO-TRAVERSE ...) ; compiling (DEFUN* FLATTEN-TREE ...) ; compiling (DEFMETHOD TRAVERSE ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD EXPLAIN ...) ; compiling (DEFMETHOD OPERATION-DESCRIPTION ...) ; compiling (DEFCLASS COMPILE-OP ...) ; compiling (DEFUN OUTPUT-FILE ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD OUTPUT-FILES ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD OUTPUT-FILES ...) ; compiling (DEFMETHOD INPUT-FILES ...) ; compiling (DEFMETHOD OPERATION-DESCRIPTION ...) ; compiling (DEFCLASS BASIC-LOAD-OP ...) ; compiling (DEFCLASS LOAD-OP ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD PERFORM-WITH-RESTARTS ...) ; compiling (DEFMETHOD PERFORM-WITH-RESTARTS ...) ; compiling (DEFMETHOD PERFORM-WITH-RESTARTS ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD OPERATION-DONE-P ...) ; compiling (DEFMETHOD OUTPUT-FILES ...) ; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...) ; compiling (DEFMETHOD OPERATION-DESCRIPTION ...) ; compiling (DEFCLASS LOAD-SOURCE-OP ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD OUTPUT-FILES ...) ; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...) ; compiling (DEFMETHOD OPERATION-DONE-P ...) ; compiling (DEFMETHOD OPERATION-DESCRIPTION ...) ; compiling (DEFCLASS TEST-OP ...) ; compiling (DEFMETHOD PERFORM ...) ; compiling (DEFMETHOD OPERATION-DONE-P ...) ; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...) ; compiling (DEFGENERIC* OPERATE ...) ; compiling (DEFMETHOD OPERATE ...) ; compiling (DEFUN* OOS ...) ; compiling (LET (#) ...) ; compiling (DEFUN* LOAD-SYSTEM ...) ; compiling (DEFUN* COMPILE-SYSTEM ...) ; compiling (DEFUN* TEST-SYSTEM ...) ; compiling (DEFUN* LOAD-PATHNAME ...) ; compiling (DEFUN* DETERMINE-SYSTEM-PATHNAME ...) ; compiling (DEFMACRO DEFSYSTEM ...) ; compiling (DEFUN* CLASS-FOR-TYPE ...) ; compiling (DEFUN* MAYBE-ADD-TREE ...) ; compiling (DEFUN* UNION-OF-DEPENDENCIES ...) ; compiling (DEFVAR *SERIAL-DEPENDS-ON* ...) ; compiling (DEFUN* SYSDEF-ERROR-COMPONENT ...) ; compiling (DEFUN* CHECK-COMPONENT-INPUT ...) ; compiling (DEFUN* %REMOVE-COMPONENT-INLINE-METHODS ...) ; compiling (DEFUN* %DEFINE-COMPONENT-INLINE-METHODS ...) ; compiling (DEFUN* %REFRESH-COMPONENT-INLINE-METHODS ...) ; compiling (DEFUN* PARSE-COMPONENT-FORM ...) ; compiling (DEFUN* RUN-SHELL-COMMAND ...) ; compiling (DEFMETHOD SYSTEM-SOURCE-FILE ...) ; compiling (DEFMETHOD SYSTEM-SOURCE-FILE ...) ; compiling (DEFUN* SYSTEM-SOURCE-DIRECTORY ...) ; compiling (DEFUN* RELATIVIZE-DIRECTORY ...) ; compiling (DEFUN* RELATIVIZE-PATHNAME-DIRECTORY ...) ; compiling (DEFUN* SYSTEM-RELATIVE-PATHNAME ...) ; compiling (DEFPARAMETER *IMPLEMENTATION-FEATURES* ...) ; compiling (DEFPARAMETER *OS-FEATURES* ...) ; compiling (DEFPARAMETER *ARCHITECTURE-FEATURES* ...) ; compiling (DEFUN* LISP-VERSION-STRING ...) ; compiling (DEFUN* FIRST-FEATURE ...) ; compiling (DEFUN* IMPLEMENTATION-TYPE ...) ; compiling (DEFUN* IMPLEMENTATION-IDENTIFIER ...) ; compiling (DEFPARAMETER *INTER-DIRECTORY-SEPARATOR* ...) ; compiling (DEFUN* USER-HOMEDIR ...) ; compiling (DEFUN* TRY-DIRECTORY-SUBPATH ...) ; compiling (DEFUN* USER-CONFIGURATION-DIRECTORIES ...) ; compiling (DEFUN* SYSTEM-CONFIGURATION-DIRECTORIES ...) ; compiling (DEFUN* IN-FIRST-DIRECTORY ...) ; compiling (DEFUN* IN-USER-CONFIGURATION-DIRECTORY ...) ; compiling (DEFUN* IN-SYSTEM-CONFIGURATION-DIRECTORY ...) ; compiling (DEFUN* CONFIGURATION-INHERITANCE-DIRECTIVE-P ...) ; compiling (DEFUN* VALIDATE-CONFIGURATION-FORM ...) ; compiling (DEFUN* VALIDATE-CONFIGURATION-FILE ...) ; compiling (DEFUN* HIDDEN-FILE-P ...) ; compiling (DEFUN* VALIDATE-CONFIGURATION-DIRECTORY ...) ; compiling (DEFVAR *OUTPUT-TRANSLATIONS* ...) ; compiling (DEFVAR *USER-CACHE* ...) ; compiling (DEFVAR *SYSTEM-CACHE* ...) ; compiling (DEFUN* OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* (SETF OUTPUT-TRANSLATIONS) ...) ; compiling (DEFUN* OUTPUT-TRANSLATIONS-INITIALIZED-P ...) ; compiling (DEFUN* CLEAR-OUTPUT-TRANSLATIONS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN* RESOLVE-RELATIVE-LOCATION-COMPONENT ...) ; compiling (DEFUN* RESOLVE-ABSOLUTE-LOCATION-COMPONENT ...) ; compiling (DEFUN* RESOLVE-LOCATION ...) ; compiling (DEFUN* LOCATION-DESIGNATOR-P ...) ; compiling (DEFUN* LOCATION-FUNCTION-P ...) ; compiling (DEFUN* VALIDATE-OUTPUT-TRANSLATIONS-DIRECTIVE ...) ; compiling (DEFUN* VALIDATE-OUTPUT-TRANSLATIONS-FORM ...) ; compiling (DEFUN* VALIDATE-OUTPUT-TRANSLATIONS-FILE ...) ; compiling (DEFUN* VALIDATE-OUTPUT-TRANSLATIONS-DIRECTORY ...) ; compiling (DEFUN* PARSE-OUTPUT-TRANSLATIONS-STRING ...) ; compiling (DEFPARAMETER *DEFAULT-OUTPUT-TRANSLATIONS* ...) ; compiling (DEFUN* WRAPPING-OUTPUT-TRANSLATIONS ...) ; compiling (DEFPARAMETER *OUTPUT-TRANSLATIONS-FILE* ...) ; compiling (DEFPARAMETER *OUTPUT-TRANSLATIONS-DIRECTORY* ...) ; compiling (DEFUN* USER-OUTPUT-TRANSLATIONS-PATHNAME ...) ; compiling (DEFUN* SYSTEM-OUTPUT-TRANSLATIONS-PATHNAME ...) ; compiling (DEFUN* USER-OUTPUT-TRANSLATIONS-DIRECTORY-PATHNAME ...) ; compiling (DEFUN* SYSTEM-OUTPUT-TRANSLATIONS-DIRECTORY-PATHNAME ...) ; compiling (DEFUN* ENVIRONMENT-OUTPUT-TRANSLATIONS ...) ; compiling (DEFGENERIC* PROCESS-OUTPUT-TRANSLATIONS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFMETHOD PROCESS-OUTPUT-TRANSLATIONS ...) ; compiling (DEFMETHOD PROCESS-OUTPUT-TRANSLATIONS ...) ; compiling (DEFMETHOD PROCESS-OUTPUT-TRANSLATIONS ...) ; compiling (DEFMETHOD PROCESS-OUTPUT-TRANSLATIONS ...) ; compiling (DEFMETHOD PROCESS-OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* INHERIT-OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* PROCESS-OUTPUT-TRANSLATIONS-DIRECTIVE ...) ; compiling (DEFUN* COMPUTE-OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* INITIALIZE-OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* DISABLE-OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* ENSURE-OUTPUT-TRANSLATIONS ...) ; compiling (DEFUN* TRANSLATE-PATHNAME* ...) ; compiling (DEFUN* APPLY-OUTPUT-TRANSLATIONS ...) ; compiling (DEFMETHOD OUTPUT-FILES ...) ; compiling (DEFUN* COMPILE-FILE-PATHNAME* ...) ; compiling (DEFUN* TMPIZE-PATHNAME ...) ; compiling (DEFUN* DELETE-FILE-IF-EXISTS ...) ; compiling (DEFUN* COMPILE-FILE* ...) ; compiling (DEFMETHOD OPERATE ...) ; compiling (DEFUN* ENABLE-ASDF-BINARY-LOCATIONS-COMPATIBILITY ...) ; compiling (DEFVAR *DEFAULT-SOURCE-REGISTRY-EXCLUSIONS* ...) ; compiling (DEFVAR *SOURCE-REGISTRY-EXCLUSIONS* ...) ; compiling (DEFVAR *SOURCE-REGISTRY* ...) ; compiling (DEFUN* SOURCE-REGISTRY ...) ; compiling (DEFUN* (SETF SOURCE-REGISTRY) ...) ; compiling (DEFUN* SOURCE-REGISTRY-INITIALIZED-P ...) ; compiling (DEFUN* CLEAR-SOURCE-REGISTRY ...) ; compiling (DEFPARAMETER *WILD-ASD* ...) ; compiling (DEFUN DIRECTORY-HAS-ASD-FILES-P ...) ; compiling (DEFUN SUBDIRECTORIES ...) ; compiling (DEFUN COLLECT-SUB*DIRECTORIES ...) ; compiling (DEFUN COLLECT-SUB*DIRECTORIES-WITH-ASD ...) ; compiling (DEFUN* VALIDATE-SOURCE-REGISTRY-DIRECTIVE ...) ; compiling (DEFUN* VALIDATE-SOURCE-REGISTRY-FORM ...) ; compiling (DEFUN* VALIDATE-SOURCE-REGISTRY-FILE ...) ; compiling (DEFUN* VALIDATE-SOURCE-REGISTRY-DIRECTORY ...) ; compiling (DEFUN* PARSE-SOURCE-REGISTRY-STRING ...) ; compiling (DEFUN* REGISTER-ASD-DIRECTORY ...) ; compiling (DEFPARAMETER *DEFAULT-SOURCE-REGISTRIES* ...) ; compiling (DEFPARAMETER *SOURCE-REGISTRY-FILE* ...) ; compiling (DEFPARAMETER *SOURCE-REGISTRY-DIRECTORY* ...) ; compiling (DEFUN* WRAPPING-SOURCE-REGISTRY ...) ; compiling (DEFUN* DEFAULT-SOURCE-REGISTRY ...) ; compiling (DEFUN* USER-SOURCE-REGISTRY ...) ; compiling (DEFUN* SYSTEM-SOURCE-REGISTRY ...) ; compiling (DEFUN* USER-SOURCE-REGISTRY-DIRECTORY ...) ; compiling (DEFUN* SYSTEM-SOURCE-REGISTRY-DIRECTORY ...) ; compiling (DEFUN* ENVIRONMENT-SOURCE-REGISTRY ...) ; compiling (DEFGENERIC* PROCESS-SOURCE-REGISTRY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFMETHOD PROCESS-SOURCE-REGISTRY ...) ; compiling (DEFMETHOD PROCESS-SOURCE-REGISTRY ...) ; compiling (DEFMETHOD PROCESS-SOURCE-REGISTRY ...) ; compiling (DEFMETHOD PROCESS-SOURCE-REGISTRY ...) ; compiling (DEFMETHOD PROCESS-SOURCE-REGISTRY ...) ; compiling (DEFUN* INHERIT-SOURCE-REGISTRY ...) ; compiling (DEFUN* PROCESS-SOURCE-REGISTRY-DIRECTIVE ...) ; compiling (DEFUN* FLATTEN-SOURCE-REGISTRY ...) ; compiling (DEFUN* COMPUTE-SOURCE-REGISTRY ...) ; compiling (DEFUN* INITIALIZE-SOURCE-REGISTRY ...) ; compiling (DEFUN* ENSURE-SOURCE-REGISTRY ...) ; compiling (DEFUN* SYSDEF-SOURCE-REGISTRY-SEARCH ...) ; compiling (DEFUN* CLEAR-CONFIGURATION ...) ; compiling (DEFUN* MODULE-PROVIDE-ASDF ...) ; compiling (LET (#) ...) ; compiling (WHEN *LOAD-VERBOSE* ...) ; compiling (PUSHNEW :ASDF ...) ; compiling (PUSHNEW :ASDF2 ...) ; compiling (PROVIDE :ASDF) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/cl-asdf/ASDF-TMP-asdf.fasl written ; compilation finished in 0:00:02.805 ; Loading system definition from /usr/lib/sbcl/sb-grovel/sb-grovel.asd into ; # ; Registering # as SB-GROVEL STYLE-WARNING: Couldn't grovel for EAI_ADDRFAMILY (unknown to the C compiler). ;;; Please wait, recompiling library... ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :COMMON-LISP-USER) ; compiling (DEFPACKAGE XLIB ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-package.fasl written ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 31 MAY 2010 10:28:22 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DECLAIM (DECLARATION CLX-VALUES)) ; compiling (DECLAIM (DECLARATION ARGLIST)) ; compiling (DECLAIM (DECLARATION INDENTATION)) ; compiling (DEFMACRO WITH-VECTOR ...) ; compiling (DEFMACRO WITHIN-DEFINITION ...) ; compiling (DEFCONSTANT +CLX-CACHED-TYPES+ ...) ; compiling (DEFMACRO RESOURCE-ID-MAP-TEST ...) ; compiling (DEFMACRO ATOM-CACHE-MAP-TEST ...) ; compiling (DEFMACRO KEYSYM->CHARACTER-MAP-TEST ...) ; compiling (ECASE SB-C:*BACKEND-BYTE-ORDER* ...) ; compiling (DEFTYPE BUFFER-BYTES ...) ; compiling (DEFTYPE ARRAY-INDEX ...) ; compiling (DEFUN MAKE-INDEX-TYPED ...) ; compiling (DEFUN MAKE-INDEX-OP ...) ; compiling (DEFMACRO INDEX+ ...) ; compiling (DEFMACRO INDEX-LOGAND ...) ; compiling (DEFMACRO INDEX-LOGIOR ...) ; compiling (DEFMACRO INDEX- ...) ; compiling (DEFMACRO INDEX* ...) ; compiling (DEFMACRO INDEX1+ ...) ; compiling (DEFMACRO INDEX1- ...) ; compiling (DEFMACRO INDEX-INCF ...) ; compiling (DEFMACRO INDEX-DECF ...) ; compiling (DEFMACRO INDEX-MIN ...) ; compiling (DEFMACRO INDEX-MAX ...) ; compiling (DEFMACRO INDEX-FLOOR ...) ; compiling (DEFMACRO INDEX-CEILING ...) ; compiling (DEFMACRO INDEX-TRUNCATE ...) ; compiling (DEFMACRO INDEX-MOD ...) ; compiling (DEFMACRO INDEX-ASH ...) ; compiling (DEFMACRO INDEX-PLUSP ...) ; compiling (DEFMACRO INDEX-ZEROP ...) ; compiling (DEFMACRO INDEX-EVENP ...) ; compiling (DEFMACRO INDEX-ODDP ...) ; compiling (DEFMACRO INDEX> ...) ; compiling (DEFMACRO INDEX= ...) ; compiling (DEFMACRO INDEX< ...) ; compiling (DEFMACRO INDEX>= ...) ; compiling (DEFMACRO INDEX<= ...) ; compiling (DEFCONSTANT +REPLYSIZE+ ...) ; compiling (DEFVAR *EMPTY-BYTES* ...) ; compiling (DECLAIM (TYPE BUFFER-BYTES ...)) ; compiling (DEFSTRUCT (REPLY-BUFFER # ...) ...) ; compiling (DEFCONSTANT +BUFFER-TEXT16-SIZE+ ...) ; compiling (DEFTYPE BUFFER-TEXT16 ...) ; compiling (DEFPARAMETER *XLIB-PACKAGE* ...) ; compiling (DEFUN XINTERN ...) ; compiling (DEFPARAMETER *KEYWORD-PACKAGE* ...) ; compiling (DEFUN KINTERN ...) ; compiling (DEFVAR *DEF-CLX-CLASS-USE-DEFCLASS* ...) ; compiling (DEFMACRO DEF-CLX-CLASS ...) ; compiling (DEF-CLX-CLASS (BUFFER # ...) ...) ; compiling (DEFCONSTANT +IMAGE-BIT-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-BYTE-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-UNIT+ ...) ; compiling (DEFCONSTANT +IMAGE-PAD+ ...) ; compiling (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...) ; compiling (DEFUN UNIX-SOCKET-PATH-FROM-HOST ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-depdefs.fasl written ; compilation finished in 0:00:00.353 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 31 MAY 2010 10:28:22 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PUSHNEW :CLX ...) ; compiling (PUSHNEW :XLIB ...) ; compiling (DEFPARAMETER *VERSION* ...) ; compiling (PUSHNEW :CLX-MIT-R4 ...) ; compiling (PUSHNEW :CLX-MIT-R5 ...) ; compiling (DEFPARAMETER *PROTOCOL-MAJOR-VERSION* ...) ; compiling (DEFPARAMETER *PROTOCOL-MINOR-VERSION* ...) ; compiling (DEFPARAMETER *X-TCP-PORT* ...) ; compiling (DEFTYPE GENERALIZED-BOOLEAN ...) ; compiling (DEFTYPE CARD32 ...) ; compiling (DEFTYPE CARD29 ...) ; compiling (DEFTYPE CARD24 ...) ; compiling (DEFTYPE INT32 ...) ; compiling (DEFTYPE CARD16 ...) ; compiling (DEFTYPE INT16 ...) ; compiling (DEFTYPE CARD8 ...) ; compiling (DEFTYPE INT8 ...) ; compiling (DEFTYPE CARD4 ...) ; compiling (DEFTYPE CHAR8 ...) ; compiling (DEFTYPE RGB-VAL ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFTYPE MASK32 ...) ; compiling (DEFTYPE MASK16 ...) ; compiling (DEFTYPE PIXEL ...) ; compiling (DEFTYPE IMAGE-DEPTH ...) ; compiling (DEFTYPE RESOURCE-ID ...) ; compiling (DEFTYPE KEYSYM ...) ; compiling (DEF-CLX-CLASS (COLOR # ...) ...) ; compiling (DEFUN PRINT-COLOR ...) ; compiling (DEFUN MAKE-COLOR ...) ; compiling (DEFUN COLOR-RGB ...) ; compiling (DEF-CLX-CLASS (BITMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-BITMAP-FORMAT ...) ; compiling (DEF-CLX-CLASS (PIXMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-PIXMAP-FORMAT ...) ; compiling (DEFPARAMETER *ATOM-CACHE-SIZE* ...) ; compiling (DEFPARAMETER *RESOURCE-ID-MAP-SIZE* ...) ; compiling (DEF-CLX-CLASS (DISPLAY # ...) ...) ; compiling (DEFUN PRINT-DISPLAY-NAME ...) ; compiling (DEFUN PRINT-DISPLAY ...) ; compiling (DEF-CLX-CLASS (DRAWABLE # ...) ...) ; compiling (DEFUN PRINT-DRAWABLE ...) ; compiling (DEF-CLX-CLASS (WINDOW # ...)) ; compiling (DEF-CLX-CLASS (PIXMAP # ...)) ; compiling (DEF-CLX-CLASS (VISUAL-INFO # ...) ...) ; compiling (DEFUN PRINT-VISUAL-INFO ...) ; compiling (DEF-CLX-CLASS (COLORMAP # ...) ...) ; compiling (DEFUN PRINT-COLORMAP ...) ; compiling (DEF-CLX-CLASS (CURSOR # ...) ...) ; compiling (DEFUN PRINT-CURSOR ...) ; compiling (DEFTYPE XATOM ...) ; compiling (DEFCONSTANT +PREDEFINED-ATOMS+ ...) ; compiling (DEFTYPE STRINGABLE ...) ; compiling (DEFTYPE FONTABLE ...) ; compiling (DEFTYPE TIMESTAMP ...) ; compiling (DEFCONSTANT +BIT-GRAVITY-VECTOR+ ...) ; compiling (DEFTYPE BIT-GRAVITY ...) ; compiling (DEFCONSTANT +WIN-GRAVITY-VECTOR+ ...) ; compiling (DEFPARAMETER *PROTOCOL-FAMILIES* ...) ; compiling (DEFTYPE WIN-GRAVITY ...) ; compiling (DEFTYPE GRAB-STATUS ...) ; compiling (DEFTYPE ALIST ...) ; compiling (DEFTYPE CLX-LIST ...) ; compiling (DEFTYPE CLX-SEQUENCE ...) ; compiling (DEFTYPE REPEAT-SEQ ...) ; compiling (DEFTYPE POINT-SEQ ...) ; compiling (DEFTYPE SEG-SEQ ...) ; compiling (DEFTYPE RECT-SEQ ...) ; compiling (DEFTYPE ARC-SEQ ...) ; compiling (DEFTYPE GCONTEXT-STATE ...) ; compiling (DEF-CLX-CLASS (GCONTEXT # ...) ...) ; compiling (DEFUN PRINT-GCONTEXT ...) ; compiling (DEFCONSTANT +EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE EVENT-MASK-CLASS ...) ; compiling (DEFTYPE EVENT-MASK ...) ; compiling (DEFCONSTANT +POINTER-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE POINTER-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE POINTER-EVENT-MASK ...) ; compiling (DEFCONSTANT +DEVICE-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK ...) ; compiling (DEFCONSTANT +STATE-MASK-VECTOR+ ...) ; compiling (DEFTYPE MODIFIER-KEY ...) ; compiling (DEFTYPE MODIFIER-MASK ...) ; compiling (DEFTYPE STATE-MASK-KEY ...) ; compiling (DEFCONSTANT +GCONTEXT-COMPONENTS+ ...) ; compiling (DEFTYPE GCONTEXT-KEY ...) ; compiling (DEFTYPE EVENT-KEY ...) ; compiling (DEFTYPE ERROR-KEY ...) ; compiling (DEFTYPE DRAW-DIRECTION ...) ; compiling (DEFCONSTANT +BOOLE-VECTOR+ ...) ; compiling (DEFTYPE BOOLE-CONSTANT ...) ; compiling (DEF-CLX-CLASS (SCREEN # ...) ...) ; compiling (DEFUN PRINT-SCREEN ...) ; compiling (DEFUN SCREEN-ROOT-VISUAL ...) ; compiling (DEFTYPE FONT-PROPS ...) ; compiling (DEF-CLX-CLASS (FONT-INFO # ...) ...) ; compiling (DEF-CLX-CLASS (FONT # ...) ...) ; compiling (DEFUN PRINT-FONT ...) ; compiling (DEFUN FONT-ID ...) ; compiling (DEFUN FONT-FONT-INFO ...) ; compiling (DEFUN FONT-CHAR-INFOS ...) ; compiling (DEFUN MAKE-FONT ...) ; compiling (MAKE-FONT-INFO-ACCESSORS IGNORE ...) ; compiling (DEFUN FONT-PROPERTY ...) ; compiling (MAKE-MUMBLE-EQUAL WINDOW) ; compiling (MAKE-MUMBLE-EQUAL PIXMAP) ; compiling (MAKE-MUMBLE-EQUAL CURSOR) ; compiling (MAKE-MUMBLE-EQUAL FONT) ; compiling (MAKE-MUMBLE-EQUAL GCONTEXT) ; compiling (MAKE-MUMBLE-EQUAL COLORMAP) ; compiling (MAKE-MUMBLE-EQUAL DRAWABLE) ; compiling (DEFUN ENCODE-MASK ...) ; compiling (DEFUN DECODE-MASK ...) ; compiling (DEFUN ENCODE-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ==> ; XLIB:EVENT-MASK ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-EVENT-MASK ...) ; compiling (DEFUN MAKE-EVENT-KEYS ...) ; compiling (DEFUN ENCODE-DEVICE-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ==> ; XLIB:DEVICE-EVENT-MASK ; ; note: deleting unreachable code ; compiling (DEFUN ENCODE-MODIFIER-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ==> ; XLIB:MODIFIER-MASK ; ; note: deleting unreachable code ; compiling (DEFUN ENCODE-STATE-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ==> ; XLIB::STATE-MASK ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-STATE-MASK ...) ; compiling (DEFUN MAKE-STATE-KEYS ...) ; compiling (DEFUN ENCODE-POINTER-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ==> ; XLIB:POINTER-EVENT-MASK ; ; note: deleting unreachable code ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-clx.fasl written ; compilation finished in 0:00:00.936 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 31 MAY 2010 10:28:22 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...) ; compiling (DEFPARAMETER *REPLY-TIMEOUT* ...) ; compiling (DEFCONSTANT +WORD-0+ ...) ; compiling (DEFCONSTANT +WORD-1+ ...) ; compiling (DEFCONSTANT +LONG-0+ ...) ; compiling (DEFCONSTANT +LONG-1+ ...) ; compiling (DEFCONSTANT +LONG-2+ ...) ; compiling (DEFCONSTANT +LONG-3+ ...) ; compiling (DEFCONSTANT +BUFFER-SPEED+ ...) ; compiling (DEFCONSTANT +BUFFER-SAFETY+ ...) ; compiling (DEFCONSTANT +BUFFER-DEBUG+ ...) ; compiling (DEFUN DECLARE-BUFMAC ...) ; compiling (DEFUN DECLARE-BUFFUN ...) ; compiling (DECLAIM (INLINE CARD8->INT8 ...)) ; compiling (DEFUN CARD8->INT8 ...) ; compiling (DEFUN INT8->CARD8 ...) ; compiling (DEFUN CARD16->INT16 ...) ; compiling (DEFUN INT16->CARD16 ...) ; compiling (DEFUN CARD32->INT32 ...) ; compiling (DEFUN INT32->CARD32 ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN INT32->CARD32 ; (DEFUN XLIB::INT32->CARD32 (XLIB::X) ; (DECLARE (TYPE XLIB:INT32 XLIB::X)) ; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (THE XLIB:CARD32 (LDB (BYTE 32 0) XLIB::X))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'XLIB::INT32->CARD32 ; (SB-INT:NAMED-LAMBDA XLIB::INT32->CARD32 ; (XLIB::X) ; (DECLARE (TYPE XLIB:INT32 XLIB::X)) ; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::INT32->CARD32 ; (THE XLIB:CARD32 (LDB # XLIB::X)))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (XLIB::X) ; (DECLARE (TYPE XLIB:INT32 XLIB::X)) ; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::INT32->CARD32 ; (THE XLIB:CARD32 (LDB # XLIB::X)))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DECLAIM (INLINE AREF-CARD8 ...)) ; compiling (DEFUN AREF-CARD8 ...) ; compiling (DEFUN ASET-CARD8 ...) ; compiling (DEFUN AREF-INT8 ...) ; compiling (DEFUN ASET-INT8 ...) ; compiling (DEFUN AREF-CARD16 ...) ; compiling (DEFUN ASET-CARD16 ...) ; compiling (DEFUN AREF-INT16 ...) ; compiling (DEFUN ASET-INT16 ...) ; compiling (DEFUN AREF-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN AREF-CARD32 ; (DEFUN XLIB::AREF-CARD32 (XLIB::A XLIB::I) ; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (THE XLIB:CARD32 ; (LOGIOR (THE XLIB:CARD32 (ASH # 24)) (THE XLIB:CARD29 (ASH # 16)) ; (THE XLIB:CARD16 (ASH # 8)) ; (THE XLIB:CARD8 (AREF XLIB::A #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'XLIB::AREF-CARD32 ; (SB-INT:NAMED-LAMBDA XLIB::AREF-CARD32 ; (XLIB::A XLIB::I) ; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::AREF-CARD32 ; (THE XLIB:CARD32 (LOGIOR # # # #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFUN ASET-CARD32 ...) ; compiling (DEFUN AREF-INT32 ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN AREF-INT32 ; (DEFUN XLIB::AREF-INT32 (XLIB::A XLIB::I) ; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (DECLARE (XLIB::CLX-VALUES XLIB:INT32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (THE XLIB:INT32 ; (LOGIOR (THE XLIB:INT32 (ASH # 24)) (THE XLIB:CARD29 (ASH # 16)) ; (THE XLIB:CARD16 (ASH # 8)) ; (THE XLIB:CARD8 (AREF XLIB::A #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'XLIB::AREF-INT32 ; (SB-INT:NAMED-LAMBDA XLIB::AREF-INT32 ; (XLIB::A XLIB::I) ; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (DECLARE (XLIB::CLX-VALUES XLIB:INT32)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::AREF-INT32 ; (THE XLIB:INT32 (LOGIOR # # # #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFUN ASET-INT32 ...) ; compiling (DEFUN AREF-CARD29 ...) ; compiling (DEFUN ASET-CARD29 ...) ; compiling (DEFSETF AREF-CARD8 ...) ; compiling (DEFSETF AREF-INT8 ...) ; compiling (DEFSETF AREF-CARD16 ...) ; compiling (DEFSETF AREF-INT16 ...) ; compiling (DEFSETF AREF-CARD32 ...) ; compiling (DEFSETF AREF-INT32 ...) ; compiling (DEFSETF AREF-CARD29 ...) ; compiling (DEFUN RGB-VAL->CARD16 ...) ; compiling (DEFUN CARD16->RGB-VAL ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN CARD16->RGB-VAL ; (DEFUN XLIB::CARD16->RGB-VAL (XLIB::VALUE) ; (DECLARE (TYPE XLIB:CARD16 XLIB::VALUE)) ; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (THE SHORT-FLOAT (* (THE XLIB:CARD16 XLIB::VALUE) 1.5259022e-5))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'XLIB::CARD16->RGB-VAL ; (SB-INT:NAMED-LAMBDA XLIB::CARD16->RGB-VAL ; (XLIB::VALUE) ; (DECLARE (TYPE XLIB:CARD16 XLIB::VALUE)) ; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::CARD16->RGB-VAL ; (THE SHORT-FLOAT (* # 1.5259022e-5)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: doing float to pointer coercion (cost 13) to "" ; compiling (DEFUN RADIANS->INT16 ...) ; compiling (DEFUN INT16->RADIANS ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN INT16->RADIANS ; (DEFUN XLIB::INT16->RADIANS (XLIB::VALUE) ; (DECLARE (TYPE XLIB:INT16 XLIB::VALUE)) ; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (THE SHORT-FLOAT (* (THE XLIB:INT16 XLIB::VALUE) 2.727077e-4))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'XLIB::INT16->RADIANS ; (SB-INT:NAMED-LAMBDA XLIB::INT16->RADIANS ; (XLIB::VALUE) ; (DECLARE (TYPE XLIB:INT16 XLIB::VALUE)) ; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::INT16->RADIANS ; (THE SHORT-FLOAT (* # 2.727077e-4)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: doing float to pointer coercion (cost 13) to "" ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFUN ANGLEP ...) ; compiling (DECLAIM (INLINE CHAR->CARD8 ...)) ; compiling (CHAR-TRANSLATORS) ; compiling (DEFUN MAKE-PROCESS-LOCK ...) ; compiling (DEFMACRO HOLDING-LOCK ...) ; compiling (DEFMACRO WITHOUT-ABORTS ...) ; compiling (DECLAIM (INLINE YIELD)) ; compiling (DEFUN YIELD ...) ; compiling (DEFUN PROCESS-BLOCK ...) ; compiling (DECLAIM (INLINE PROCESS-WAKEUP)) ; compiling (DEFUN PROCESS-WAKEUP ...) ; compiling (DECLAIM (INLINE CURRENT-PROCESS)) ; compiling (DEFUN CURRENT-PROCESS ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *WITHOUT-INTERRUPTS-SIC-LOCK* ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *CONDITIONAL-STORE-LOCK* ...) ; compiling (DEFMACRO CONDITIONAL-STORE ...) ; compiling (DEFMACRO WRAP-BUF-OUTPUT ...) ; compiling (DEFMACRO WRAP-BUF-INPUT ...) ; compiling (DEFUN OPEN-X-STREAM ...) ; compiling (DEFUN BUFFER-READ-DEFAULT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN BUFFER-READ-DEFAULT ; (SB-SYS:READ-N-BYTES (XLIB::DISPLAY-INPUT-STREAM XLIB:DISPLAY) VECTOR ; XLIB::START (- XLIB::END XLIB::START)) ; --> BLOCK IF LET* SB-IMPL::EOF-OR-LOSE IF AND IF AND THE ; ==> ; (< SB-IMPL::READ-END SB-IMPL::END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (INTEGER -536870909 1073741818), not a FIXNUM. ; --> BLOCK IF LET* ; ==> ; (+ SB-IMPL::START SB-IMPL::NUMBYTES) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 32) arithmetic ; compiling (DEFUN BUFFER-WRITE-DEFAULT ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT-DEFAULT ...) ; compiling (DEFUN BUFFER-CLOSE-DEFAULT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT-DEFAULT ...) ; compiling (DEFUN BUFFER-LISTEN-DEFAULT ...) ; compiling (DEFMACRO WITH-STACK-LIST ...) ; compiling (DEFMACRO WITH-STACK-LIST* ...) ; compiling (DECLAIM (INLINE BUFFER-REPLACE)) ; compiling (DEFUN BUFFER-REPLACE ...) ; compiling (DEFMACRO WITH-GCONTEXT-BINDINGS ...) ; compiling (DEFCONSTANT +TYPE-CHECK?+ ...) ; compiling (DEFMACRO TYPE? ...) ; compiling (DEFUN X-TYPE-ERROR ...) ; compiling (DEFUN DEFAULT-ERROR-HANDLER ...) ; compiling (DEFUN X-ERROR ...) ; compiling (DEFUN X-CERROR ...) ; compiling (DEFINE-CONDITION X-ERROR ...) ; compiling (DEFUN HOST-ADDRESS ...) ; compiling (DEFMACRO USE-CLOSURES ...) ; compiling (DEFUN CLX-MACROEXPAND ...) ; compiling (DEFUN GETENV ...) ; compiling (DEFUN GET-HOST-NAME ...) ; compiling (DEFUN HOMEDIR-FILE-PATHNAME ...) ; compiling (DEFUN DEFAULT-RESOURCES-PATHNAME ...) ; compiling (DEFUN RESOURCES-PATHNAME ...) ; compiling (DEFUN AUTHORITY-PATHNAME ...) ; compiling (DEFUN GET-DEFAULT-DISPLAY ...) ; compiling (DEFUN GC-CLEANUP ...) ; compiling (DEFUN DEFAULT-KEYSYM-TRANSLATE ...) ; compiling (DEFTYPE PIXARRAY-1-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-4-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-8-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-16-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-24-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-32-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-1 ...) ; compiling (DEFTYPE PIXARRAY-4 ...) ; compiling (DEFTYPE PIXARRAY-8 ...) ; compiling (DEFTYPE PIXARRAY-16 ...) ; compiling (DEFTYPE PIXARRAY-24 ...) ; compiling (DEFTYPE PIXARRAY-32 ...) ; compiling (DEFTYPE PIXARRAY ...) ; compiling (DEFTYPE BITMAP ...) ; compiling (DEFMACRO WITH-UNDERLYING-SIMPLE-VECTOR ...) ; compiling (DEFMACRO READ-IMAGE-LOAD-BYTE ...) ; compiling (DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ...) ; compiling (DEFMACRO WRITE-IMAGE-LOAD-BYTE ...) ; compiling (DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ...) ; compiling (DEFUN FAST-READ-PIXARRAY-24 ...) ; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...) ; compiling (DEFUN COPY-BIT-RECT ...) ; compiling (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...) ; compiling (DEFUN FAST-READ-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-WRITE-PIXARRAY-24 ...) ; compiling (DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; compiling (DEFUN FAST-WRITE-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-COPY-PIXARRAY ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-dependent.fasl written ; compilation finished in 0:00:00.795 ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO TYPE-CHECK ...) ; compiling (DEFVAR *REQUIRED-ARG-DUMMY*) ; compiling (DEFMACRO REQUIRED-ARG ...) ; compiling (DEFMACRO LROUND ...) ; compiling (DEFMACRO WROUND ...) ; compiling (DEFUN INDEX-INCREMENT ...) ; compiling (DEFUN GETIFY ...) ; compiling (DEFUN PUTIFY ...) ; compiling (DEFMACRO DEFINE-ACCESSOR ...) ; compiling (DEFINE-ACCESSOR CARD32 ...) ; compiling (DEFINE-ACCESSOR CARD29 ...) ; compiling (DEFINE-ACCESSOR CARD16 ...) ; compiling (DEFINE-ACCESSOR CARD8 ...) ; compiling (DEFINE-ACCESSOR INTEGER ...) ; compiling (DEFINE-ACCESSOR INT16 ...) ; compiling (DEFINE-ACCESSOR RGB-VAL ...) ; compiling (DEFINE-ACCESSOR ANGLE ...) ; compiling (DEFINE-ACCESSOR BIT ...) ; compiling (DEFINE-ACCESSOR BOOLEAN ...) ; compiling (DEFINE-ACCESSOR DRAWABLE ...) ; compiling (DEFINE-ACCESSOR WINDOW ...) ; compiling (DEFINE-ACCESSOR PIXMAP ...) ; compiling (DEFINE-ACCESSOR GCONTEXT ...) ; compiling (DEFINE-ACCESSOR CURSOR ...) ; compiling (DEFINE-ACCESSOR COLORMAP ...) ; compiling (DEFINE-ACCESSOR FONT ...) ; compiling (DEFINE-ACCESSOR KEYWORD ...) ; compiling (DEFINE-ACCESSOR RESOURCE-ID ...) ; compiling (DEFINE-ACCESSOR RESOURCE-ID-OR-NIL ...) ; compiling (DEFMACRO CHAR-INFO-GET ...) ; compiling (DEFINE-ACCESSOR MEMBER8 ...) ; compiling (DEFINE-ACCESSOR MEMBER16 ...) ; compiling (DEFINE-ACCESSOR MEMBER ...) ; compiling (DEFTYPE MEMBER-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER16-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER8-VECTOR ...) ; compiling (DEFINE-ACCESSOR BOOLE-CONSTANT ...) ; compiling (DEFINE-ACCESSOR NULL ...) ; compiling (DEFINE-ACCESSOR PAD8 ...) ; compiling (DEFINE-ACCESSOR PAD16 ...) ; compiling (DEFINE-ACCESSOR PAD32 ...) ; compiling (DEFINE-ACCESSOR BIT-VECTOR256 ...) ; compiling (DEFINE-ACCESSOR STRING ...) ; compiling (DEFINE-ACCESSOR SEQUENCE ...) ; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-GET-SEQUENCE ...) ; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ...) ; compiling (DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE ...) ; compiling (DEFINE-ACCESSOR CODE ...) ; compiling (DEFINE-ACCESSOR LENGTH ...) ; compiling (DEFTYPE DATA ...) ; compiling (DEFINE-ACCESSOR DATA ...) ; compiling (DEFMACRO OR-EXPAND ...) ; compiling (DEFINE-ACCESSOR OR ...) ; compiling (SETF (GET # ...) ...) ; compiling (DEFUN MASK-GET ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN MASK-GET ; (DEFUN XLIB::MASK-GET (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; (LET* ((BIT 0) (XLIB::RESULT (MAPCAR #'# #))) ; `(,@(WHEN (ATOM #) (LIST #)) ; (PROGN (SETQ #) (SETQ #) ,(CAR XLIB::RESULT)) ,@(CDR XLIB::RESULT)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G975 ; ; note: could not stack allocate the result of (DEFUN MASK-GET ; (INDEX TYPE-VALUES BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION BODY-FUNCTION) ; (DYNAMIC-EXTENT ; BODY-FUNCTION)) ; (LET* ((BIT 0) ; (RESULT ; (MAPCAR #'(LAMBDA # #) ; (GET-PUT-ITEMS # ; TYPE-VALUES NIL ; #'#)))) ; `(,@(WHEN (ATOM (CAR RESULT)) ; (LIST (POP RESULT))) ; (PROGN ; (SETQ %MASK #) ; (SETQ %INDEX ,#) ; ,(CAR RESULT)) ; ,@(CDR RESULT)))) ; compiling (DEFUN MASK-PUT ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN MASK-PUT ; (DEFUN XLIB::MASK-PUT (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; `((LET ((XLIB::%MASK 0) (XLIB::%INDEX ,XLIB::INDEX)) ; ,@(LET (#) ; (XLIB::GET-PUT-ITEMS XLIB::INDEX XLIB::TYPE-VALUES T #'#)) ; (XLIB::WRITE-CARD32 ,XLIB::INDEX XLIB::%MASK) ; (XLIB::WRITE-CARD16 2 (XLIB::INDEX-CEILING # 4)) ; (INCF (XLIB::BUFFER-BOFFSET XLIB::%BUFFER) XLIB::%INDEX)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G991 ; ; note: could not stack allocate the result of (DEFUN MASK-PUT ; (INDEX TYPE-VALUES BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION BODY-FUNCTION) ; (DYNAMIC-EXTENT ; BODY-FUNCTION)) ; `((LET ((%MASK 0) (%INDEX ,INDEX)) ; ,@(LET ((BIT 1)) ; (GET-PUT-ITEMS INDEX ; TYPE-VALUES T ; #'(LAMBDA # # #))) ; (WRITE-CARD32 ,INDEX %MASK) ; (WRITE-CARD16 2 ; (INDEX-CEILING ; (INDEX-INCF %INDEX 4) 4)) ; (INCF (BUFFER-BOFFSET %BUFFER) ; %INDEX)))) ; compiling (DEFINE-ACCESSOR PROGN ...) ; compiling (DEFMACRO CHECK-PUT ...) ; compiling (DEFUN GET-PUT-ITEMS ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN GET-PUT-ITEMS ; (DEFUN XLIB::GET-PUT-ITEMS ; (XLIB::INDEX XLIB::TYPE-ARGS XLIB::PUTP &OPTIONAL XLIB::BODY-FUNCTION) ; (DECLARE (TYPE (OR NULL FUNCTION) XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; (UNLESS XLIB::BODY-FUNCTION (SETQ XLIB::BODY-FUNCTION #'(LAMBDA # `#))) ; (DO* ((XLIB::ITEMS XLIB::TYPE-ARGS (CDR XLIB::ITEMS)) ; (TYPE (CAAR XLIB::ITEMS) (CAAR XLIB::ITEMS)) ; (XLIB::ARGS NIL NIL) ; (XLIB::RESULT NIL) ; (XLIB::SIZES NIL)) ; ((ENDP XLIB::ITEMS) (VALUES XLIB::RESULT XLIB::INDEX XLIB::SIZES)) ; (WHEN (CONSP TYPE) ; (SETQ XLIB::ARGS # ; TYPE #)) ; (COND ((MEMBER TYPE '#)) ((EQ TYPE 'XLIB::MASK) (SETQ #)) ; (T (DO* # # # # #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF PROGN SB-C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1158 ; ; note: could not stack allocate the result of (DEFUN GET-PUT-ITEMS ; (INDEX TYPE-ARGS PUTP ; &OPTIONAL BODY-FUNCTION) ; (DECLARE ; (TYPE (OR NULL FUNCTION) ; BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; (UNLESS BODY-FUNCTION ; (SETQ BODY-FUNCTION ; #'(LAMBDA ; (TYPE INDEX ITEM ARGS) ; `(#)))) ; (DO* ((ITEMS TYPE-ARGS (CDR ITEMS)) ; (TYPE (CAAR ITEMS) (CAAR ITEMS)) ; (ARGS NIL NIL) ; (RESULT NIL) ; (SIZES NIL)) ; ((ENDP ITEMS) ; (VALUES RESULT INDEX SIZES)) ; (WHEN (CONSP TYPE) ; (SETQ ARGS (CDR TYPE) ; TYPE (CAR TYPE))) ; (COND ; ((MEMBER TYPE '(RETURN BUFFER))) ; ((EQ TYPE 'MASK) ; (SETQ RESULT # ; INDEX NIL)) ; (T ; (DO* (# ; #) ; (#) ; (WHEN # #) ; (SETQ #) ; (WHEN # #)))))) ; compiling (DEFMACRO WITH-BUFFER-REQUEST-INTERNAL ...) ; compiling (DEFMACRO WITH-BUFFER-REQUEST ...) ; compiling (DEFMACRO WITH-BUFFER-REQUEST-AND-REPLY ...) ; compiling (DEFMACRO COMPARE-REQUEST ...) ; compiling (DEFMACRO PUT-ITEMS ...) ; compiling (DEFMACRO DECODE-TYPE ...) ; compiling (DEFMACRO ENCODE-TYPE ...) ; compiling (DEFMACRO SET-DECODE-TYPE ...) ; compiling (DEFSETF DECODE-TYPE ...) ; compiling (DEFCONSTANT +X-CREATEWINDOW+ ...) ; compiling (DEFCONSTANT +X-CHANGEWINDOWATTRIBUTES+ ...) ; compiling (DEFCONSTANT +X-GETWINDOWATTRIBUTES+ ...) ; compiling (DEFCONSTANT +X-DESTROYWINDOW+ ...) ; compiling (DEFCONSTANT +X-DESTROYSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-CHANGESAVESET+ ...) ; compiling (DEFCONSTANT +X-REPARENTWINDOW+ ...) ; compiling (DEFCONSTANT +X-MAPWINDOW+ ...) ; compiling (DEFCONSTANT +X-MAPSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-UNMAPWINDOW+ ...) ; compiling (DEFCONSTANT +X-UNMAPSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-CONFIGUREWINDOW+ ...) ; compiling (DEFCONSTANT +X-CIRCULATEWINDOW+ ...) ; compiling (DEFCONSTANT +X-GETGEOMETRY+ ...) ; compiling (DEFCONSTANT +X-QUERYTREE+ ...) ; compiling (DEFCONSTANT +X-INTERNATOM+ ...) ; compiling (DEFCONSTANT +X-GETATOMNAME+ ...) ; compiling (DEFCONSTANT +X-CHANGEPROPERTY+ ...) ; compiling (DEFCONSTANT +X-DELETEPROPERTY+ ...) ; compiling (DEFCONSTANT +X-GETPROPERTY+ ...) ; compiling (DEFCONSTANT +X-LISTPROPERTIES+ ...) ; compiling (DEFCONSTANT +X-SETSELECTIONOWNER+ ...) ; compiling (DEFCONSTANT +X-GETSELECTIONOWNER+ ...) ; compiling (DEFCONSTANT +X-CONVERTSELECTION+ ...) ; compiling (DEFCONSTANT +X-SENDEVENT+ ...) ; compiling (DEFCONSTANT +X-GRABPOINTER+ ...) ; compiling (DEFCONSTANT +X-UNGRABPOINTER+ ...) ; compiling (DEFCONSTANT +X-GRABBUTTON+ ...) ; compiling (DEFCONSTANT +X-UNGRABBUTTON+ ...) ; compiling (DEFCONSTANT +X-CHANGEACTIVEPOINTERGRAB+ ...) ; compiling (DEFCONSTANT +X-GRABKEYBOARD+ ...) ; compiling (DEFCONSTANT +X-UNGRABKEYBOARD+ ...) ; compiling (DEFCONSTANT +X-GRABKEY+ ...) ; compiling (DEFCONSTANT +X-UNGRABKEY+ ...) ; compiling (DEFCONSTANT +X-ALLOWEVENTS+ ...) ; compiling (DEFCONSTANT +X-GRABSERVER+ ...) ; compiling (DEFCONSTANT +X-UNGRABSERVER+ ...) ; compiling (DEFCONSTANT +X-QUERYPOINTER+ ...) ; compiling (DEFCONSTANT +X-GETMOTIONEVENTS+ ...) ; compiling (DEFCONSTANT +X-TRANSLATECOORDS+ ...) ; compiling (DEFCONSTANT +X-WARPPOINTER+ ...) ; compiling (DEFCONSTANT +X-SETINPUTFOCUS+ ...) ; compiling (DEFCONSTANT +X-GETINPUTFOCUS+ ...) ; compiling (DEFCONSTANT +X-QUERYKEYMAP+ ...) ; compiling (DEFCONSTANT +X-OPENFONT+ ...) ; compiling (DEFCONSTANT +X-CLOSEFONT+ ...) ; compiling (DEFCONSTANT +X-QUERYFONT+ ...) ; compiling (DEFCONSTANT +X-QUERYTEXTEXTENTS+ ...) ; compiling (DEFCONSTANT +X-LISTFONTS+ ...) ; compiling (DEFCONSTANT +X-LISTFONTSWITHINFO+ ...) ; compiling (DEFCONSTANT +X-SETFONTPATH+ ...) ; compiling (DEFCONSTANT +X-GETFONTPATH+ ...) ; compiling (DEFCONSTANT +X-CREATEPIXMAP+ ...) ; compiling (DEFCONSTANT +X-FREEPIXMAP+ ...) ; compiling (DEFCONSTANT +X-CREATEGC+ ...) ; compiling (DEFCONSTANT +X-CHANGEGC+ ...) ; compiling (DEFCONSTANT +X-COPYGC+ ...) ; compiling (DEFCONSTANT +X-SETDASHES+ ...) ; compiling (DEFCONSTANT +X-SETCLIPRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-FREEGC+ ...) ; compiling (DEFCONSTANT +X-CLEARTOBACKGROUND+ ...) ; compiling (DEFCONSTANT +X-COPYAREA+ ...) ; compiling (DEFCONSTANT +X-COPYPLANE+ ...) ; compiling (DEFCONSTANT +X-POLYPOINT+ ...) ; compiling (DEFCONSTANT +X-POLYLINE+ ...) ; compiling (DEFCONSTANT +X-POLYSEGMENT+ ...) ; compiling (DEFCONSTANT +X-POLYRECTANGLE+ ...) ; compiling (DEFCONSTANT +X-POLYARC+ ...) ; compiling (DEFCONSTANT +X-FILLPOLY+ ...) ; compiling (DEFCONSTANT +X-POLYFILLRECTANGLE+ ...) ; compiling (DEFCONSTANT +X-POLYFILLARC+ ...) ; compiling (DEFCONSTANT +X-PUTIMAGE+ ...) ; compiling (DEFCONSTANT +X-GETIMAGE+ ...) ; compiling (DEFCONSTANT +X-POLYTEXT8+ ...) ; compiling (DEFCONSTANT +X-POLYTEXT16+ ...) ; compiling (DEFCONSTANT +X-IMAGETEXT8+ ...) ; compiling (DEFCONSTANT +X-IMAGETEXT16+ ...) ; compiling (DEFCONSTANT +X-CREATECOLORMAP+ ...) ; compiling (DEFCONSTANT +X-FREECOLORMAP+ ...) ; compiling (DEFCONSTANT +X-COPYCOLORMAPANDFREE+ ...) ; compiling (DEFCONSTANT +X-INSTALLCOLORMAP+ ...) ; compiling (DEFCONSTANT +X-UNINSTALLCOLORMAP+ ...) ; compiling (DEFCONSTANT +X-LISTINSTALLEDCOLORMAPS+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLOR+ ...) ; compiling (DEFCONSTANT +X-ALLOCNAMEDCOLOR+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLORCELLS+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLORPLANES+ ...) ; compiling (DEFCONSTANT +X-FREECOLORS+ ...) ; compiling (DEFCONSTANT +X-STORECOLORS+ ...) ; compiling (DEFCONSTANT +X-STORENAMEDCOLOR+ ...) ; compiling (DEFCONSTANT +X-QUERYCOLORS+ ...) ; compiling (DEFCONSTANT +X-LOOKUPCOLOR+ ...) ; compiling (DEFCONSTANT +X-CREATECURSOR+ ...) ; compiling (DEFCONSTANT +X-CREATEGLYPHCURSOR+ ...) ; compiling (DEFCONSTANT +X-FREECURSOR+ ...) ; compiling (DEFCONSTANT +X-RECOLORCURSOR+ ...) ; compiling (DEFCONSTANT +X-QUERYBESTSIZE+ ...) ; compiling (DEFCONSTANT +X-QUERYEXTENSION+ ...) ; compiling (DEFCONSTANT +X-LISTEXTENSIONS+ ...) ; compiling (DEFCONSTANT +X-SETKEYBOARDMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETKEYBOARDMAPPING+ ...) ; compiling (DEFCONSTANT +X-CHANGEKEYBOARDCONTROL+ ...) ; compiling (DEFCONSTANT +X-GETKEYBOARDCONTROL+ ...) ; compiling (DEFCONSTANT +X-BELL+ ...) ; compiling (DEFCONSTANT +X-CHANGEPOINTERCONTROL+ ...) ; compiling (DEFCONSTANT +X-GETPOINTERCONTROL+ ...) ; compiling (DEFCONSTANT +X-SETSCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-GETSCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-CHANGEHOSTS+ ...) ; compiling (DEFCONSTANT +X-LISTHOSTS+ ...) ; compiling (DEFCONSTANT +X-CHANGEACCESSCONTROL+ ...) ; compiling (DEFCONSTANT +X-CHANGECLOSEDOWNMODE+ ...) ; compiling (DEFCONSTANT +X-KILLCLIENT+ ...) ; compiling (DEFCONSTANT +X-ROTATEPROPERTIES+ ...) ; compiling (DEFCONSTANT +X-FORCESCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-SETPOINTERMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETPOINTERMAPPING+ ...) ; compiling (DEFCONSTANT +X-SETMODIFIERMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETMODIFIERMAPPING+ ...) ; compiling (DEFCONSTANT +X-NOOPERATION+ ...) ; compiling (DEFMACRO THREADED-ATOMIC-PUSH ...) ; compiling (DEFMACRO THREADED-ATOMIC-POP ...) ; compiling (DEFMACRO THREADED-NCONC ...) ; compiling (DEFMACRO THREADED-PUSH ...) ; compiling (DEFMACRO THREADED-POP ...) ; compiling (DEFMACRO THREADED-ENQUEUE ...) ; compiling (DEFMACRO THREADED-DEQUEUE ...) ; compiling (DEFMACRO THREADED-REQUEUE ...) ; compiling (DEFMACRO THREADED-DOLIST ...) ; compiling (DEFMACRO THREADED-DELETE ...) ; compiling (DEFMACRO THREADED-LENGTH ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-macros.fasl written ; compilation finished in 0:00:00.963 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO WRITE-CARD8 ...) ; compiling (DEFMACRO WRITE-INT8 ...) ; compiling (DEFMACRO WRITE-CARD16 ...) ; compiling (DEFMACRO WRITE-INT16 ...) ; compiling (DEFMACRO WRITE-CARD32 ...) ; compiling (DEFMACRO WRITE-INT32 ...) ; compiling (DEFMACRO WRITE-CARD29 ...) ; compiling (DEFMACRO WRITE-CHAR2B ...) ; compiling (DEFMACRO SET-BUFFER-OFFSET ...) ; compiling (DEFMACRO ADVANCE-BUFFER-OFFSET ...) ; compiling (DEFMACRO WITH-BUFFER-OUTPUT ...) ; compiling (DEFMACRO WRITING-BUFFER-CHUNKS ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-bufmac.fasl written ; compilation finished in 0:00:00.094 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +REQUESTSIZE+ ...) ; compiling (DEFMACRO WITH-BUFFER ...) ; compiling (DEFUN WITH-BUFFER-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-FUNCTION ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION)) ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF ; ==> ; (> SB-IMPL::EXPIRES 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (DEFUN XLIB::WITH-BUFFER-FUNCTION (XLIB::BUFFER XLIB::TIMEOUT FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB::BUFFER) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE XLIB::TIMEOUT)) ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G65 ; ; note: could not stack allocate the result of (DEFUN WITH-BUFFER-FUNCTION ; (BUFFER TIMEOUT FUNCTION) ; (DECLARE (TYPE DISPLAY BUFFER) ; (TYPE (OR NULL NUMBER) ; TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE TIMEOUT)) ; (WITH-BUFFER (BUFFER :TIMEOUT TIMEOUT ; :INLINE T) ; (FUNCALL FUNCTION))) ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION)) ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF ; ==> ; (> SB-IMPL::EXPIRES 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFMACRO READ-CARD8 ...) ; compiling (DEFMACRO READ-INT8 ...) ; compiling (DEFMACRO READ-CARD16 ...) ; compiling (DEFMACRO READ-INT16 ...) ; compiling (DEFMACRO READ-CARD32 ...) ; compiling (DEFMACRO READ-INT32 ...) ; compiling (DEFMACRO READ-CARD29 ...) ; compiling (DEFMACRO EVENT-CODE ...) ; compiling (DEFMACRO READING-EVENT ...) ; compiling (DEFMACRO WITH-BUFFER-INPUT ...) ; compiling (DEFUN MAKE-BUFFER ...) ; compiling (DEFUN MAKE-REPLY-BUFFER ...) ; compiling (DEFUN BUFFER-ENSURE-SIZE ...) ; compiling (DEFUN BUFFER-PAD-REQUEST ...) ; compiling (DECLAIM (INLINE BUFFER-NEW-REQUEST-NUMBER)) ; compiling (DEFUN BUFFER-NEW-REQUEST-NUMBER ...) ; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION ; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION ; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION)) ; (XLIB::WITH-BUFFER (XLIB:DISPLAY :INLINE T) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN XLIB::GC-FORCE #) ; (XLIB::WITHOUT-ABORTS ; #)) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G301 ; ; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-FUNCTION ; (DISPLAY GC-FORCE ; REQUEST-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL GCONTEXT) ; GC-FORCE)) ; (DECLARE ; (TYPE FUNCTION REQUEST-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION)) ; (WITH-BUFFER (DISPLAY :INLINE T) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN GC-FORCE ; (FORCE-GCONTEXT-CHANGES-INTERNAL ; GC-FORCE)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION ; DISPLAY))) ; (DISPLAY-INVOKE-AFTER-FUNCTION ; DISPLAY)))) ; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN XLIB::GC-FORCE ; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB::GC-FORCE)) ; (XLIB::WITHOUT-ABORTS ; (FUNCALL XLIB::REQUEST-FUNCTION XLIB:DISPLAY))) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G312 ; ; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (DISPLAY GC-FORCE ; REQUEST-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL GCONTEXT) ; GC-FORCE)) ; (DECLARE ; (TYPE FUNCTION REQUEST-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN GC-FORCE ; (FORCE-GCONTEXT-CHANGES-INTERNAL ; GC-FORCE)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION ; DISPLAY))) ; (DISPLAY-INVOKE-AFTER-FUNCTION ; DISPLAY))) ; compiling (DEFSTRUCT (PENDING-COMMAND # ...) ...) ; compiling (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DEFUN XLIB::WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (XLIB:DISPLAY XLIB::MULTIPLE-REPLY XLIB::REQUEST-FUNCTION ; XLIB::REPLY-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION)) ; (LET ((XLIB::PENDING-COMMAND NIL) (XLIB::REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL XLIB::PENDING-COMMAND) XLIB::PENDING-COMMAND) ; (TYPE (OR NULL XLIB::REPLY-BUFFER) XLIB::REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (XLIB::WITH-BUFFER # ; # ; # ; # ; #) ; (COND # #)) ; (WHEN XLIB::REPLY-BUFFER ; (XLIB::DEALLOCATE-REPLY-BUFFER XLIB::REPLY-BUFFER)) ; (WHEN XLIB::PENDING-COMMAND ; (XLIB::STOP-PENDING-COMMAND XLIB:DISPLAY XLIB::PENDING-COMMAND))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G399 ; ; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DISPLAY MULTIPLE-REPLY ; REQUEST-FUNCTION REPLY-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE GENERALIZED-BOOLEAN ; MULTIPLE-REPLY)) ; (DECLARE ; (TYPE FUNCTION REQUEST-FUNCTION ; REPLY-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION ; REPLY-FUNCTION)) ; (LET ((PENDING-COMMAND NIL) ; (REPLY-BUFFER NIL)) ; (DECLARE ; (TYPE (OR NULL PENDING-COMMAND) ; PENDING-COMMAND) ; (TYPE (OR NULL REPLY-BUFFER) ; REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (WITH-BUFFER (DISPLAY :INLINE T) ; (SETQ #) ; (WITHOUT-ABORTS ; #) ; (BUFFER-FORCE-OUTPUT DISPLAY) ; (DISPLAY-INVOKE-AFTER-FUNCTION ; DISPLAY)) ; (COND (MULTIPLE-REPLY #) ; (T # #))) ; (WHEN REPLY-BUFFER ; (DEALLOCATE-REPLY-BUFFER ; REPLY-BUFFER)) ; (WHEN PENDING-COMMAND ; (STOP-PENDING-COMMAND DISPLAY ; PENDING-COMMAND))))) ; ==> ; #:G400 ; ; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DISPLAY MULTIPLE-REPLY ; REQUEST-FUNCTION REPLY-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE GENERALIZED-BOOLEAN ; MULTIPLE-REPLY)) ; (DECLARE ; (TYPE FUNCTION REQUEST-FUNCTION ; REPLY-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION ; REPLY-FUNCTION)) ; (LET ((PENDING-COMMAND NIL) ; (REPLY-BUFFER NIL)) ; (DECLARE ; (TYPE (OR NULL PENDING-COMMAND) ; PENDING-COMMAND) ; (TYPE (OR NULL REPLY-BUFFER) ; REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (WITH-BUFFER (DISPLAY :INLINE T) ; (SETQ #) ; (WITHOUT-ABORTS ; #) ; (BUFFER-FORCE-OUTPUT DISPLAY) ; (DISPLAY-INVOKE-AFTER-FUNCTION ; DISPLAY)) ; (COND (MULTIPLE-REPLY #) ; (T # #))) ; (WHEN REPLY-BUFFER ; (DEALLOCATE-REPLY-BUFFER ; REPLY-BUFFER)) ; (WHEN PENDING-COMMAND ; (STOP-PENDING-COMMAND DISPLAY ; PENDING-COMMAND))))) ; compiling (DEFUN BUFFER-WRITE ...) ; compiling (DEFUN BUFFER-FLUSH ...) ; compiling (DEFMACRO WITH-BUFFER-FLUSH-INHIBITED ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT ...) ; compiling (DEFUN CLOSE-BUFFER ...) ; compiling (DEFUN BUFFER-INPUT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT ...) ; compiling (DEFUN BUFFER-LISTEN ...) ; compiling (DEFUN READ-SEQUENCE-STRING ...) ; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-READER ...) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-CHAR CHARACTER ; XLIB:CARD8->CHAR ; XLIB::READ-SEQUENCE-CARD8) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G672 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-CHAR CHARACTER ; CARD8->CHAR READ-SEQUENCE-CARD8) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-CHAR CHARACTER ; CARD8->CHAR READ-SEQUENCE-CARD8) ; compiling (DEFMACRO DEFINE-LIST-READERS ...) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD8 XLIB::READ-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 8 1 ; XLIB::READ-CARD8) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G738 ; ; note: could not stack allocate the result of (DEFINE-LIST-READERS ; (READ-LIST-CARD8 ; READ-LIST-CARD8-WITH-TRANSFORM) ; CARD8 8 1 READ-CARD8) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G815 ; ; note: could not stack allocate the result of (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA ; TRANSFORM START INDEX) ; (DECLARE ; (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD8 (*)) DATA)) ; (DECLARE ; (TYPE (FUNCTION (CARD8) CARD8) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD8 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES (8) ; :INDEX INDEX) ; (DO* ((J START #) ; (END #) ; (INDEX 0 #)) ; ((INDEX>= J END)) ; (DECLARE ; (TYPE ARRAY-INDEX J END INDEX)) ; (SETF # #))))) ; compiling (DEFUN READ-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G875 ; ; note: could not stack allocate the result of (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA ; TRANSFORM START INDEX) ; (DECLARE ; (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (CARD8) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES (8) ; :INDEX INDEX) ; (DO* ((J START #) ; (END #) ; (INDEX 0 #)) ; ((INDEX>= J END)) ; (DECLARE ; (TYPE ARRAY-INDEX J END INDEX)) ; (SETF # #))))) ; compiling (DEFMACRO DEFINE-SEQUENCE-READER ...) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD8 XLIB:CARD8 ; (XLIB::READ-LIST-CARD8 ; XLIB::READ-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD8 ; XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD8 ; XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G963 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER ; READ-SEQUENCE-CARD8 CARD8 ; (READ-LIST-CARD8 ; READ-LIST-CARD8-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD8 ; READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (READ-VECTOR-CARD8 ; READ-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER ; READ-SEQUENCE-CARD8 CARD8 ; (READ-LIST-CARD8 ; READ-LIST-CARD8-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD8 ; READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (READ-VECTOR-CARD8 ; READ-VECTOR-CARD8-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT8 XLIB:INT8 ; XLIB::CARD8->INT8 ; XLIB::READ-SEQUENCE-CARD8) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1038 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-INT8 INT8 CARD8->INT8 ; READ-SEQUENCE-CARD8) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-INT8 INT8 CARD8->INT8 ; READ-SEQUENCE-CARD8) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD16 XLIB::READ-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16 ; 16 2 XLIB::READ-CARD16) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1093 ; ; note: could not stack allocate the result of (DEFINE-LIST-READERS ; (READ-LIST-CARD16 ; READ-LIST-CARD16-WITH-TRANSFORM) ; CARD16 16 2 READ-CARD16) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1151 ; ; note: could not stack allocate the result of (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA ; TRANSFORM START INDEX) ; (DECLARE ; (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) ; DATA)) ; (DECLARE ; (TYPE (FUNCTION (CARD16) CARD16) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD16 ; (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES (16) ; :INDEX INDEX) ; (DO* ((J START #) ; (END #) ; (INDEX 0 #)) ; ((INDEX>= J END)) ; (DECLARE ; (TYPE ARRAY-INDEX J END INDEX)) ; (SETF # #))))) ; compiling (DEFUN READ-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1211 ; ; note: could not stack allocate the result of (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA ; TRANSFORM START INDEX) ; (DECLARE ; (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (CARD16) T) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES (16) ; :INDEX INDEX) ; (DO* ((J START #) ; (END #) ; (INDEX 0 #)) ; ((INDEX>= J END)) ; (DECLARE ; (TYPE ARRAY-INDEX J END INDEX)) ; (SETF # #))))) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD16 XLIB:CARD16 ; (XLIB::READ-LIST-CARD16 ; XLIB::READ-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD16 ; XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD16 ; XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1280 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER ; READ-SEQUENCE-CARD16 CARD16 ; (READ-LIST-CARD16 ; READ-LIST-CARD16-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD16 ; READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (READ-VECTOR-CARD16 ; READ-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER ; READ-SEQUENCE-CARD16 CARD16 ; (READ-LIST-CARD16 ; READ-LIST-CARD16-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD16 ; READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (READ-VECTOR-CARD16 ; READ-VECTOR-CARD16-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT16 ; XLIB:INT16 XLIB::CARD16->INT16 ; XLIB::READ-SEQUENCE-CARD16) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1355 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-INT16 INT16 CARD16->INT16 ; READ-SEQUENCE-CARD16) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-INT16 INT16 CARD16->INT16 ; READ-SEQUENCE-CARD16) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD32 XLIB::READ-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32 ; 32 4 XLIB::READ-CARD32) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1410 ; ; note: could not stack allocate the result of (DEFINE-LIST-READERS ; (READ-LIST-CARD32 ; READ-LIST-CARD32-WITH-TRANSFORM) ; CARD32 32 4 READ-CARD32) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1468 ; ; note: could not stack allocate the result of (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA ; TRANSFORM START INDEX) ; (DECLARE ; (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD32 (*)) ; DATA)) ; (DECLARE ; (TYPE (FUNCTION (CARD32) CARD32) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD32 ; (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES (32) ; :INDEX INDEX) ; (DO* ((J START #) ; (END #) ; (INDEX 0 #)) ; ((INDEX>= J END)) ; (DECLARE ; (TYPE ARRAY-INDEX J END INDEX)) ; (SETF # #))))) ; compiling (DEFUN READ-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1528 ; ; note: could not stack allocate the result of (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA ; TRANSFORM START INDEX) ; (DECLARE ; (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (CARD32) T) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES (32) ; :INDEX INDEX) ; (DO* ((J START #) ; (END #) ; (INDEX 0 #)) ; ((INDEX>= J END)) ; (DECLARE ; (TYPE ARRAY-INDEX J END INDEX)) ; (SETF # #))))) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD32 XLIB:CARD32 ; (XLIB::READ-LIST-CARD32 ; XLIB::READ-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD32 ; XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD32 ; XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1597 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER ; READ-SEQUENCE-CARD32 CARD32 ; (READ-LIST-CARD32 ; READ-LIST-CARD32-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD32 ; READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (READ-VECTOR-CARD32 ; READ-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER ; READ-SEQUENCE-CARD32 CARD32 ; (READ-LIST-CARD32 ; READ-LIST-CARD32-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD32 ; READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (READ-VECTOR-CARD32 ; READ-VECTOR-CARD32-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT32 ; XLIB:INT32 XLIB::CARD32->INT32 ; XLIB::READ-SEQUENCE-CARD32) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1671 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-INT32 INT32 CARD32->INT32 ; READ-SEQUENCE-CARD32) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::TRANSFORM ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER ; READ-SEQUENCE-INT32 INT32 CARD32->INT32 ; READ-SEQUENCE-CARD32) ; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-WRITER ...) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR CHARACTER ; XLIB:CHAR->CARD8 ; XLIB::WRITE-SEQUENCE-CARD8) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1741 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-WRITER ; WRITE-SEQUENCE-CHAR CHARACTER ; CHAR->CARD8 WRITE-SEQUENCE-CARD8) ; compiling (DEFMACRO DEFINE-LIST-WRITERS ...) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD8 XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 1 ; XLIB::WRITE-CARD8) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1860 ; ; note: could not stack allocate the result of (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD8 ; WRITE-LIST-CARD8-WITH-TRANSFORM) ; CARD8 1 WRITE-CARD8) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DOTIMES (XLIB::J XLIB::CHUNK) ; (DECLARE #) ; (XLIB::WRITE-CARD8 XLIB::J #) ; (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G1989 ; ; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE ; (SIMPLE-ARRAY CARD8 (*)) ; DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END)) ; (DECLARE ; (TYPE (FUNCTION (CARD8) CARD8) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD8 (*))) ; (WRITING-BUFFER-CHUNKS CARD8 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DOTIMES (J CHUNK) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD8 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DOTIMES (XLIB::J XLIB::CHUNK) ; (DECLARE #) ; (XLIB::WRITE-CARD8 XLIB::J #) ; (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2100 ; ; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END)) ; (DECLARE ; (TYPE (FUNCTION (T) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD8 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DOTIMES (J CHUNK) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD8 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFMACRO DEFINE-SEQUENCE-WRITER ...) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD8 XLIB:CARD8 ; (XLIB::WRITE-LIST-CARD8 ; XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD8 ; XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD8 ; XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2180 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER ; WRITE-SEQUENCE-CARD8 CARD8 ; (WRITE-LIST-CARD8 ; WRITE-LIST-CARD8-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD8 ; WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD8 ; WRITE-VECTOR-CARD8-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT8 XLIB:INT8 ; XLIB::INT8->CARD8 ; XLIB::WRITE-SEQUENCE-CARD8) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2242 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-WRITER ; WRITE-SEQUENCE-INT8 INT8 INT8->CARD8 ; WRITE-SEQUENCE-CARD8) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD16 XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16 ; 2 XLIB::WRITE-CARD16) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2343 ; ; note: could not stack allocate the result of (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD16 ; WRITE-LIST-CARD16-WITH-TRANSFORM) ; CARD16 2 WRITE-CARD16) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2442 ; ; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE ; (SIMPLE-ARRAY CARD16 (*)) ; DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END)) ; (DECLARE ; (TYPE (FUNCTION (CARD16) CARD16) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD16 ; (*))) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD16 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2543 ; ; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (T) CARD16) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD16 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD16 XLIB:CARD16 ; (XLIB::WRITE-LIST-CARD16 ; XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD16 ; XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD16 ; XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2601 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER ; WRITE-SEQUENCE-CARD16 CARD16 ; (WRITE-LIST-CARD16 ; WRITE-LIST-CARD16-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD16 ; WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD16 ; WRITE-VECTOR-CARD16-WITH-TRANSFORM)) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-INT16 XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) XLIB:INT16 2 ; XLIB::WRITE-INT16) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2702 ; ; note: could not stack allocate the result of (DEFINE-LIST-WRITERS ; (WRITE-LIST-INT16 ; WRITE-LIST-INT16-WITH-TRANSFORM) ; INT16 2 WRITE-INT16) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:INT16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:INT16) XLIB:INT16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:INT16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2801 ; ; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE ; (SIMPLE-ARRAY INT16 (*)) ; DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END)) ; (DECLARE ; (TYPE (FUNCTION (INT16) INT16) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY INT16 (*))) ; (WRITING-BUFFER-CHUNKS INT16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-INT16 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:INT16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G2902 ; ; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (T) INT16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS INT16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-INT16 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT16 XLIB:INT16 ; (XLIB::WRITE-LIST-INT16 ; XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-INT16 ; XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-INT16 ; XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2960 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER ; WRITE-SEQUENCE-INT16 INT16 ; (WRITE-LIST-INT16 ; WRITE-LIST-INT16-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-INT16 ; WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM) ; (WRITE-VECTOR-INT16 ; WRITE-VECTOR-INT16-WITH-TRANSFORM)) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD32 XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32 ; 4 XLIB::WRITE-CARD32) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G3061 ; ; note: could not stack allocate the result of (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD32 ; WRITE-LIST-CARD32-WITH-TRANSFORM) ; CARD32 4 WRITE-CARD32) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32 ; (XLIB::WRITE-CARD32 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; ==> ; (XLIB::ASET-CARD32 (THE XLIB:CARD32 (AREF XLIB::DATA XLIB::INDEX)) ; XLIB::BUFFER-BBUF ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J)) ; ; note: doing unsigned word to integer coercion (cost 20) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G3160 ; ; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE ; (SIMPLE-ARRAY CARD32 (*)) ; DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END)) ; (DECLARE ; (TYPE (FUNCTION (CARD32) CARD32) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD32 ; (*))) ; (WRITING-BUFFER-CHUNKS CARD32 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD32 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)) ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::TRANSFORM) ; (AREF XLIB::DATA XLIB::INDEX)) ; ; note: doing unsigned word to integer coercion (cost 20) ; compiling (DEFUN WRITE-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G3261 ; ; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (T) CARD32) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD32 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD32 J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD32 XLIB:CARD32 ; (XLIB::WRITE-LIST-CARD32 ; XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD32 ; XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD32 ; XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G3319 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER ; WRITE-SEQUENCE-CARD32 CARD32 ; (WRITE-LIST-CARD32 ; WRITE-LIST-CARD32-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD32 ; WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD32 ; WRITE-VECTOR-CARD32-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT32 ; XLIB:INT32 XLIB::INT32->CARD32 ; XLIB::WRITE-SEQUENCE-CARD32) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G3380 ; ; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-WRITER ; WRITE-SEQUENCE-INT32 INT32 ; INT32->CARD32 WRITE-SEQUENCE-CARD32) ; compiling (DEFUN READ-BITVECTOR256 ...) ; compiling (DEFUN WRITE-BITVECTOR256 ...) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CHAR2B XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) XLIB:CARD16 ; 2 XLIB::WRITE-CHAR2B) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G3585 ; ; note: could not stack allocate the result of (DEFINE-LIST-WRITERS ; (WRITE-LIST-CHAR2B ; WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; CARD16 2 WRITE-CHAR2B) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G3714 ; ; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE ; (SIMPLE-ARRAY CARD16 (*)) ; DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END)) ; (DECLARE ; (TYPE (FUNCTION (CARD16) CARD16) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA ; (SIMPLE-ARRAY CARD16 ; (*))) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J #) (SETF #)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CHAR2B J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G3845 ; ; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END ; TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET ; START END) ; (OPTIMIZE)) ; (DECLARE ; (TYPE (FUNCTION (T) CARD16) ; TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 #)) ; ((INDEX>= J #) (SETF #)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CHAR2B J ; (FUNCALL TRANSFORM ; #)) ; (SETQ INDEX #)))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR2B XLIB:CARD16 ; (XLIB::WRITE-LIST-CHAR2B ; XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CHAR2B ; XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CHAR2B ; XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM)) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF ; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G3912 ; ; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER ; WRITE-SEQUENCE-CHAR2B CARD16 ; (WRITE-LIST-CHAR2B ; WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CHAR2B ; WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM) ; (WRITE-VECTOR-CHAR2B ; WRITE-VECTOR-CHAR2B-WITH-TRANSFORM)) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-buffer.fasl written ; compilation finished in 0:00:02.630 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFPARAMETER *KNOWN-AUTHORIZATIONS* ...) ; compiling (DEFUN READ-XAUTH-ENTRY ...) ; compiling (DEFUN GET-BEST-AUTHORIZATION ...) ; compiling (DEFMACRO WITH-DISPLAY ...) ; compiling (DEFUN INITIALIZE-RESOURCE-ALLOCATOR ...) ; compiling (DEFUN RESOURCEALLOC ...) ; compiling (DEFMACRO ALLOCATE-RESOURCE-ID ...) ; compiling (DEFMACRO DEALLOCATE-RESOURCE-ID ...) ; compiling (DEFUN DEALLOCATE-RESOURCE-ID-INTERNAL ...) ; compiling (DEFUN LOOKUP-RESOURCE-ID ...) ; compiling (DEFUN SAVE-ID ...) ; compiling (GENERATE-LOOKUP-FUNCTIONS IGNORE ...) ; compiling (DEFUN ID-ATOM ...) ; compiling (DEFUN ATOM-ID ...) ; compiling (DEFUN SET-ATOM-ID ...) ; compiling (DEFSETF ATOM-ID ...) ; compiling (DEFUN INITIALIZE-PREDEFINED-ATOMS ...) ; compiling (DEFUN VISUAL-INFO ...) ; compiling (DEFMACRO WITH-EVENT-QUEUE ...) ; compiling (DEFUN WITH-EVENT-QUEUE-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN WITH-EVENT-QUEUE-FUNCTION ; (DEFUN XLIB::WITH-EVENT-QUEUE-FUNCTION (XLIB:DISPLAY XLIB::TIMEOUT FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE XLIB:DISPLAY XLIB::TIMEOUT)) ; (XLIB:WITH-EVENT-QUEUE (XLIB:DISPLAY :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL ; ==> ; #:G412 ; ; note: could not stack allocate the result of (DEFUN WITH-EVENT-QUEUE-FUNCTION ; (DISPLAY TIMEOUT FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL NUMBER) ; TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE DISPLAY TIMEOUT)) ; (WITH-EVENT-QUEUE (DISPLAY :TIMEOUT ; TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; compiling (DEFMACRO WITH-EVENT-QUEUE-INTERNAL ...) ; compiling (DEFUN OPEN-DEFAULT-DISPLAY ...) ; compiling (DEFUN OPEN-DISPLAY ...) ; compiling (DEFUN DISPLAY-FORCE-OUTPUT ...) ; compiling (DEFUN CLOSE-DISPLAY ...) ; compiling (DEFUN DISPLAY-CONNECT ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN DISPLAY-CONNECT ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN DISPLAY-PROTOCOL-VERSION ...) ; compiling (DEFUN DISPLAY-VENDOR ...) ; compiling (DEFUN DISPLAY-NSCREENS ...) ; compiling (DEFVAR *INSIDE-DISPLAY-AFTER-FUNCTION* ...) ; compiling (DEFUN DISPLAY-INVOKE-AFTER-FUNCTION ...) ; compiling (DEFUN DISPLAY-FINISH-OUTPUT ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFPARAMETER *REQUEST-NAMES* ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-display.fasl written ; compilation finished in 0:00:00.555 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +GCONTEXT-FAST-CHANGE-LENGTH+ ...) ; compiling (DEF-GC-INTERNALS IGNORE ...) ; compiling (DEFTYPE GCMASK ...) ; compiling (DEFTYPE XGCMASK ...) ; compiling (DEFSTRUCT (GCONTEXT-EXTENSION # ...) ...) ; compiling (DEFVAR *GCONTEXT-EXTENSIONS* ...) ; compiling (DEFVAR *GCONTEXT-LOCAL-STATE-CACHE* ...) ; compiling (DEFMACRO GCONTEXT-STATE-NEXT ...) ; compiling (DEFUN ALLOCATE-GCONTEXT-STATE ...) ; compiling (DEFUN DEALLOCATE-GCONTEXT-STATE ...) ; compiling (DEFVAR *TEMP-GCONTEXT-CACHE* ...) ; compiling (DEFUN ALLOCATE-TEMP-GCONTEXT ...) ; compiling (DEFUN DEALLOCATE-TEMP-GCONTEXT ...) ; compiling (DEFMACRO XGCMASK->GCMASK ...) ; compiling (DEFMACRO ACCESS-GCONTEXT ...) ; compiling (DEFMACRO MODIFY-GCONTEXT ...) ; compiling (DEFMACRO DEF-GC-ACCESSOR ...) ; compiling (DEFMACRO INCF-INTERNAL-TIMESTAMP ...) ; compiling (DEF-GC-ACCESSOR FUNCTION ...) ; compiling (DEF-GC-ACCESSOR PLANE-MASK ...) ; compiling (DEF-GC-ACCESSOR FOREGROUND ...) ; compiling (DEF-GC-ACCESSOR BACKGROUND ...) ; compiling (DEF-GC-ACCESSOR LINE-WIDTH ...) ; compiling (DEF-GC-ACCESSOR LINE-STYLE ...) ; compiling (DEF-GC-ACCESSOR CAP-STYLE ...) ; compiling (DEF-GC-ACCESSOR JOIN-STYLE ...) ; compiling (DEF-GC-ACCESSOR FILL-STYLE ...) ; compiling (DEF-GC-ACCESSOR FILL-RULE ...) ; compiling (DEF-GC-ACCESSOR TILE ...) ; compiling (DEF-GC-ACCESSOR STIPPLE ...) ; compiling (DEF-GC-ACCESSOR TS-X ...) ; compiling (DEF-GC-ACCESSOR TS-Y ...) ; compiling (DEF-GC-ACCESSOR SUBWINDOW-MODE ...) ; compiling (DEF-GC-ACCESSOR EXPOSURES ...) ; compiling (DEF-GC-ACCESSOR CLIP-X ...) ; compiling (DEF-GC-ACCESSOR CLIP-Y ...) ; compiling (DEF-GC-ACCESSOR DASH-OFFSET ...) ; compiling (DEF-GC-ACCESSOR ARC-MODE ...) ; compiling (DEFUN GCONTEXT-CLIP-MASK ...) ; compiling (DEFSETF GCONTEXT-CLIP-MASK ...) ; compiling (DEFUN SET-GCONTEXT-CLIP-MASK ...) ; compiling (DEFUN GCONTEXT-DASHES ...) ; compiling (DEFSETF GCONTEXT-DASHES ...) ; compiling (DEFUN SET-GCONTEXT-DASHES ...) ; compiling (DEFUN GCONTEXT-FONT ...) ; compiling (DEFSETF GCONTEXT-FONT ...) ; compiling (DEFUN SET-GCONTEXT-FONT ...) ; compiling (DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (ZEROP (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY)) ; ==> ; (= (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) ; XLIB:GCONTEXT XLIB::LOCAL) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION))) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::.VALUE.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (DO ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 12) ; (XLIB::MASK 0) ; (XLIB::LOCAL 0)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (WHEN # # #) ; (XLIB::CARD29-PUT 8 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL # #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (EQL (THE (OR NULL XLIB:CARD32) (SVREF XLIB::SERVER-STATE XLIB::I)) ; (SETQ XLIB::LOCAL ; (THE (OR NULL XLIB:CARD32) (SVREF XLIB::LOCAL-STATE XLIB::I)))) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM. ; The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (DO ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 12) ; (XLIB::MASK 0) ; (XLIB::LOCAL 0)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (WHEN # # #) ; (XLIB::CARD29-PUT 8 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL # #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN FORCE-GCONTEXT-CHANGES ...) ; compiling (DEFMACRO WITH-GCONTEXT ...) ; compiling (DEFUN COPY-GCONTEXT-LOCAL-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER PROGN FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC ; (SVREF XLIB::LOCAL-STATE ; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::COPY-FUNCTION) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 2) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; compiling (DEFUN RESTORE-GCONTEXT-TEMP-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::COPY-FUNCTION) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 2) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; compiling (DEFUN CREATE-GCONTEXT ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (EQL XLIB::LOCAL ; (THE (OR NULL XLIB:CARD32) (SVREF XLIB::SERVER-STATE XLIB::I))) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM. ; The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN COPY-GCONTEXT-COMPONENTS ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION)) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN COPY-GCONTEXT ...) ; compiling (DEFUN FREE-GCONTEXT ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFMACRO DEFINE-GCONTEXT-ACCESSOR ...) ; compiling (DEFUN ADD-GCONTEXT-EXTENSION ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-gcontext.fasl written ; compilation finished in 0:00:02.499 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *EVENT-FREE-LIST* ...) ; compiling (DEFCONSTANT +MAX-EVENTS+ ...) ; compiling (DEFVAR *EVENT-KEY-VECTOR* ...) ; compiling (DEFVAR *EVENT-MACRO-VECTOR* ...) ; compiling (DEFVAR *EVENT-HANDLER-VECTOR* ...) ; compiling (DEFVAR *EVENT-SEND-VECTOR* ...) ; compiling (DEFUN ALLOCATE-EVENT ...) ; compiling (DEFUN DEALLOCATE-EVENT ...) ; compiling (DEFPARAMETER *FIRST-EXTENSION-EVENT-CODE* ...) ; compiling (DEFVAR *EXTENSIONS* ...) ; compiling (DEFMACRO DEFINE-EXTENSION ...) ; compiling (DEFUN CANONICALIZE-EVENT-NAME ...) ; compiling (DEFUN EXTENSION-EVENT-KEY-P ...) ; compiling (DEFUN ALLOCATE-EXTENSION-EVENT-CODE ...) ; compiling (DEFUN GET-INTERNAL-EVENT-CODE ...) ; compiling (DEFUN GET-EXTERNAL-EVENT-CODE ...) ; compiling (DEFMACRO EXTENSION-OPCODE ...) ; compiling (DEFUN INITIALIZE-EXTENSIONS ...) ; compiling (DEFVAR *PENDING-COMMAND-FREE-LIST* ...) ; compiling (DEFUN START-PENDING-COMMAND ...) ; compiling (DEFUN STOP-PENDING-COMMAND ...) ; compiling (DEFVAR *REPLY-BUFFER-FREE-LISTS* ...) ; compiling (DEFUN ALLOCATE-REPLY-BUFFER ...) ; compiling (DEFUN DEALLOCATE-REPLY-BUFFER ...) ; compiling (DEFUN READ-ERROR-INPUT ...) ; compiling (DEFUN READ-REPLY-INPUT ...) ; compiling (DEFUN READ-EVENT-INPUT ...) ; compiling (DEFUN NOTE-INPUT-COMPLETE ...) ; compiling (DEFUN READ-INPUT ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (DEFUN XLIB::READ-INPUT ; (XLIB:DISPLAY XLIB::TIMEOUT XLIB::FORCE-OUTPUT-P XLIB::PREDICATE ; &REST XLIB::PREDICATE-ARGS) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::FORCE-OUTPUT-P) ; (DYNAMIC-EXTENT XLIB::PREDICATE-ARGS)) ; (DECLARE (TYPE FUNCTION XLIB::PREDICATE) ; (DYNAMIC-EXTENT XLIB::PREDICATE)) ; (LET ((XLIB::REPLY-BUFFER NIL) (XLIB::TOKEN (OR # #))) ; (DECLARE (TYPE (OR NULL XLIB::REPLY-BUFFER) XLIB::REPLY-BUFFER)) ; (UNWIND-PROTECT ; (TAGBODY ; LOOP ; (WHEN # #) ; (WHEN # #) ; (WHEN # #) ; (UNLESS # # #) ; (SETQ #) ; (XLIB::WITH-BUFFER-INPUT # ; #) ; (GO LOOP) ; FORCE-OUTPUT ; (XLIB::NOTE-INPUT-COMPLETE XLIB:DISPLAY XLIB::TOKEN) ; (XLIB:DISPLAY-FORCE-OUTPUT XLIB:DISPLAY) ...) ; (WHEN (NOT #) (XLIB::DEALLOCATE-REPLY-BUFFER XLIB::REPLY-BUFFER)) ; (XLIB::NOTE-INPUT-COMPLETE XLIB:DISPLAY XLIB::TOKEN)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LET SB-C::%FUNCALL ; ==> ; XLIB::PREDICATE ; ; note: could not stack allocate the result of (DEFUN READ-INPUT ; (DISPLAY TIMEOUT FORCE-OUTPUT-P ; PREDICATE ; &REST PREDICATE-ARGS) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL NUMBER) ; TIMEOUT) ; (TYPE GENERALIZED-BOOLEAN ; FORCE-OUTPUT-P) ; (DYNAMIC-EXTENT ; PREDICATE-ARGS)) ; (DECLARE (TYPE FUNCTION PREDICATE) ; (DYNAMIC-EXTENT PREDICATE)) ; (LET ((REPLY-BUFFER NIL) ; (TOKEN ; (OR (CURRENT-PROCESS) ; (CONS NIL NIL)))) ; (DECLARE ; (TYPE (OR NULL REPLY-BUFFER) ; REPLY-BUFFER)) ; (UNWIND-PROTECT ; (TAGBODY ; LOOP ; (WHEN (DISPLAY-DEAD DISPLAY) ; (X-ERROR 'CLOSED-DISPLAY ; :DISPLAY DISPLAY)) ; (WHEN ; (APPLY PREDICATE ; PREDICATE-ARGS) ; (RETURN-FROM READ-INPUT ; NIL)) ; (WHEN (AND FORCE-OUTPUT-P #) ; (GO FORCE-OUTPUT)) ; (UNLESS (OR # #) ; (IF # ; # ; #) ; (GO LOOP)) ; (SETQ REPLY-BUFFER #) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES #) ; (LET # ; # ; # ; # ; #)) ; (GO LOOP) ; FORCE-OUTPUT ; (NOTE-INPUT-COMPLETE DISPLAY ; TOKEN) ; (DISPLAY-FORCE-OUTPUT ; DISPLAY) ...) ; (WHEN (NOT (NULL REPLY-BUFFER)) ; (DEALLOCATE-REPLY-BUFFER ; REPLY-BUFFER)) ; (NOTE-INPUT-COMPLETE DISPLAY ; TOKEN)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; XLIB::PREDICATE ; ; note: could not stack allocate the result of (DEFUN READ-INPUT ; (DISPLAY TIMEOUT FORCE-OUTPUT-P ; PREDICATE ; &REST PREDICATE-ARGS) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL NUMBER) ; TIMEOUT) ; (TYPE GENERALIZED-BOOLEAN ; FORCE-OUTPUT-P) ; (DYNAMIC-EXTENT ; PREDICATE-ARGS)) ; (DECLARE (TYPE FUNCTION PREDICATE) ; (DYNAMIC-EXTENT PREDICATE)) ; (LET ((REPLY-BUFFER NIL) ; (TOKEN ; (OR (CURRENT-PROCESS) ; (CONS NIL NIL)))) ; (DECLARE ; (TYPE (OR NULL REPLY-BUFFER) ; REPLY-BUFFER)) ; (UNWIND-PROTECT ; (TAGBODY ; LOOP ; (WHEN (DISPLAY-DEAD DISPLAY) ; (X-ERROR 'CLOSED-DISPLAY ; :DISPLAY DISPLAY)) ; (WHEN ; (APPLY PREDICATE ; PREDICATE-ARGS) ; (RETURN-FROM READ-INPUT ; NIL)) ; (WHEN (AND FORCE-OUTPUT-P #) ; (GO FORCE-OUTPUT)) ; (UNLESS (OR # #) ; (IF # ; # ; #) ; (GO LOOP)) ; (SETQ REPLY-BUFFER #) ; (WITH-BUFFER-INPUT (REPLY-BUFFER ; :SIZES #) ; (LET # ; # ; # ; # ; #)) ; (GO LOOP) ; FORCE-OUTPUT ; (NOTE-INPUT-COMPLETE DISPLAY ; TOKEN) ; (DISPLAY-FORCE-OUTPUT ; DISPLAY) ...) ; (WHEN (NOT (NULL REPLY-BUFFER)) ; (DEALLOCATE-REPLY-BUFFER ; REPLY-BUFFER)) ; (NOTE-INPUT-COMPLETE DISPLAY ; TOKEN)))) ; #'(LAMBDA (XLIB:DISPLAY XLIB::PREDICATE &REST XLIB::PREDICATE-ARGS) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (DYNAMIC-EXTENT XLIB::PREDICATE-ARGS) ; (TYPE FUNCTION XLIB::PREDICATE) ; (DYNAMIC-EXTENT XLIB::PREDICATE)) ; (OR (APPLY XLIB::PREDICATE XLIB::PREDICATE-ARGS) ; (NULL (XLIB::DISPLAY-INPUT-IN-PROGRESS XLIB:DISPLAY)) ; (NOT (NULL (XLIB::DISPLAY-DEAD XLIB:DISPLAY))))) ; --> SB-C::%FUNCALL ; ==> ; XLIB::PREDICATE ; ; note: could not stack allocate the result of #'(LAMBDA ; (DISPLAY PREDICATE ; &REST PREDICATE-ARGS) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (DYNAMIC-EXTENT ; PREDICATE-ARGS) ; (TYPE FUNCTION PREDICATE) ; (DYNAMIC-EXTENT PREDICATE)) ; (OR (APPLY PREDICATE PREDICATE-ARGS) ; (NULL ; (DISPLAY-INPUT-IN-PROGRESS ; DISPLAY)) ; (NOT ; (NULL (DISPLAY-DEAD DISPLAY))))) ; --> LET SB-C::%FUNCALL ; ==> ; XLIB::PREDICATE ; ; note: could not stack allocate the result of #'(LAMBDA ; (DISPLAY PREDICATE ; &REST PREDICATE-ARGS) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (DYNAMIC-EXTENT ; PREDICATE-ARGS) ; (TYPE FUNCTION PREDICATE) ; (DYNAMIC-EXTENT PREDICATE)) ; (OR (APPLY PREDICATE PREDICATE-ARGS) ; (NULL ; (DISPLAY-INPUT-IN-PROGRESS ; DISPLAY)) ; (NOT ; (NULL (DISPLAY-DEAD DISPLAY))))) ; compiling (DEFUN REPORT-ASYNCHRONOUS-ERRORS ...) ; compiling (DEFUN WAIT-FOR-EVENT ...) ; compiling (DEFUN READ-REPLY ...) ; compiling (DEFUN EVENT-LISTEN ...) ; compiling (DEFUN QUEUE-EVENT ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE)) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; compiling (DEFUN ENQUEUE-EVENT ...) ; compiling (DEFMACRO DEFINE-EVENT ...) ; compiling (DEFINE-EVENT :KEY-PRESS ...) ; compiling (DEFINE-EVENT :KEY-RELEASE ...) ; compiling (DEFINE-EVENT :BUTTON-PRESS ...) ; compiling (DEFINE-EVENT :BUTTON-RELEASE ...) ; compiling (DEFINE-EVENT :MOTION-NOTIFY ...) ; compiling (DEFINE-EVENT :ENTER-NOTIFY ...) ; compiling (DEFINE-EVENT :LEAVE-NOTIFY ...) ; compiling (DEFINE-EVENT :FOCUS-IN ...) ; compiling (DEFINE-EVENT :FOCUS-OUT ...) ; compiling (DEFINE-EVENT :KEYMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :EXPOSURE ...) ; compiling (DEFINE-EVENT :GRAPHICS-EXPOSURE ...) ; compiling (DEFINE-EVENT :NO-EXPOSURE ...) ; compiling (DEFINE-EVENT :VISIBILITY-NOTIFY ...) ; compiling (DEFINE-EVENT :CREATE-NOTIFY ...) ; compiling (DEFINE-EVENT :DESTROY-NOTIFY ...) ; compiling (DEFINE-EVENT :UNMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :MAP-NOTIFY ...) ; compiling (DEFINE-EVENT :MAP-REQUEST ...) ; compiling (DEFINE-EVENT :REPARENT-NOTIFY ...) ; compiling (DEFINE-EVENT :CONFIGURE-NOTIFY ...) ; compiling (DEFINE-EVENT :CONFIGURE-REQUEST ...) ; compiling (DEFINE-EVENT :GRAVITY-NOTIFY ...) ; compiling (DEFINE-EVENT :RESIZE-REQUEST ...) ; compiling (DEFINE-EVENT :CIRCULATE-NOTIFY ...) ; compiling (DEFINE-EVENT :CIRCULATE-REQUEST ...) ; compiling (DEFINE-EVENT :PROPERTY-NOTIFY ...) ; compiling (DEFINE-EVENT :SELECTION-CLEAR ...) ; compiling (DEFINE-EVENT :SELECTION-REQUEST ...) ; compiling (DEFINE-EVENT :SELECTION-NOTIFY ...) ; compiling (DEFINE-EVENT :COLORMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :CLIENT-MESSAGE ...) ; compiling (DEFINE-EVENT :MAPPING-NOTIFY ...) ; compiling (DEFMACRO DECLARE-EVENT ...) ; compiling (DEFUN CHECK-CONSISTENCY ...) ; compiling (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE ...) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: ; DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (XLIB:DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (XLIB::DATA XLIB::CODE) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; (BOOLEAN XLIB::SAME-SCREEN-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G1642 ; ; note: could not stack allocate the result of (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE ; :BUTTON-PRESS ; :BUTTON-RELEASE) ; (DATA CODE) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; (BOOLEAN SAME-SCREEN-P)) ; compiling (DECLARE-EVENT :MOTION-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MOTION-NOTIFY ; (XLIB:DECLARE-EVENT :MOTION-NOTIFY ; ((XLIB::DATA BOOLEAN) XLIB::HINT-P) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; (BOOLEAN XLIB::SAME-SCREEN-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G1847 ; ; note: could not stack allocate the result of (DECLARE-EVENT :MOTION-NOTIFY ; ((DATA BOOLEAN) HINT-P) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; (BOOLEAN SAME-SCREEN-P)) ; compiling (DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; (XLIB:DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; ((XLIB::DATA ; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; ((XLIB::MEMBER8 :NORMAL :GRAB :UNGRAB) XLIB::MODE) ; ((BIT 0) XLIB::FOCUS-P) ; ((BIT 1) XLIB::SAME-SCREEN-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G1989 ; ; note: could not stack allocate the result of (DECLARE-EVENT (:ENTER-NOTIFY ; :LEAVE-NOTIFY) ; ((DATA ; (MEMBER8 :ANCESTOR :VIRTUAL ; :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; KIND) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; ((MEMBER8 :NORMAL :GRAB :UNGRAB) MODE) ; ((BIT 0) FOCUS-P) ; ((BIT 1) SAME-SCREEN-P)) ; compiling (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; (XLIB:DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; ((XLIB::DATA ; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR :NONLINEAR-VIRTUAL ; :POINTER :POINTER-ROOT :NONE)) ; XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((XLIB::MEMBER8 :NORMAL :WHILE-GRABBED :GRAB :UNGRAB) XLIB::MODE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2273 ; ; note: could not stack allocate the result of (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; ((DATA ; (MEMBER8 :ANCESTOR :VIRTUAL ; :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL :POINTER ; :POINTER-ROOT :NONE)) ; KIND) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((MEMBER8 :NORMAL :WHILE-GRABBED :GRAB ; :UNGRAB) ; MODE)) ; compiling (DECLARE-EVENT :KEYMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :KEYMAP-NOTIFY ; (XLIB:DECLARE-EVENT :KEYMAP-NOTIFY ; ((XLIB::BIT-VECTOR256 0) XLIB::KEYMAP)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2511 ; ; note: could not stack allocate the result of (DECLARE-EVENT :KEYMAP-NOTIFY ; ((BIT-VECTOR256 0) KEYMAP)) ; compiling (DECLARE-EVENT :EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :EXPOSURE ; (XLIB:DECLARE-EVENT :EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2582 ; ; note: could not stack allocate the result of (DECLARE-EVENT :EXPOSURE ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (CARD16 X Y WIDTH HEIGHT COUNT)) ; compiling (DECLARE-EVENT :GRAPHICS-EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :GRAPHICS-EXPOSURE ; (XLIB:DECLARE-EVENT :GRAPHICS-EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD16 XLIB::MINOR) ; (XLIB:CARD16 COUNT) ; (XLIB:CARD8 XLIB::MAJOR)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2668 ; ; note: could not stack allocate the result of (DECLARE-EVENT :GRAPHICS-EXPOSURE ; (CARD16 SEQUENCE) ; (DRAWABLE (DRAWABLE EVENT-WINDOW)) ; (CARD16 X Y WIDTH HEIGHT) ; (CARD16 MINOR) ; (CARD16 COUNT) ; (CARD8 MAJOR)) ; compiling (DECLARE-EVENT :NO-EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :NO-EXPOSURE ; (XLIB:DECLARE-EVENT :NO-EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::MINOR) ; (XLIB:CARD8 XLIB::MAJOR)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2759 ; ; note: could not stack allocate the result of (DECLARE-EVENT :NO-EXPOSURE ; (CARD16 SEQUENCE) ; (DRAWABLE (DRAWABLE EVENT-WINDOW)) ; (CARD16 MINOR) ; (CARD8 MAJOR)) ; compiling (DECLARE-EVENT :VISIBILITY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :VISIBILITY-NOTIFY ; (XLIB:DECLARE-EVENT :VISIBILITY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((XLIB::MEMBER8 :UNOBSCURED :PARTIALLY-OBSCURED :FULLY-OBSCURED) ; XLIB::STATE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2841 ; ; note: could not stack allocate the result of (DECLARE-EVENT :VISIBILITY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((MEMBER8 :UNOBSCURED ; :PARTIALLY-OBSCURED :FULLY-OBSCURED) ; STATE)) ; compiling (DECLARE-EVENT :CREATE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CREATE-NOTIFY ; (XLIB:DECLARE-EVENT :CREATE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G2986 ; ; note: could not stack allocate the result of (DECLARE-EVENT :CREATE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :DESTROY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3075 ; ; note: could not stack allocate the result of (DECLARE-EVENT :DESTROY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW)) ; compiling (DECLARE-EVENT :UNMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::CONFIGURE-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3146 ; ; note: could not stack allocate the result of (DECLARE-EVENT :UNMAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (BOOLEAN CONFIGURE-P)) ; compiling (DECLARE-EVENT :MAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAP-NOTIFY ; (XLIB:DECLARE-EVENT :MAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3225 ; ; note: could not stack allocate the result of (DECLARE-EVENT :MAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :MAP-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAP-REQUEST ; (XLIB:DECLARE-EVENT :MAP-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3304 ; ; note: could not stack allocate the result of (DECLARE-EVENT :MAP-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW)) ; compiling (DECLARE-EVENT :REPARENT-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :REPARENT-NOTIFY ; (XLIB:DECLARE-EVENT :REPARENT-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3379 ; ; note: could not stack allocate the result of (DECLARE-EVENT :REPARENT-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW PARENT) ; (INT16 X Y) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :CONFIGURE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CONFIGURE-NOTIFY ; (XLIB:DECLARE-EVENT :CONFIGURE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3481 ; ; note: could not stack allocate the result of (DECLARE-EVENT :CONFIGURE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; ((OR NULL WINDOW) ABOVE-SIBLING) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :CONFIGURE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CONFIGURE-REQUEST ; (XLIB:DECLARE-EVENT :CONFIGURE-REQUEST ; ((XLIB::DATA (XLIB::MEMBER8 :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE)) ; XLIB::STACK-MODE) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH XLIB::VALUE-MASK)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3594 ; ; note: could not stack allocate the result of (DECLARE-EVENT :CONFIGURE-REQUEST ; ((DATA ; (MEMBER8 :ABOVE :BELOW :TOP-IF ; :BOTTOM-IF :OPPOSITE)) ; STACK-MODE) ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; ((OR NULL WINDOW) ABOVE-SIBLING) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH ; VALUE-MASK)) ; compiling (DECLARE-EVENT :GRAVITY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :GRAVITY-NOTIFY ; (XLIB:DECLARE-EVENT :GRAVITY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3762 ; ; note: could not stack allocate the result of (DECLARE-EVENT :GRAVITY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (INT16 X Y)) ; compiling (DECLARE-EVENT :RESIZE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :RESIZE-REQUEST ; (XLIB:DECLARE-EVENT :RESIZE-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3838 ; ; note: could not stack allocate the result of (DECLARE-EVENT :RESIZE-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (CARD16 WIDTH HEIGHT)) ; compiling (DECLARE-EVENT :CIRCULATE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CIRCULATE-NOTIFY ; (XLIB:DECLARE-EVENT :CIRCULATE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT) ; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G3915 ; ; note: could not stack allocate the result of (DECLARE-EVENT :CIRCULATE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW PARENT) ; ((MEMBER8 :TOP :BOTTOM) PLACE)) ; compiling (DECLARE-EVENT :CIRCULATE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CIRCULATE-REQUEST ; (XLIB:DECLARE-EVENT :CIRCULATE-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; (XLIB::PAD16 1 2) ; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4060 ; ; note: could not stack allocate the result of (DECLARE-EVENT :CIRCULATE-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; (PAD16 1 2) ; ((MEMBER8 :TOP :BOTTOM) PLACE)) ; compiling (DECLARE-EVENT :PROPERTY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :PROPERTY-NOTIFY ; (XLIB:DECLARE-EVENT :PROPERTY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD ATOM) ; ((OR NULL XLIB:CARD32) TIME) ; ((XLIB::MEMBER8 :NEW-VALUE :DELETED) XLIB::STATE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4217 ; ; note: could not stack allocate the result of (DECLARE-EVENT :PROPERTY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD ATOM) ; ((OR NULL CARD32) TIME) ; ((MEMBER8 :NEW-VALUE :DELETED) STATE)) ; compiling (DECLARE-EVENT :SELECTION-CLEAR ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :SELECTION-CLEAR ; (XLIB:DECLARE-EVENT :SELECTION-CLEAR ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD XLIB::SELECTION)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4375 ; ; note: could not stack allocate the result of (DECLARE-EVENT :SELECTION-CLEAR ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD SELECTION)) ; compiling (DECLARE-EVENT :SELECTION-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :SELECTION-REQUEST ; (XLIB:DECLARE-EVENT :SELECTION-REQUEST ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW) XLIB::REQUESTOR) ; (KEYWORD XLIB::SELECTION XLIB::TARGET) ; ((OR NULL KEYWORD) XLIB::PROPERTY)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4478 ; ; note: could not stack allocate the result of (DECLARE-EVENT :SELECTION-REQUEST ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW) ; REQUESTOR) ; (KEYWORD SELECTION TARGET) ; ((OR NULL KEYWORD) PROPERTY)) ; compiling (DECLARE-EVENT :SELECTION-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :SELECTION-NOTIFY ; (XLIB:DECLARE-EVENT :SELECTION-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD XLIB::SELECTION XLIB::TARGET) ; ((OR NULL KEYWORD) XLIB::PROPERTY)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4589 ; ; note: could not stack allocate the result of (DECLARE-EVENT :SELECTION-NOTIFY ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD SELECTION TARGET) ; ((OR NULL KEYWORD) PROPERTY)) ; compiling (DECLARE-EVENT :COLORMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :COLORMAP-NOTIFY ; (XLIB:DECLARE-EVENT :COLORMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:COLORMAP) XLIB:COLORMAP) ; (BOOLEAN XLIB::NEW-P XLIB::INSTALLED-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4685 ; ; note: could not stack allocate the result of (DECLARE-EVENT :COLORMAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((OR NULL COLORMAP) COLORMAP) ; (BOOLEAN NEW-P INSTALLED-P)) ; compiling (DECLARE-EVENT :CLIENT-MESSAGE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* DO BLOCK LET TAGBODY TAGBODY ; --> CASE LET COND IF PROGN SETF SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* DO BLOCK LET TAGBODY TAGBODY ; --> CASE LET COND IF COND IF PROGN SETF SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* DO BLOCK LET TAGBODY TAGBODY ; --> CASE LET COND IF COND IF COND IF PROGN SETF SB-KERNEL:%ASET ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4805 ; ; note: could not stack allocate the result of (DECLARE-EVENT :CLIENT-MESSAGE ; (DATA FORMAT) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((CLIENT-MESSAGE-SEQUENCE FORMAT) ; DATA)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT ; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF PROGN ; --> XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT ; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF COND IF PROGN ; --> XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT ; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF COND IF COND IF ; --> PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DECLARE-EVENT :MAPPING-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAPPING-NOTIFY ; (XLIB:DECLARE-EVENT :MAPPING-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; ((XLIB::MEMBER8 :MODIFIER :KEYBOARD :POINTER) XLIB::REQUEST) ; (XLIB:CARD8 XLIB::START) ; (XLIB:CARD8 COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> LOCALLY SB-C::%FUNCALL ; ==> ; #:G4902 ; ; note: could not stack allocate the result of (DECLARE-EVENT :MAPPING-NOTIFY ; (CARD16 SEQUENCE) ; ((MEMBER8 :MODIFIER :KEYBOARD ; :POINTER) ; REQUEST) ; (CARD8 START) ; (CARD8 COUNT)) ; compiling (DEFUN EVENT-LOOP-SETUP ...) ; compiling (DEFUN EVENT-LOOP-STEP-BEFORE ...) ; compiling (DEFUN DEQUEUE-EVENT ...) ; compiling (DEFUN EVENT-LOOP-STEP-AFTER ...) ; compiling (DEFMACRO EVENT-LOOP ...) ; compiling (DEFUN DISCARD-CURRENT-EVENT ...) ; compiling (DEFUN PROCESS-EVENT ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN PROCESS-EVENT ; (DEFUN XLIB:PROCESS-EVENT ; (XLIB:DISPLAY ; &KEY XLIB::HANDLER XLIB::TIMEOUT XLIB::PEEK-P XLIB::DISCARD-P ; (XLIB::FORCE-OUTPUT-P T)) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::PEEK-P XLIB::DISCARD-P ; XLIB::FORCE-OUTPUT-P)) ; (DECLARE (TYPE T XLIB::HANDLER) ; (DYNAMIC-EXTENT XLIB::HANDLER)) ; (XLIB::EVENT-LOOP (XLIB:DISPLAY XLIB::EVENT XLIB::TIMEOUT ; XLIB::FORCE-OUTPUT-P XLIB::DISCARD-P) ; (LET* ((XLIB::EVENT-CODE #) (XLIB::EVENT-DECODER #)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::EVENT-CODE) ; (TYPE # XLIB::EVENT-DECODER)) ; (IF XLIB::EVENT-DECODER ; (LET # ; #) ; (CERROR "Ignore this event" ; "Server Error: event with unknown event code ~d received." ; XLIB::EVENT-CODE))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN ; ==> ; #:HANDLER-DEFAULTING-TEMP ; ; note: could not stack allocate the result of (DEFUN PROCESS-EVENT ; (DISPLAY ; &KEY HANDLER TIMEOUT PEEK-P ; DISCARD-P (FORCE-OUTPUT-P T)) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL NUMBER) ; TIMEOUT) ; (TYPE GENERALIZED-BOOLEAN ; PEEK-P DISCARD-P ; FORCE-OUTPUT-P)) ; (DECLARE (TYPE T HANDLER) ; (DYNAMIC-EXTENT HANDLER)) ; (EVENT-LOOP (DISPLAY EVENT TIMEOUT ; FORCE-OUTPUT-P DISCARD-P) ; (LET* ((EVENT-CODE ; (EVENT-CODE EVENT)) ; (EVENT-DECODER (AND # #))) ; (DECLARE ; (TYPE ARRAY-INDEX EVENT-CODE) ; (TYPE (OR NULL FUNCTION) ; EVENT-DECODER)) ; (IF EVENT-DECODER ; (LET (#) ; (IF EVENT-HANDLER ; # ; #)) ; (CERROR "Ignore this event" ; "Server Error: event with unknown event code ~d received." ; EVENT-CODE))))) ; compiling (DEFUN MAKE-EVENT-HANDLERS ...) ; compiling (DEFUN EVENT-HANDLER ...) ; compiling (DEFUN SET-EVENT-HANDLER ...) ; compiling (DEFSETF EVENT-HANDLER ...) ; compiling (DEFMACRO EVENT-CASE ...) ; compiling (DEFMACRO EVENT-COND ...) ; compiling (DEFUN GET-EVENT-CODE ...) ; compiling (DEFUN UNIVERSAL-EVENT-GET-MACRO ...) ; compiling (DEFMACRO EVENT-DISPATCH ...) ; compiling (DEFMACRO BINDING-EVENT-VALUES ...) ; compiling (DEFPARAMETER *XERROR-VECTOR* ...) ; compiling (DEFUN MAKE-ERROR ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::ERROR-DECODE-FUNCTION) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; compiling (DEFUN REPORT-ERROR ...) ; compiling (DEFUN REQUEST-NAME ...) ; compiling (DEFUN REPORT-REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION RESOURCE-ERROR ...) ; compiling (DEFINE-CONDITION UNKNOWN-ERROR ...) ; compiling (DEFINE-CONDITION ACCESS-ERROR ...) ; compiling (DEFINE-CONDITION ALLOC-ERROR ...) ; compiling (DEFINE-CONDITION ATOM-ERROR ...) ; compiling (DEFINE-CONDITION COLORMAP-ERROR ...) ; compiling (DEFINE-CONDITION CURSOR-ERROR ...) ; compiling (DEFINE-CONDITION DRAWABLE-ERROR ...) ; compiling (DEFINE-CONDITION FONT-ERROR ...) ; compiling (DEFINE-CONDITION GCONTEXT-ERROR ...) ; compiling (DEFINE-CONDITION ID-CHOICE-ERROR ...) ; compiling (DEFINE-CONDITION ILLEGAL-REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION LENGTH-ERROR ...) ; compiling (DEFINE-CONDITION MATCH-ERROR ...) ; compiling (DEFINE-CONDITION NAME-ERROR ...) ; compiling (DEFINE-CONDITION PIXMAP-ERROR ...) ; compiling (DEFINE-CONDITION VALUE-ERROR ...) ; compiling (DEFINE-CONDITION WINDOW-ERROR ...) ; compiling (DEFINE-CONDITION IMPLEMENTATION-ERROR ...) ; compiling (DEFINE-CONDITION X-TYPE-ERROR ...) ; compiling (DEFINE-CONDITION CLOSED-DISPLAY ...) ; compiling (DEFINE-CONDITION LOOKUP-ERROR ...) ; compiling (DEFINE-CONDITION CONNECTION-FAILURE ...) ; compiling (DEFINE-CONDITION REPLY-LENGTH-ERROR ...) ; compiling (DEFINE-CONDITION REPLY-TIMEOUT ...) ; compiling (DEFINE-CONDITION SEQUENCE-ERROR ...) ; compiling (DEFINE-CONDITION UNEXPECTED-REPLY ...) ; compiling (DEFINE-CONDITION MISSING-PARAMETER ...) ; compiling (DEFINE-CONDITION INVALID-FONT ...) ; compiling (DEFINE-CONDITION DEVICE-BUSY ...) ; compiling (DEFINE-CONDITION UNIMPLEMENTED-EVENT ...) ; compiling (DEFINE-CONDITION UNDEFINED-EVENT ...) ; compiling (DEFINE-CONDITION ABSENT-EXTENSION ...) ; compiling (DEFINE-CONDITION INCONSISTENT-PARAMETERS ...) ; compiling (DEFINE-CONDITION RESOURCE-IDS-EXHAUSTED ...) ; compiling (DEFUN GET-ERROR-KEY ...) ; compiling (DEFMACRO DEFINE-ERROR ...) ; compiling (DEFUN DECODE-CORE-ERROR ...) ; compiling (DEFUN DECODE-RESOURCE-ERROR ...) ; compiling (DEFINE-ERROR UNKNOWN-ERROR ...) ; compiling (DEFINE-ERROR REQUEST-ERROR ...) ; compiling (DEFINE-ERROR VALUE-ERROR ...) ; compiling (DEFINE-ERROR WINDOW-ERROR ...) ; compiling (DEFINE-ERROR PIXMAP-ERROR ...) ; compiling (DEFINE-ERROR ATOM-ERROR ...) ; compiling (DEFINE-ERROR CURSOR-ERROR ...) ; compiling (DEFINE-ERROR FONT-ERROR ...) ; compiling (DEFINE-ERROR MATCH-ERROR ...) ; compiling (DEFINE-ERROR DRAWABLE-ERROR ...) ; compiling (DEFINE-ERROR ACCESS-ERROR ...) ; compiling (DEFINE-ERROR ALLOC-ERROR ...) ; compiling (DEFINE-ERROR COLORMAP-ERROR ...) ; compiling (DEFINE-ERROR GCONTEXT-ERROR ...) ; compiling (DEFINE-ERROR ID-CHOICE-ERROR ...) ; compiling (DEFINE-ERROR NAME-ERROR ...) ; compiling (DEFINE-ERROR LENGTH-ERROR ...) ; compiling (DEFINE-ERROR IMPLEMENTATION-ERROR ...) ; /home/buildd/.cache/common-lisp/sbcl-1.0.45.0.debian-linux-x86/usr/share/common-lisp/source/clx/ASDF-TMP-input.fasl written ; compilation finished in 0:00:03.286 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN CREATE-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-WINDOW ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> INCF LET* ; ==> ; (+ (XLIB::BUFFER-BOFFSET #:TMP131) #:G132) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 2) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 256) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 512) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 1024) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 2048) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8192) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16384) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> INCF LET* ; ==> ; (+ (XLIB::BUFFER-BOFFSET #:TMP131) #:G132) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 32). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN DESTROY-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN DESTROY-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN ADD-TO-SAVE-SET ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ADD-TO-SAVE-SET ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGESAVESET+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN REMOVE-FROM-SAVE-SET ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN REMOVE-FROM-SAVE-SET ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGESAVESET+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN REPARENT-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN MAP-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN MAP-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN UNMAP-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN UNMAP-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN CIRCULATE-WINDOW-UP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN CIRCULATE-WINDOW-DOWN ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN QUERY-TREE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-TREE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTREE+ NIL ; :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::WINDOW-GET 8) (XLIB::RESOURCE-ID-GET 12) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD16-GET 16) :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN INTERN-ATOM ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN FIND-ATOM ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN ATOM-NAME ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ATOM-NAME ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETATOMNAME+ NIL ; :SIZES (16)) ; ((XLIB:RESOURCE-ID XLIB::ATOM-ID)) ; (VALUES (XLIB::STRING-GET (XLIB::CARD16-GET 8) XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN LOOKUP-XATOM ...) ; compiling (DEFUN CHANGE-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN DELETE-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN GET-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN ROTATE-PROPERTIES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN LIST-PROPERTIES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN LIST-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTPROPERTIES+ ; NIL :SIZES 16) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN SELECTION-OWNER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETSELECTIONOWNER+ 12 :SIZES ; 32) ; ((XLIB:RESOURCE-ID XLIB::SELECTION-ID)) ; (VALUES (XLIB::RESOURCE-ID-OR-NIL-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN SET-SELECTION-OWNER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFSETF SELECTION-OWNER ...) ; compiling (DEFUN CONVERT-SELECTION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN SEND-EVENT ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE)) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. debugger invoked on a SB-INT:BUG in thread #: failed AVER: (AND (NULL (TN-READS TN)) (NULL (TN-WRITES TN))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at . Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [TRY-RECOMPILING] Try recompiling requests 1: [RETRY ] Retry compiling component ("clx" "requests"). 2: [ACCEPT ] Continue, treating compiling component ("clx" "requests") as having been successful. 3: [CONTINUE ] Ignore runtime option --eval "(progn (clc:clc-require 'asdf) (clc:clc-require 'stumpwm) (load \"manual.lisp\"))". 4: [ABORT ] Skip rest of --eval and --load options. 5: Skip to toplevel READ/EVAL/PRINT loop. 6: [QUIT ] Quit SBCL (calling #'QUIT, killing the process). (SB-INT:BUG "~@" (AND (NULL (SB-C::TN-READS SB-C:TN)) (NULL (SB-C::TN-WRITES SB-C:TN)))) 0] ; compilation aborted after 0:00:02.111 ; ; compilation unit aborted ; caught 2 fatal ERROR conditions ; printed 397 notes * makeinfo stumpwm.texi stumpwm.texi: No such file or directory make[1]: *** [stumpwm.info] Error 1 make[1]: Leaving directory `/build/buildd/stumpwm-20100709.gitf6262b0' make: *** [build] Error 2 dpkg-buildpackage: error: debian/rules build gave error exit status 2 ****************************************************************************** Build finished at 20110408-1453 FAILED [dpkg-buildpackage died] Purging chroot-autobuild/build/buildd/stumpwm-20100709.gitf6262b0 ------------------------------------------------------------------------------ /usr/bin/sudo dpkg --purge intltool-debian groff-base m4 gettext file html2text cl-asdf common-lisp-controller gettext-base debhelper dh-lisp po-debconf libunistring0 realpath cl-clx-sbcl libcroco3 libmagic1 sbcl libpipeline1 libxml2 bsdmainutils man-db cl-ppcre texinfo autoconf (Reading database ... 15633 files and directories currently installed.) Removing dh-lisp ... Removing cl-clx-sbcl ... Removing sbcl ... Purging configuration files for sbcl ... Removing cl-ppcre ... Removing texinfo ... Purging configuration files for texinfo ... Removing autoconf ... Purging configuration files for autoconf ... Removing m4 ... Removing common-lisp-controller ... Purging configuration files for common-lisp-controller ... Removing debhelper ... Removing po-debconf ... Removing realpath ... Removing man-db ... Purging configuration files for man-db ... Removing catpages as well as /var/cache/man hierarchy. Removing intltool-debian ... Removing groff-base ... Purging configuration files for groff-base ... Removing gettext ... Removing file ... Removing html2text ... Purging configuration files for html2text ... Removing cl-asdf ... Removing gettext-base ... Removing libunistring0 ... Purging configuration files for libunistring0 ... Removing libcroco3 ... Purging configuration files for libcroco3 ... Removing libmagic1 ... Purging configuration files for libmagic1 ... Removing libpipeline1 ... Purging configuration files for libpipeline1 ... Removing libxml2 ... Purging configuration files for libxml2 ... Removing bsdmainutils ... Purging configuration files for bsdmainutils ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place ****************************************************************************** Finished at 20110408-1453 Build needed 00:00:22, 2376k disk space RUN: /usr/share/launchpad-buildd/slavebin/scan-for-processes ['/usr/share/launchpad-buildd/slavebin/scan-for-processes', '37561204dabbca276e67a28bd2b45ffedd916f69'] Scanning for processes to kill in build /home/buildd/build-37561204dabbca276e67a28bd2b45ffedd916f69/chroot-autobuild... RUN: /usr/share/launchpad-buildd/slavebin/umount-chroot ['umount-chroot', '37561204dabbca276e67a28bd2b45ffedd916f69'] Unmounting chroot for build 37561204dabbca276e67a28bd2b45ffedd916f69... RUN: /usr/share/launchpad-buildd/slavebin/remove-build ['remove-build', '37561204dabbca276e67a28bd2b45ffedd916f69'] Removing build 37561204dabbca276e67a28bd2b45ffedd916f69